[SOLUCIONADO] Cargar un DataGrid Haciendo Click en otro DataGrid Yo cargo un Datagrid llamado "Ejemplares" con datos de una base de datos, yo quiero que al hacer click en una fila de "Ejemplares" me cargue otro DataGrid llamado "ejemp" tomando el primer campo de la primera columna de la fila seleccionada para la busqueda en sentencia sql la cual llenará el DataGrid "ejemp".... no se si me entenderían el problema... ya tengo algo hecho y funciona... pero EL PROBLEMA es que solo me carga los datos al hacer click en la primara fila... si hago click en las otras filas no me carga nada en el DataGrid "ejemp".
Aquí les dejo el código tal y como lo tengo en VB6
Código:
Por favor necesito sus ayuda lo más pronto posible.
Private Sub cargarGrid()
Dim rcdSet As Recordset
If Combo(0).Text = "" And Combo(1).Text = "" And Combo(2).Text = "" Then '0 0 0
Set rcdSet = DataEnvironment1.Connection1.Execute("select trata_sobre.id_libro as ID, titulo as Titulo, tema.nombre as Tema, editorial.nombre as Editorial, max(ejemplar.no_orden) as Hay from libro, ejemplar, trata_sobre, tema, editorial where libro.id_libro = trata_sobre.id_libro and libro.id_libro = ejemplar.id_libro and trata_sobre.id_tema = tema.id_tema and libro.id_editorial = editorial.id_editorial group by ID")
ElseIf Combo(0).Text <> "" And Combo(1).Text = "" And Combo(2).Text = "" Then '1 0 0
Set rcdSet = DataEnvironment1.Connection1.Execute("select trata_sobre.id_libro as ID, titulo as Titulo, tema.nombre as Tema, editorial.nombre as Editorial, max(ejemplar.no_orden) as Hay from libro, ejemplar, trata_sobre, tema, editorial where libro.id_libro = trata_sobre.id_libro and libro.id_libro = ejemplar.id_libro and trata_sobre.id_tema = tema.id_tema and libro.id_editorial = editorial.id_editorial and titulo = '" & Combo(0).Text & "' group by ID")
ElseIf Combo(0).Text = "" And Combo(1).Text <> "" And Combo(2).Text = "" Then '0 1 0
Set rcdSet = DataEnvironment1.Connection1.Execute("select trata_sobre.id_libro as ID, titulo as Titulo, tema.nombre as Tema, editorial.nombre as Editorial, max(ejemplar.no_orden) as Hay from libro, ejemplar, trata_sobre, tema, editorial where libro.id_libro = trata_sobre.id_libro and libro.id_libro = ejemplar.id_libro and trata_sobre.id_tema = tema.id_tema and libro.id_editorial = editorial.id_editorial and tema.nombre = '" & Combo(1).Text & "' group by ID")
ElseIf Combo(0).Text = "" And Combo(1).Text = "" And Combo(2).Text <> "" Then '0 0 1
Set rcdSet = DataEnvironment1.Connection1.Execute("select trata_sobre.id_libro as ID, titulo as Titulo, tema.nombre as Tema, editorial.nombre as Editorial, max(ejemplar.no_orden) as Hay from libro, ejemplar, trata_sobre, tema, editorial where libro.id_libro = trata_sobre.id_libro and libro.id_libro = ejemplar.id_libro and trata_sobre.id_tema = tema.id_tema and libro.id_editorial = editorial.id_editorial and editorial.nombre = '" & Combo(2).Text & "' group by ID")
ElseIf Combo(0).Text = "" And Combo(1).Text <> "" And Combo(2).Text <> "" Then '0 1 1
Set rcdSet = DataEnvironment1.Connection1.Execute("select trata_sobre.id_libro as ID, titulo as Titulo, tema.nombre as Tema, editorial.nombre as Editorial, max(ejemplar.no_orden) as Hay from libro, ejemplar, trata_sobre, tema, editorial where libro.id_libro = trata_sobre.id_libro and libro.id_libro = ejemplar.id_libro and trata_sobre.id_tema = tema.id_tema and libro.id_editorial = editorial.id_editorial and tema.nombre = '" & Combo(1).Text & "' and editorial.nombre = '" & Combo(2).Text & "' group by ID")
ElseIf Combo(0).Text <> "" And Combo(1).Text = "" And Combo(2).Text <> "" Then '1 0 1
Set rcdSet = DataEnvironment1.Connection1.Execute("select trata_sobre.id_libro as ID, titulo as Titulo, tema.nombre as Tema, editorial.nombre as Editorial, max(ejemplar.no_orden) as Hay from libro, ejemplar, trata_sobre, tema, editorial where libro.id_libro = trata_sobre.id_libro and libro.id_libro = ejemplar.id_libro and trata_sobre.id_tema = tema.id_tema and libro.id_editorial = editorial.id_editorial and titulo = '" & Combo(0).Text & "' and editorial.nombre = '" & Combo(2).Text & "' group by ID")
ElseIf Combo(0).Text <> "" And Combo(1).Text <> "" And Combo(2).Text = "" Then '1 1 0
Set rcdSet = DataEnvironment1.Connection1.Execute("select trata_sobre.id_libro as ID, titulo as Titulo, tema.nombre as Tema, editorial.nombre as Editorial, max(ejemplar.no_orden) as Hay from libro, ejemplar, trata_sobre, tema, editorial where libro.id_libro = trata_sobre.id_libro and libro.id_libro = ejemplar.id_libro and trata_sobre.id_tema = tema.id_tema and libro.id_editorial = editorial.id_editorial and tema.nombre = '" & Combo(1).Text & "' and titulo = '" & Combo(0).Text & "' group by ID")
ElseIf Combo(0).Text <> "" And Combo(1).Text <> "" And Combo(2).Text <> "" Then '1 1 1
Set rcdSet = DataEnvironment1.Connection1.Execute("select trata_sobre.id_libro as ID, titulo as Titulo, tema.nombre as Tema, editorial.nombre as Editorial, max(ejemplar.no_orden) as Hay from libro, ejemplar, trata_sobre, tema, editorial where libro.id_libro = trata_sobre.id_libro and libro.id_libro = ejemplar.id_libro and trata_sobre.id_tema = tema.id_tema and libro.id_editorial = editorial.id_editorial and titulo = '" & Combo(0).Text & "' and tema.nombre = '" & Combo(1).Text & "' and editorial.nombre = '" & Combo(2).Text & "' group by ID")
End If
Set Ejemplares.DataSource = rcdSet
confiGrid
'cargarEjemplares
End Sub
Private Sub cargarEjemplares()
Dim rcdSet As Recordset
Set rcdSet = DataEnvironment1.Connection1.Execute("select no_orden as 'N°', titulo as 'Título', edicion as 'Edición', ubicacion as 'Ubicación' from libro, ejemplar where libro.id_libro = '" & Ejemplares.Columns("ID").Text & "' and libro.id_libro = ejemplar.id_libro and ejemplar.dispo = 1")
Set ejemp.DataSource = rcdSet
If rcdSet.RecordCount <> 0 Then
confiGrid2
End If
End Sub
Private Sub Ejemplares_Click()
cargarEjemplares
End Sub
Muchas Gracias.
