dataset y dataadapter

[cgallardom]

ya lo solucione amigo



Private Sub cargarDataSet()
Dim oConexion As New SqlConnection
Dim oDataset As New DataSet
oConexion.ConnectionString = "server=(local);" & _
"database=ClinicaBD;integrated security=true;"
Dim cmdConsultas As New SqlCommand
cmdConsultas.CommandType = CommandType.StoredProcedure
cmdConsultas.CommandText = "pa_Creditos_Obtener_x_Trabajdor"
cmdConsultas.Connection = oConexion
Dim daCreditos As New SqlDataAdapter(cmdConsultas)
' instanciar dataset

' oConexion.Open()


' utilizar los dataadapters para llenar el dataset con tablas
daCreditos.Fill(oDataset, "Creditos")

'' relacionar las dos tablas del dataset por campo común
oDataset.Relations.Add("Detalle_creditos", _
oDataset.Tables(0).Columns("creditoId"), _
oDataset.Tables(1).Columns("creditoId"))

daCreditos = Nothing


' asignar al datagrid maestro la tabla Customers
Me.DataGrid1.DataSource = oDataset
Me.DataGrid1.DataMember = oDataset.Tables(0).ToString
'' asignar al datagrid detalles la relación
'' que acabamos de crear por código
Me.DataGrid2.DataSource = oDataset
Me.DataGrid2.DataMember = "Creditos.Detalle_creditos"
End Sub