Hola!

Registrándote como bakuno podrás publicar, compartir y comunicarte en privado con otros bakuos :D

Regístrame ya!

Ayuda con visual basic 2010

Mr.Lazer

Becerro
Desde
17 Ago 2009
Mensajes
21
Hola, les solicito su ayuda con un pequeño problema que no logro solucionar.

Resulta que quiero crear una busqueda y comparacion de un textbox con una base de datos de access, ya esta perfectamente conectada, de hecho ya pude realizar la busqueda, el problema esta en que no realiza la comparacion, quiero que lo compare y si es igual, muestre "Correcto", de lo contrario "Incorrecto" o algo asi por el estilo, pero lo que hace mi codigo, es marcar Incorrecto, aunque la comparacion sea correcta, anexo el codigo, espero me haya dado a entender, y agradecere infinitamente su ayuda ya que ando bastante desesperado y llevo varios dias ya con este problema, gracias de antemano, un saludo (:

Codigo:

No pegue todo el codigo de mi programa, solo la parte que sospecho esta erronea.

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
Dim mitabla As DataTable = DataSet11.eQ
Dim cfilas As DataRowCollection = mitabla.Rows
Dim filaBuscada() As DataRow

Dim NL As String = Environment.NewLine

Dim criterio As String = "Respuesta Like '* " & TextBox1.Text & "*'"
filaBuscada = mitabla.Select(criterio)
If (filaBuscada.GetUpperBound(0) = -1) Then
MessageBox.Show("Incorrecto")
Exit Sub
End If

Dim i, j As Integer
For i = 0 To filaBuscada.GetUpperBound(0)
If (MessageBox.Show("Correcto" & NL & filaBuscada(i)(0) & NL, "Buscar", MessageBoxButtons.OK) = DialogResult.OK) Then
For j = 0 To cfilas.Count - 1
If (cfilas(j).Equals(filaBuscada(i))) Then
BindingContext(DataSet11, "eQ").Position = j

End If
Next j
Exit For
End If
Next i

End Sub
 
mejorr tee cuentoo un chisteeee
Sabess qe ezzzz un ferreroooo rocher.. ?? haha
 
no te conviene mejor revisar cuantos renglones te regresa la consulta ?

if (mitabla.rows.count > 0) then
--encontrado
else
-- no encontrado ?
end if


de momento es lo que se me ocurre
 
Y si la comparacion la haces asi:?

Dim criterio As String = "Respuesta Like '%" & TextBox1.Text & "%'"
y creo que despues del porcentaje o del * tienes un espacio
 
Volver
Arriba