Buenas a todos,
Tengo un formulario en visual basic.net con 4 campos (el que nos interesa es el campo "Numero Subcuenta". Necesito saber que, cuando el usuario introduzca un valor en éste campo, el sistema me genere una búsqueda en la base de datos y me lanze un mensaje si el valor no existe...
De momento tengo el código así:
Código:
Private Sub TxtNumero_keypress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TxtNumero.KeyPress
Dim num_comptasel As Integer
If e.KeyChar = ChrW(Keys.Enter) Then 'si presiona enter entonces
e.Handled = True
'SendKeys.Send("{TAB}") 'haga tab es una opción o bien
Dim strConexion As String
Dim objConexion As System.Data.OleDb.OleDbConnection
Dim objComando As System.Data.OleDb.OleDbDataAdapter
Dim objDS As New DataSet
Dim Numcompta As Integer
strConexion = "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=C:\caixa\base.mdb"
objComando = Nothing
objDS = Nothing
objDS = New DataSet
objConexion = New System.Data.OleDb.OleDbConnection(strConexion)
objComando = New System.Data.OleDb.OleDbDataAdapter("Select numcompta From Caixa", strConexion)
objComando.Fill(objDS, "Select numcompta from Caixa")
Numcompta = objDS.Tables(0).Rows.Item(0).Item("Numcompta")
'TotalIngressos = "" & objDS.Tables(0).Rows.Item(0).Item(0)
CmbData.Focus() ' envíele el focus al cmbdata
End If
End Sub
Yo diría que debo asignar el valor introducido en el campo "Numero Subcuenta" a una variable y con un For recorrer la tabla comparando el valor... pero no estoy seguro de como hacerlo. ¿¿Alguna ayuda, por favor??
Gracias!!