
09/11/2011, 15:43
|
| | Fecha de Ingreso: octubre-2011 Ubicación: COLOMBIA, Medellín
Mensajes: 42
Antigüedad: 13 años, 5 meses Puntos: 0 | |
problemas al usar algunos botones hola es que a la hora de utilizar en esta base de datos los botones siguiente y anterior me esta mostrando error en una de las tablas que me da error el codigo esta asi:
Private Sub cmdsig_Clik(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdsig.Click
Dim z As Integer
cmdant.Enabled = True
miconexion = New MySqlConnection("server=localhost;user=root;passwo rd=111;database=inventariop")
miconexion.Open()
micomando = New MySqlCommand("select max(nitp)from proveedores;", miconexion)
z = micomando.ExecuteScalar
If z = txtnit.Text Then
MessageBox.Show("ultimo registro", "Advertencia")
cmdsig.Enabled = False
Else : micomando = New MySqlCommand("select * from proveedores where nitp> " & txtnit.Text & " order by nitp asc limit 1;", miconexion)
misdatos = micomando.ExecuteReader()
misdatos.Read()
txtnit.Text = misdatos("nitp")
txtnombre.Text = misdatos("nombre")
txtdireccion.Text = misdatos("direccion")
txttelefono.Text = misdatos("telefono")
misdatos.Close()
miconexion.Close()
End If
End Sub
Private Sub cmdant_Clik(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdant.Click
Dim z As Integer
cmdsig.Enabled = True
miconexion = New MySqlConnection("server=localhost;user=root;passwo rd=111;database=inventariop")
miconexion.Open()
micomando = New MySqlCommand("select min(nitp)from proveedores;", miconexion)
z = micomando.ExecuteScalar
If z = txtnit.Text Then
MessageBox.Show("ultimo registro", "Advertencia")
cmdsig.Enabled = False
Else : micomando = New MySqlCommand("select * from proveedores where nitp < " & txtnit.Text & " order by nitp desc limit 1;", miconexion)
misdatos = micomando.ExecuteReader()
misdatos.Read()
txtnit.Text = misdatos("nitp")
txtnombre.Text = misdatos("nombre")
txtdireccion.Text = misdatos("direccion")
txttelefono.Text = misdatos("telefono")
misdatos.Close()
miconexion.Close()
End If
End Sub
End Class.
al ubicaeme en el mayor registro y devolverme de el boton cmdant solo me muestra 2 registros, y si me ubico en el menor y le doy al boton siguiente me sale error.
muchas gracias. |