rellenar un dataset
Publicado por maria (36 intervenciones) el 15/09/2003 16:51:16
Hola a todos,
Quiero rellenar un dataset, pasando por un bucle, para que este se rellene con diferentes tablas, pero solo me guarda la ultima tabla que lee, como lo puedo poner para que me recoja todas las tablas.
Este es el bucle donde lo tengo, la funcion es la que tiene el procedimiento almacenado, creo el dataset y dataadapter.
Do While Cont < numColum
Cont = Cont + 1
nFilaActual = nFilaActual + 1
Dim vari As String
vari = oDs.Tables(0).Rows(nFilaActual - 1)("ejercicio")
FecInicial = DateAdd("yyyy", -1, Text_FechaInicial.Text)
rellenarEjercicios(Me.Text_CuentaInicial.Text, vari, FecInicial, Me.Text_FechaFinal.Text)
Dim strMessage As String
DataGrid2.DataSource = oDs1.Tables(0)
DataGrid2.Refresh()
Loop
tb he probado a cargar el datagrid fuera del bucle pero solo carga la ultima tabla.
Muchas gracias por adelantado.
Quiero rellenar un dataset, pasando por un bucle, para que este se rellene con diferentes tablas, pero solo me guarda la ultima tabla que lee, como lo puedo poner para que me recoja todas las tablas.
Este es el bucle donde lo tengo, la funcion es la que tiene el procedimiento almacenado, creo el dataset y dataadapter.
Do While Cont < numColum
Cont = Cont + 1
nFilaActual = nFilaActual + 1
Dim vari As String
vari = oDs.Tables(0).Rows(nFilaActual - 1)("ejercicio")
FecInicial = DateAdd("yyyy", -1, Text_FechaInicial.Text)
rellenarEjercicios(Me.Text_CuentaInicial.Text, vari, FecInicial, Me.Text_FechaFinal.Text)
Dim strMessage As String
DataGrid2.DataSource = oDs1.Tables(0)
DataGrid2.Refresh()
Loop
tb he probado a cargar el datagrid fuera del bucle pero solo carga la ultima tabla.
Muchas gracias por adelantado.
Valora esta pregunta


0