¿Como haría un botón que busque y otro que guarde datos? - AYUDA

[capoeira]

Muy buenas foreros, necesito de vuestra sabiduría.

Tengo una base de datos en oracle, con una tabla que se llama "EXPEDICION" y esta tabla tiene 3 campos (codigobulto, agencia, division)

Me gustaría que me explicaran como podría hacer para que al escribir en un textbox asociado al campo codigobulto y pulsar en un botón (buscar) me busque la fila que en el campo codigobulto = texbox.text y me mustre los otros 2 campos (agencia y division), y que cuando le de a otro botón guarde los cambios.

Hasta ahora solo he sabido hacer que muevan los registros a través de unos botones.

Os adjunto código

¡¡¡Muchas gracias de antemano!!

Código [Seleccionar] Expandir


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