Visual Basic - ¿Como haría un botón que busque y otro que guarde

Life is soft - evento anual de software empresarial
   
Vista:

¿Como haría un botón que busque y otro que guarde

Publicado por Capoeira (2 intervenciones) el 05/08/2010 11:41:33
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!!

[CODE]
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
[/CODE]
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:¿Como haría un botón que busque y otro que guar

Publicado por Christian (666 intervenciones) el 07/08/2010 02:58:52
pregunta en el foro de .NET
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:¿Como haría un botón que busque y otro que guar

Publicado por capoeira (2 intervenciones) el 07/08/2010 13:03:23
Gracias así hare
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar