Consulta SQL en Visual Basic

tyloya
09 de Marzo del 2004
Hola a todos

Os escribo porque tengo una duda. En mi programa uso dos tablas,una de alumnos y otra de prácticas.En un formulario tngo cajas de texto para mostrar datos de la tabla alumnos,y en un datagrid muestro datos dwe las prácticas......duda: Como puedo mostrar en el datagrid las filas correspondientes a un alumnos, es decir, para un alumno determinado, tengo varias filas en la tabla prácticas,.....el campo que utilizo en ambas tablas en IdAlumnos,que es la clave pral de alumnos..

Espero haberme explicado, en definitiva creo que es hacer una sentencia SQL, pero no sé cómo enlazarla a los controles y las tablas de la base de datos.
Gracias por vuestra atención.

mapacha
09 de Marzo del 2004
nose como hacerle en un datagrid pero e puedo decir como lo hagas en un listview.
en un boton de buscar pon este codigo:
Set tyloya = New ADODB.Connection
tyloya.CursorLocation = adUseClient
tyloya.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=(la ruta donde esta la base de datos junto con el nonbre de la base de datos);Persist Security Info=False"
Set reg1 = New ADODB.Recordset
llenarLista
doble click en la forma y en laseccion general escribes esto:
Public tyloya As ADODB.Connection
Public reg1 As ADODB.Recordset
y creas un procedimiento a parte que es el siguiente (es llenar lista):
Private Sub llenarLista()
ListView1.ListItems.Clear
reg1.Open "Select alumno.*,practicas.* from alumno,practica where alumno.idalumno=practica.idalumno and idalumno=""" & text1.text & """", tyloya, adOpenStatic, adLockOptimistic

Do While Not reg1.EOF
Set itemtyloya = ListView1.ListItems.Add(, , reg1!idalumno)
With itemtyloya
.SubItems(1) = reg1!campo2
.SubItems(2) = reg1!campo3
.SubItems(3) = reg1!campo4
End With
reg1.MoveNext
Loop
reg1.Close
End If
End Sub

luego en las propiedades del listview has lo sig.
en la pestaña general en donde dice view escoje la
opcion 3-IvwReport
y palomea donde dice gridlines.
luego te vas a la pestaña de columnshider
y ahi
le vas a poner el titulo que aparezca en el listview
para cada columna.
espero que te sirva.
saludos.