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

 
Vista:
sin imagen de perfil

¿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
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 gua

Publicado por Damian (824 intervenciones) el 13/08/2010 14:39:42
1) Bueno para la busqueda sería algo asi:

Dim MiConexion As New SqlConnection(Conexion)
Dim Rs As SqlDataReader
Public Com, Insert As New SqlCommand
Dim SQL As String

SQL = "select agencia,division from Expedicion where codigobulto=" & CInt(texbox.text) & "

Com = New SqlCommand(SQL, MiConexion)

Rs = Com.ExecuteReader()
Rs.Read()
txtAgencia.text = Rs("agencia")
txtDivision.text = Rs("division")
Rs.Close()

2)Para guardar en tu base cuando se de click en el botón sería:

Insert.CommandText = "Insert into Expedicion(agencia,division) Values ('" _
& txtAgencia.text & "," & txtDivision.text & ")"

Insert.Connection = MiConexion
Insert.ExecuteNonQuery()

Bueno como vez estoy trabajando con SQL no cambiará mucho en Oracle.
En el punto 2 cuando dices "guardar los cambios" creo que te refieres a guardar los datos en la BD. Bueno espero te ayude. Saludos.
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