¿Como haría un botón que busque y otro que guarde
Publicado por Capoeira (2 intervenciones) el 07/08/2010 13:05:48
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!!
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
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!!
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
Valora esta pregunta
0