Ver Mensaje Individual
  #1 (permalink)  
Antiguo 12/04/2006, 11:11
crow78
 
Fecha de Ingreso: diciembre-2004
Mensajes: 475
Antigüedad: 19 años, 5 meses
Puntos: 4
recorrer dataset...

Saludos encontre esto en la web...Para Visual Net
Sin usar un DataGrid solo con los Textbox y un botón para avanzar y otro para retroceder
He incluso mostrar cuantos y en que registro estamos actualmente.
En el ejemplo contamos con una conexión OleDbDataAdapter el cual crea el OleDbConnection y el DataSet generado en el menu Datos, Generar conjunto de datos.

En el Evento Load del Windows Form
OleDbDataAdapter1.Fill(DataSet11)
(Llena el Dataset con los datos de la base y se desconecta de la misma)
PosisionActual()
(Llama al procedimiento que nos dará la posición del registro actual y cuantos registros hay en la base de datos... Ver mas abajo...)

Evento Click del Botón Siguiente
BindingContext(DataSet11, "clientes").Position += 1
(Avanza un registro en el Dataset ...clientes es la tabla...)
PosisionActual()

Evento Click del Botón Atrás
BindingContext(DataSet11, "clientes").Position -= 1
(Retrocede un registro en el Dataset)
PosisionActual()

El siguiente procedimiento Coloca en un text correspondiente la posición del registro actual y cuantos registros hay

Private Sub PosisionActual()
Dim RegistrosTotal As Integer
Dim RegistroActual As Integer
RegistrosTotal = BindingContext(DataSet11, "clientes").Count

If RegistrosTotal = 0 Then
TextBox5.Text = "(No hay Registros)"
Else
RegistroActual = BindingContext(DataSet11, "clientes").Position + 1
TextBox5.Text = RegistroActual.ToString & " De " & _
RegistrosTotal.ToString()
End If
End Sub

Nota:
Vale aclarar que los TextBox están enlazados con los registros de la Base de datos, mediante la propiedad DataBindings,Text

Lo antes mencionado funciona, ya que lo probe, pero si deseo, buscar un registro en especial, agregar uno nuevo y eliminar uno , como seria...
De ante mano muchas gracias....