Foros del Web » Programación para mayores de 30 ;) » .NET »

Los Rows van en pares ?

Estas en el tema de Los Rows van en pares ? en el foro de .NET en Foros del Web. 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 ...
  #1 (permalink)  
Antiguo 20/11/2012, 17:09
Avatar de damid3  
Fecha de Ingreso: noviembre-2012
Mensajes: 90
Antigüedad: 11 años, 4 meses
Puntos: 0
Los Rows van en pares ?

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
  #2 (permalink)  
Antiguo 21/11/2012, 06:39
Avatar de damid3  
Fecha de Ingreso: noviembre-2012
Mensajes: 90
Antigüedad: 11 años, 4 meses
Puntos: 0
Respuesta: Los Rows van en pares ?

a ver pude hacer que valla de adelante con el siguiente y atras con el anterior pero me sigue saltando de a 2 alguna idea

Código:
        query = "SELECT * from familias"
        Dim ds As New DataSet
        Dim da As New MySqlDataAdapter(query, consql)
        consql.Open()
        If ri >= 0 Then
            ri += 1
            da.Fill(ds, ri, 0, "familias")
            tbidfamilia.Text = ds.Tables("familias").Rows(ri).Item(0)
            TBfamilia.Text = ds.Tables("familias").Rows(ri).Item(1)
        End If
        consql.Close()
Código:
 query = "SELECT * from familias"
        Dim ds As New DataSet
        Dim da As New MySqlDataAdapter(query, consql)
        consql.Open()
        If ri > 0 Then
            ri -= 1
            da.Fill(ds, ri, 0, "familias")
            tbidfamilia.Text = ds.Tables("familias").Rows(ri).Item(0)
            TBfamilia.Text = ds.Tables("familias").Rows(ri).Item(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()
  #3 (permalink)  
Antiguo 21/11/2012, 09:38
Avatar de damid3  
Fecha de Ingreso: noviembre-2012
Mensajes: 90
Antigüedad: 11 años, 4 meses
Puntos: 0
Respuesta: Los Rows van en pares ?

Bueno ya lo tengo resuelto con lo siguiente
Código:
   query = "SELECT * from familias"
        Dim ds As New DataSet
        Dim da As New MySqlDataAdapter(query, consql)
        consql.Open()
        If ri >= 0 Then
            ri += 1
            da.Fill(ds, ri = ri + 1, 0, "familias")
            tbidfamilia.Text = ds.Tables("familias").Rows(ri).Item(0)
            TBfamilia.Text = ds.Tables("familias").Rows(ri).Item(1)
            tba.Text = ri

        End If
        consql.Close()
Código:
 query = "SELECT * from familias"
        Dim ds As New DataSet
        Dim da As New MySqlDataAdapter(query, consql)
        consql.Open()
        If ri > 0 Then
            ri -= 1
            da.Fill(ds, ri = ri - 1, 0, "familias")
            tbidfamilia.Text = ds.Tables("familias").Rows(ri).Item(0)
            TBfamilia.Text = ds.Tables("familias").Rows(ri).Item(1)
            tba.Text = ri

        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")
            tba.Text = ri
        End If
        consql.Close()

Saludos

Etiquetas: pares, rows, sql, vb
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 09:05.