Busquedas en VB.NET ???

[carlos79]

Buenos dias Othis.... Fijate lo siguiente.... coloqué el código pero ingreso un registro que sé está existente en la base de datos y no me dice que ya se encuentra....

Te adjunto el código para que esto se ponga mas interesante jejeje

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress

Dim ds As New DataSet
Dim da As New SqlClient.SqlDataAdapter
'-----------------------------------------------------------------------------------------------------------------
'Esta instrucción nos permite ingresar únicamente
'caracteres numéricos en el textbox1
If (Asc(e.KeyChar)) >= 48 And (Asc(e.KeyChar)) <= 57 Or (Asc(e.KeyChar)) = System.Windows.Forms.Keys.Back Then
e.Handled = False
else
e.Handled = True
End If
'------------------------------------------------------------------------------------------------------------------
If Asc(e.KeyChar) = 13 Then

If Me.TextBox1.Text = "" Then
MsgBox("Debe ingresar un número de guía. Favor verifique e intente de nuevo.", MsgBoxStyle.OkOnly & MsgBoxStyle.SystemModal & MsgBoxStyle.Exclamation & MsgBoxStyle.DefaultButton1, "Sistema de Control de Guias")

Else
da = New SqlClient.SqlDataAdapter("select nro_guia from guias where nro_guia ='" & TextBox1.Text & "'", cs)
da.Fill(ds, "guias")

If ds.Tables(0).Rows.Count > 0 Then

MsgBox("N° de guía registrado. Favor verifique e intente de nuevo", vbOKOnly, "sistema de Control de Guias")
Else
ComboBox1.Focus()
End If
End If
End If

End Sub

No entiendo por que no me indica que el registro existe aún cuando le ingreso u código existente en mi base de datos.

Saludos.

Carlos.