Problema al enlazar controles con BindingSource
Publicado por fme (2 intervenciones) el 04/03/2008 12:00:08
Empezaré con la típica frase de soy nuevo en esto y necesito ayuda. Estoy haciendo un programa típico de mantenimiento de tabla de Oracle en el que al introducir en tres textbox unos códigos y pulsar enter en el último, el programa muestre en diferentes textbox los campos de la tabla.
Para ello en el disparador que controlo el pulsar enter, tengo este código
Dim Scomando As New OracleCommand
Scomando.CommandText = "SELECT * FROM T725 WHERE EMP = :laemp AND JUS = :eljus AND SECU = :lasecu"
Scomando.Connection = cnn.miconexion
Scomando.Parameters.Add("laemp", OracleType.Number).Value = CType(tbEmp.Text, Integer)
Scomando.Parameters.Add("eljus", OracleType.Number).Value = CType(tbJus.Text, Integer)
Scomando.Parameters.Add("lasecu", OracleType.Number).Value = CType(tbSecu.Text, Integer)
'establezo la propiedad selecommand del oracledataadapter
T725da.SelectCommand = Scomando
Try
'Relleno el datatable
T725da.Fill(objDataSet)
'declaro un databinding
' Dim T725bs As New BindingSource
T725bs.DataSource = objDataSet.Tables(0)
'relaciono los controles con sus respectivos valor
Me.tbClie.DataBindings.Add("Text", T725bs, "CLIE")
Me.tbAlba.DataBindings.Add("Text", T725bs, "ALBA")
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
y me lo hace perfectamente, es decir, me salen los valores en sus respectivos textbox. Y hasta aquí llego, ya no se seguir, tengo las siguientes dudas:
- ¿Cómo controlo ahora si me modifican el valor de un textbox, que se ha modificado? Mi idea era que al pulsar un botón de grabar si detecto que ha habido cambios, crearme el UpdateCommand del dataaAapter T725da y usar el método Update, pero no sé ni como se detecta, ni como hacerlo.
Ayudarme por favor, que me tiro por la ventana.
Para ello en el disparador que controlo el pulsar enter, tengo este código
Dim Scomando As New OracleCommand
Scomando.CommandText = "SELECT * FROM T725 WHERE EMP = :laemp AND JUS = :eljus AND SECU = :lasecu"
Scomando.Connection = cnn.miconexion
Scomando.Parameters.Add("laemp", OracleType.Number).Value = CType(tbEmp.Text, Integer)
Scomando.Parameters.Add("eljus", OracleType.Number).Value = CType(tbJus.Text, Integer)
Scomando.Parameters.Add("lasecu", OracleType.Number).Value = CType(tbSecu.Text, Integer)
'establezo la propiedad selecommand del oracledataadapter
T725da.SelectCommand = Scomando
Try
'Relleno el datatable
T725da.Fill(objDataSet)
'declaro un databinding
' Dim T725bs As New BindingSource
T725bs.DataSource = objDataSet.Tables(0)
'relaciono los controles con sus respectivos valor
Me.tbClie.DataBindings.Add("Text", T725bs, "CLIE")
Me.tbAlba.DataBindings.Add("Text", T725bs, "ALBA")
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
y me lo hace perfectamente, es decir, me salen los valores en sus respectivos textbox. Y hasta aquí llego, ya no se seguir, tengo las siguientes dudas:
- ¿Cómo controlo ahora si me modifican el valor de un textbox, que se ha modificado? Mi idea era que al pulsar un botón de grabar si detecto que ha habido cambios, crearme el UpdateCommand del dataaAapter T725da y usar el método Update, pero no sé ni como se detecta, ni como hacerlo.
Ayudarme por favor, que me tiro por la ventana.
Valora esta pregunta


0