Código
Quiero que me ayudes con un problema
Necesito elcodigo para buscar desde un formulario a una base de datos de access, con ayuda de una consulta
Necesito elcodigo para buscar desde un formulario a una base de datos de access, con ayuda de una consulta
1 Respuesta
Respuesta de riquezada
1
Private Sub Form_Load()
Dim sql As String
Dim fila As Integer
sql = "select tb_alumnos.nombre , tb_alumnos.apellido from tb_alumnos where curso = '" & cursom & "' order by tb_alumnos.nombre"
Set tb = esc.OpenRecordset(sql, dbOpenDynaset)
fila = 1
grilporc.Rows = 2
Do While Not tb.EOF
grilporc.TextMatrix(fila, 0) = tb.Fields!nombre
grilporc.TextMatrix(fila, 1) = tb.Fields!apellido
grilporc.Rows = grilporc.Rows + 1
fila = fila + 1
tb.MoveNext
Loop
tb.Close
End Sub
Obviamente tienes que adaptarlo al tu programa
Dim sql As String
Dim fila As Integer
sql = "select tb_alumnos.nombre , tb_alumnos.apellido from tb_alumnos where curso = '" & cursom & "' order by tb_alumnos.nombre"
Set tb = esc.OpenRecordset(sql, dbOpenDynaset)
fila = 1
grilporc.Rows = 2
Do While Not tb.EOF
grilporc.TextMatrix(fila, 0) = tb.Fields!nombre
grilporc.TextMatrix(fila, 1) = tb.Fields!apellido
grilporc.Rows = grilporc.Rows + 1
fila = fila + 1
tb.MoveNext
Loop
tb.Close
End Sub
Obviamente tienes que adaptarlo al tu programa
