CLR: .Net / Mono / Boo / Otros CLR > VB .NET

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

(1/1)

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: Text --- Imports System.DataImports System.Data.OracleClient Public Class Form1Dim tabla As DataTableDim DataA As OracleDataAdapterDim 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 indicadosDataA.Fill(tabla) ' Si se encontraron registros... End Sub Private Sub btnAnterior_Click() Handles btnAnterior.ClickIf Fila > 0 ThenFila = Fila - 1MostrarDatos(Fila)ElseMsgBox("No se puede ir al registro anterior. Este es el primer registro")End IfEnd Sub Private Sub btnSiguiente_Click() Handles btnSiguiente.ClickIf Fila < (tabla.Rows.Count - 1) ThenFila = Fila + 1MostrarDatos(Fila)ElseMsgBox("No se puede ir al registro siguiente. Este es el último registro")End IfEnd 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").ToStringEnd Sub End Class  

Navegación

[0] Índice de Mensajes