- Tema Autor
- #1
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
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