hola a todos:
Tengo en mibase de datos un campo que se llama descripcion y por medio de el quiero hacer la consulta, cuando le ponga por ejemplo: incendio que me muestre el texto donde se encuentra dicha palabra.
Les mando el codigo, pero solo me muestra un palabra que es boda y si le pongo incendio o otra me dice que ya no hay mas, la verdad no se en que estoy mal
Cita: Private Sub CmdConsultas_Click()
Dim palabra, caracter, letras, t As String
buscar = InputBox(" Ingrese la palabra que desea consultar.", "Palabra")
Data1.Recordset.FindFirst "[descripcion]=" & " '" + buscar + " '"
If (descripcion <> "") Then
SQL = SQL + " and ((descripcion like '%"
Else
SQL = SQL + " and ((descripcion like '%"
End If
tam = Len(descripcion)
letras = ""
palabras = 1
' ciclo para la obtencion de palabras
For c = 1 To tam
If Mid(descripcion, c, 1) <> " " Then
caracter = Mid(descripcion, c, 1)
If (caracter = "." Or caracter = "," Or caracter = "'") Then
letras = letras + Mid(descripcion, c, 1)
Else
If palabra = 1 Then
SQL = SQL + letras + "%') "
letras = ""
palabra = 2
Else
SQL = SQL + "and (descripcion like'%" + letras + "%') "
letras = ""
End If
End If
If palabra = 2 Then
SQL = SQL + "and (descripcion like '%" + letras + "%'))"
Else
SQL = SQL + letras + "%'))"
End If
t = 1
End If
Next
If Data1.Recordset.NoMatch Then
mensaje = MsgBox("No hay mas archivos.", vbCritical, "FINAL DE LA CONSULTA")
CmdConsultas.Visible = False
Else
CmdConsultas.Visible = True
End If
End Sub
me pueden decir en donde estoy mal
