Avansar al siguiente Registro Con una consulta de SQL

06/11/2012 - 16:36 por criss | Informe spam
Tengo una pregunta que desde hace tiempo no puedo resolver

Tengo una consulta de SQL en VB conectada a una DB de ACCES 2010. La consulta la tengo realizada sobre el campo llamado “Horario” osea un string. Esto hace que me arroje todos los alumnos de ese horario. El problema es que esa consulta se descarga en cajas de texto, Obviamente solo puedo ver el primer resultado ya que las cajas solo pueden darme una búsqueda a la vez, (cosa que no pasa con el DATAGRID, hai si puedo ver todos los datos) Mi pregunta es.

¿Cómo puedo hacer un botón que al darle un clic me valla mostrando los demás resultados de la consulta echa por el campo de Horario?

Gracias
 

Leer las respuestas

#1 gianalmeyda
19/01/2013 - 00:24 | Informe spam
criss escribió el 06/11/2012 16:36 :
Tengo una pregunta que desde hace tiempo no puedo resolver

Tengo una consulta de SQL en VB conectada a una DB de ACCES 2010. La consulta
la tengo realizada sobre el campo llamado “Horario” osea un string.
Esto hace que me arroje todos los alumnos de ese horario. El problema es que
esa consulta se descarga en cajas de texto, Obviamente solo puedo ver el primer
resultado ya que las cajas solo pueden darme una búsqueda a la vez,
(cosa que no pasa con el DATAGRID, hai si puedo ver todos los datos) Mi
pregunta es.

¿Cómo puedo hacer un botón que al darle un clic me valla
mostrando los demás resultados de la consulta echa por el campo de
Horario?

Gracias


q tal, tengo la respuesta, espero te sirva

Private Sub Frm_Registar_Medio_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
LISTAR_REGISTRO()
End Sub
Sub LISTAR_REGISTRO()
TBL = OBJD.listar_medio
CANT = TBL.Rows.Count
N = 0
mostrar_registro(N)
End Sub
Private Sub mostrar_registro(ByVal nreg As Integer)
TxtCod.Text = TBL.Rows(nreg)(0)
TxtDesc.Text = TBL.Rows(nreg)(1)
End Sub
Private Sub BtnPrimero_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnPrimero.Click
N = 0
mostrar_registro(N)
End Sub
Private Sub BtnUltimo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnUltimo.Click
N = CANT - 1
mostrar_registro(N)
End Sub
Private Sub BtnAnterior_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAnterior.Click
If N > 0 Then
N = N - 1
End If
mostrar_registro(N)
End Sub
Private Sub BtnSiguiente_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSiguiente.Click
If N < (CANT - 1) Then
N = N + 1
End If
mostrar_registro(N)
End Sub

Preguntas similares