
30/03/2005, 13:50
|
| | Fecha de Ingreso: noviembre-2004
Mensajes: 12
Antigüedad: 20 años, 3 meses Puntos: 0 | |
ok, ya esta 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 |