Busquedas en VB.NET ???

[carlos79]

Buenos dias estimados amigos foristas :

Como puedo hacer para buscar un registro en la base de datos a través de un textbox y en caso de que no exista mostrar un messagebox mostrando que el registro no existe ????

Y en el caso de que exista el registro como puedo hacer la búsqueda y mostrar el message box ????

en visual basic 6 sé que la instrucción es así :


If KeyCode = 13 Then
If Text1.Text = "" Then
r = MsgBox("Debe ingresar el N° de control para continuar. Favor verifique e intente de nuevo", vbOKOnly, "Error")
Text1.SetFocus

Else

Set vali = New ADODB.Recordset

With vali
.ActiveConnection = cn
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.Open "select nro_guia from guias where guias.nro_guia = '" & Val(Text1.Text) & "'", cn
End With

If vali.BOF Then
'r = MsgBox("Número de control inexistente. Favor verifique e intente de nuevo", vbExclamation, "Error")
Text16.Text = Text1.Text
Command3.Enabled = True
Combo2.Enabled = True
Combo2.SetFocus

Else
r = MsgBox("Número de control existente, favor verifique e intente de nuevo", vbOKOnly, "Error")

End If


Saludos

Carlos.