Imports System.Data
Imports System.Data.OracleClient
Public Class Form1
Dim tabla As DataTable
Dim DataA As OracleDataAdapter
Dim Fila As Short = 0
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim CadenaConexion As String = "Data Source=ORCL;User Id=ORCL;Password=ORCL;"
Dim Conexion As OracleConnection = New OracleConnection(CadenaConexion)
DataA = New OracleDataAdapter("SELECT * FROM EXPEDICION", Conexion)
tabla = New DataTable
' Llenar la tabla con los datos indicados
DataA.Fill(tabla)
' Si se encontraron registros...
End Sub
Private Sub btnAnterior_Click() Handles btnAnterior.Click
If Fila > 0 Then
Fila = Fila - 1
MostrarDatos(Fila)
Else
MsgBox("No se puede ir al registro anterior. Este es el primer registro")
End If
End Sub
Private Sub btnSiguiente_Click() Handles btnSiguiente.Click
If Fila < (tabla.Rows.Count - 1) Then
Fila = Fila + 1
MostrarDatos(Fila)
Else
MsgBox("No se puede ir al registro siguiente. Este es el último registro")
End If
End Sub
Private Sub btnPrimero_Click() Handles btnPrimero.Click
Fila = 0
MostrarDatos(Fila)
End Sub
Private Sub btnUltimo_Click() Handles btnUltimo.Click
Fila = tabla.Rows.Count - 1
MostrarDatos(Fila)
End Sub
Private Sub MostrarDatos(ByVal f As Short)
TextBox1.Text = tabla.Rows(f)("codigobulto").ToString
TextBox2.Text = tabla.Rows(f)("division").ToString
TextBox3.Text = tabla.Rows(f)("agencia").ToString
End Sub
End Class