Hola soy un poco nuevo en vb pero a ver si me apaño para explicar
la idea es hacer un boton siguiente y un boton anterior
codigos
sigueinte
Código:
query = "SELECT * from familias"
Dim ds As New DataSet
Dim da As New MySqlDataAdapter(query, consql)
consql.Open()
If ri >= 0 Then
da.Fill(ds, ri, 0, "familias")
tbidfamilia.Text = ds.Tables("familias").Rows(ri).Item(0)
TBfamilia.Text = ds.Tables("familias").Rows(ri).Item(1)
ri += 1
End If
consql.Close()
anterior
Código:
query = "SELECT * from familias"
Dim ds As New DataSet
Dim da As New MySqlDataAdapter(query, consql)
consql.Open()
If ri > 1 Then
da.Fill(ds, ri, 0, "familias")
tbidfamilia.Text = ds.Tables("familias").Rows(ri).Item(0)
TBfamilia.Text = ds.Tables("familias").Rows(ri).Item(1)
ri -= 1
ElseIf ri = 0 Then
da.Fill(ds, ri, 0, "familias")
tbidfamilia.Text = ds.Tables("familias").Rows(ri).Item(0)
TBfamilia.Text = ds.Tables("familias").Rows(ri).Item(1)
MsgBox("Esta en el Primer Registro")
End If
consql.Close()
el tema es que en el siguiente salta de 2 en 2 osea solo me muestra los impares y en el anterior suma asi arriba como si fuese el boton siguiente
A ver si pueden darme una mano seguro que los grandes de aqui saben en que estoy metiendo la pata :D
Saludos