Siguiente registro en vb.net ado
Hola.
Tengo un código para mostrar los registros en textbox de una base de datos access
--------------------------------------------------------------------------------------------------------
Dim conexión As New OleDb.OleDbConnection()
conexion.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & DB
' Crear el Data Adapter
Dim dataAdapter As New OleDb.OleDbDataAdapter("SELECT * FROM GES", conexión)
'Crear el Data Set
Dim dataSet As New DataSet()
dataAdapter.Fill(dataSet, "GESTVET")
Dim filtro As String
filtro = ""
Dim fila() = dataSet.Tables("GESTVET").Select(filtro)
Dim ruta_foto As String
ruta_foto = fila(0)("FOTO")
Me.Txt_id.Text = fila(0)("ID")
Me.Txt_colegiado.Text = fila(0)("COL")
Me.Txt_nombre.Text = fila(0)("NOMBRE")
Me.Txt_apellidos.Text = fila(0)("APELLIDOS")
Me.Txt_dni.Text = fila(0)("DNI")
Me.Txt_domicilio.Text = fila(0)("DIRECCION_DOMICILIO")
Me.Txt_empresa.Text = fila(0)("DIRECCION_EMPRESA")
PictureBox_fotos.Image = New System.Drawing.Bitmap(ruta_foto)
' Cierro la conexión
conexion.Close()
--------------------------------------------------------------------------------------------------------
Lo que no consigo es avanzar por los registro adelante o atrás con dos button
He probado de diferentes formas pero estoy atascado, agradecería una ayudita
Gracias por contestar.
Tengo un código para mostrar los registros en textbox de una base de datos access
--------------------------------------------------------------------------------------------------------
Dim conexión As New OleDb.OleDbConnection()
conexion.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & DB
' Crear el Data Adapter
Dim dataAdapter As New OleDb.OleDbDataAdapter("SELECT * FROM GES", conexión)
'Crear el Data Set
Dim dataSet As New DataSet()
dataAdapter.Fill(dataSet, "GESTVET")
Dim filtro As String
filtro = ""
Dim fila() = dataSet.Tables("GESTVET").Select(filtro)
Dim ruta_foto As String
ruta_foto = fila(0)("FOTO")
Me.Txt_id.Text = fila(0)("ID")
Me.Txt_colegiado.Text = fila(0)("COL")
Me.Txt_nombre.Text = fila(0)("NOMBRE")
Me.Txt_apellidos.Text = fila(0)("APELLIDOS")
Me.Txt_dni.Text = fila(0)("DNI")
Me.Txt_domicilio.Text = fila(0)("DIRECCION_DOMICILIO")
Me.Txt_empresa.Text = fila(0)("DIRECCION_EMPRESA")
PictureBox_fotos.Image = New System.Drawing.Bitmap(ruta_foto)
' Cierro la conexión
conexion.Close()
--------------------------------------------------------------------------------------------------------
Lo que no consigo es avanzar por los registro adelante o atrás con dos button
He probado de diferentes formas pero estoy atascado, agradecería una ayudita
Gracias por contestar.