Copiar DataRow de una tabla de un dataset a otra

[Developer9]

Hola que tal, que onda... una vez más por aquí necesitando una ayuda rápida.

Hago un select (que me devuelve siempre un registro) y lleno un dataset, por lo tanto un dataset con una tabla, y dicha tabla tiene un row. Necesito copiar ese row a una tabla de otro datset en los que se irán acumulando los rows copiados

Al intentarlo me sale error, que el datarow ya pertenece a otro datatable

[reel]

Me imagino que las tablas son idénticas.

Por que no te consultas sobre le método Merge de los DataSet. Resolví un traspaso de datos de esa forma.

Saludes

[Developer9]

Claro, los datatables de ambos datasets son igualitos

Estoy chequeando el merge, nunca lo había usado antes

[RootK]

Puedas ocupar el ImportRow para ir agregando los rows que necesites, solo ten en cuenta que debes tener la misma estructura para evitar problemas.. puedes intentar con ésto:

Dim ds2 As New DataSet
ds2 = ds1.Clone () 'se copia la estructura
ds2.Tables(0).ImportRow(ds1.Tables(0).Rows(0))

esa serías mas o menos la idea.

Salu2

[Developer9]

Que hay Rootk... no pude con eso del merge... mi solución fue esta

Dim dr1 As DataRow = Me.ds.Tables(0).NewRow

dr1(0) = ds.Tables(0).Rows(0)(0)
dr1(1) = ds.Tables(0).Rows(0)(1)
dr1(2) = ds.Tables(0).Rows(0)(2)
dr1(3) = ds.Tables(0).Rows(0)(3)
dr1(4) = ds.Tables(0).Rows(0)(4)
dr1(5) = ds.Tables(0).Rows(0)(5)
dr1(6) = ds.Tables(0).Rows(0)(6)
dr1(7) = ds.Tables(0).Rows(0)(7)
dr1(8) = ds.Tables(0).Rows(0)(8)
dr1(9) = ds.Tables(0).Rows(0)(9)
dr1(10) = ds.Tables(0).Rows(0)(10)
dr1(11) = ds.Tables(0).Rows(0)(11)
dr1(12) = ds.Tables(0).Rows(0)(12)
dr1(13) = ds.Tables(0).Rows(0)(13)
dr1(14) = ds.Tables(0).Rows(0)(14)
dr1(15) = ds.Tables(0).Rows(0)(15)
dr1(16) = ds.Tables(0).Rows(0)(16)
dr1(17) = ds.Tables(0).Rows(0)(17)
dr1(18) = ds.Tables(0).Rows(0)(18)
dr1(19) = ds.Tables(0).Rows(0)(19)
dr1(20) = ds.Tables(0).Rows(0)(20)
dr1(21) = ds.Tables(0).Rows(0)(21)
dr1(22) = ds.Tables(0).Rows(0)(22)

Me.ds.Tables(0).Rows.Add(dr1)

Aunque la tuya se ve mas cortita

[eter_6]

Oye muchacho aquí posteando nomas xD podrías haberlo hecho con un for y te evitas tanta linea...

Dim i,x as integer

For i=0 to x
Dim dr1 As DataRow = Me.ds.Tables(0).NewRow
dr1(i) = ds.Tables(0).Rows(0)(i)
Next

ten en cuenta que 'x' en este caso debe ser 22...

listo xD

en ves de :

dr1(0) = ds.Tables(0).Rows(0)(0)
dr1(1) = ds.Tables(0).Rows(0)(1)
dr1(2) = ds.Tables(0).Rows(0)(2)
dr1(3) = ds.Tables(0).Rows(0)(3)
dr1(4) = ds.Tables(0).Rows(0)(4)
dr1(5) = ds.Tables(0).Rows(0)(5)
dr1(6) = ds.Tables(0).Rows(0)(6)
dr1(7) = ds.Tables(0).Rows(0)(7)
dr1(8) = ds.Tables(0).Rows(0)(8)
dr1(9) = ds.Tables(0).Rows(0)(9)
dr1(10) = ds.Tables(0).Rows(0)(10)
dr1(11) = ds.Tables(0).Rows(0)(11)
dr1(12) = ds.Tables(0).Rows(0)(12)
dr1(13) = ds.Tables(0).Rows(0)(13)
dr1(14) = ds.Tables(0).Rows(0)(14)
dr1(15) = ds.Tables(0).Rows(0)(15)
dr1(16) = ds.Tables(0).Rows(0)(16)
dr1(17) = ds.Tables(0).Rows(0)(17)
dr1(18) = ds.Tables(0).Rows(0)(18)
dr1(19) = ds.Tables(0).Rows(0)(19)
dr1(20) = ds.Tables(0).Rows(0)(20)
dr1(21) = ds.Tables(0).Rows(0)(21)
dr1(22) = ds.Tables(0).Rows(0)(22)

saludos xD

[xknown]

Hmm, aunque ya respondieron a tu pregunta y este comentario no viene al caso, pero ¿es necesario usar un DataSet para recuperar un sólo registro?

Saludos

[Developer9]

Iniciado por eter_6

Oye muchacho aquí posteando nomas xD podrías haberlo hecho con un for y te evitas tanta linea...

Dim i,x as integer

For i=0 to x
Dim dr1 As DataRow = Me.ds.Tables(0).NewRow
dr1(i) = ds.Tables(0).Rows(0)(i)
Next

ten en cuenta que 'x' en este caso debe ser 22...

listo xD

en ves de :

...

saludos xD

Orale wey!! cierto no me había fijado... demasiada programación me vuelve un chancecito tonto. Gracias

Iniciado por xknown

Hmm, aunque ya respondieron a tu pregunta y este comentario no viene al caso, pero ¿es necesario usar un DataSet para recuperar un sólo registro?

Saludos

Es que utilizo unos métodos para acceder a los datos que devuelven dataset o xml