Foros del Web » Programación » .NET »

problemas al usar algunos botones

Estas en el tema de problemas al usar algunos botones en el foro de .NET en Foros del Web. 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 ...
  #1 (permalink)  
Antiguo 09/11/2011, 14:43
 
Fecha de Ingreso: octubre-2011
Ubicación: COLOMBIA, Medellín
Mensajes: 42
Antigüedad: 3 años
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.

Etiquetas: botones, usar
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 03:36.
SEO by vBSEO 3.3.2