Consulta por palabras

[ariesagv]

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

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

[nachoalm]

Prueba reemplazando % por * a ver como te va y me indicas

[David]

Hola, nachoalm.

Está bien como %, se usa en la consulta SQL con el operador LIKE.

El problema que veo es que estás almacenando en la variable SQL la consulta pero al final no realizas nada con esa variable.

[nachoalm]

si se como se utiliza el like pero yo uso el * me da muy buenos resultados siempre lo uso si deseas te paso un codigo y unos trabajitos con este codigo y con respecto a la variable tienes razon pero como explicas que si hace una primera busqueda en todo caso a mi me paso algo asi pero me di cuenta que era porque usaba la version portable del VB y me daba este error, porque lo ejecutba en el portable y salie el error y opte por ponerle * y salia normal, incluso en la version instalada asi que mejor uso el *

[ariesagv]

Iniciado por nachoalm

si se como se utiliza el like pero yo uso el * me da muy buenos resultados siempre lo uso si deseas te paso un codigo y unos trabajitos con este codigo y con respecto a la variable tienes razon pero como explicas que si hace una primera busqueda en todo caso a mi me paso algo asi pero me di cuenta que era porque usaba la version portable del VB y me daba este error, porque lo ejecutba en el portable y salie el error y opte por ponerle * y salia normal, incluso en la version instalada asi que mejor uso el *

ok, lo voy a probar como lo dices y luego te aviso que onda, una pregunta esta bien la logica de mi codigo?

[Avellaneda]

Iniciado por ariesagv

ok, lo voy a probar como lo dices y luego te aviso que onda, una pregunta esta bien la logica de mi codigo?

Si como dices al principio:

"quiero hacer la consulta, cuando le ponga por ejemplo: incendio que me muestre el texto donde se encuentra dicha palabra"

entiendo que lo que quieres es que busque el primer registro que incluya la palabra en cualquier posición del campo, si así sólo tienes que hacer esto:

Código:

Private Sub CmdConsultas_Click()
Dim buscar As String
buscar = InputBox(" Ingrese la palabra que desea consultar.", "Palabra")
Data1.Recordset.FindFirst "[descripcion] LIKE '*" + buscar + "*'"
If Data1.Recordset.NoMatch Then
    MsgBox "No hay mas archivos.", vbCritical, "FINAL DE LA CONSULTA"
    CmdConsultas.Visible = False
Else
    CmdConsultas.Visible = True
End If
End Sub

Supongo que "Data1" es un control DAO, si lo fuera de ADO sustituye los comodines (*) por %

[ariesagv]

Iniciado por Avellaneda

Si como dices al principio:

"quiero hacer la consulta, cuando le ponga por ejemplo: incendio que me muestre el texto donde se encuentra dicha palabra"

entiendo que lo que quieres es que busque el primer registro que incluya la palabra en cualquier posición del campo, si así sólo tienes que hacer esto:

Código:

Private Sub CmdConsultas_Click()
Dim buscar As String
buscar = InputBox(" Ingrese la palabra que desea consultar.", "Palabra")
Data1.Recordset.FindFirst "[descripcion] LIKE '*" + buscar + "*'"
If Data1.Recordset.NoMatch Then
    MsgBox "No hay mas archivos.", vbCritical, "FINAL DE LA CONSULTA"
    CmdConsultas.Visible = False
Else
    CmdConsultas.Visible = True
End If
End Sub

Supongo que "Data1" es un control DAO, si lo fuera de ADO sustituye los comodines (*) por %

ok., lo voy a probar , luego te aviso que onda

[ariesagv]

Iniciado por Avellaneda

Si como dices al principio:

"quiero hacer la consulta, cuando le ponga por ejemplo: incendio que me muestre el texto donde se encuentra dicha palabra"

entiendo que lo que quieres es que busque el primer registro que incluya la palabra en cualquier posición del campo, si así sólo tienes que hacer esto:

Código:

Private Sub CmdConsultas_Click()
Dim buscar As String
buscar = InputBox(" Ingrese la palabra que desea consultar.", "Palabra")
Data1.Recordset.FindFirst "[descripcion] LIKE '*" + buscar + "*'"
If Data1.Recordset.NoMatch Then
    MsgBox "No hay mas archivos.", vbCritical, "FINAL DE LA CONSULTA"
    CmdConsultas.Visible = False
Else
    CmdConsultas.Visible = True
End If
End Sub

Supongo que "Data1" es un control DAO, si lo fuera de ADO sustituye los comodines (*) por %

Hola muchas gracias, ya me salio. una pregunta si quiero hacer la consulta de x palabra y que me muestre los registros que tiene dicha palabra; debo usar if anidados y un contador.?

[jc_moty]

No soy muy bueno usando DAO, pero con ADO te quedaria algo asi:

Código:

Dim Data As New Connection
Dim mrs As Recordset
Data.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0; Data source = " & App.Path & "\Data.mdb;Persist Security Info=False;JET OLEDB:DATABASE PASSWORD=427J592C558M"
Data.Open
Set mrs = Data.Execute("SELECT * FROM tabla WHERE campo LIKE '%busqueda%'") 

La linea en negrita es la clave de todo; simplemente haces un SQL que filtre los registros de la tabla que necesitas, con x condicion y ya. Me imagino que en DAO podes usar sentencias SQL ¿o no?

[ariesagv]

Iniciado por jc_moty

No soy muy bueno usando DAO, pero con ADO te quedaria algo asi:

Código:

Dim Data As New Connection
Dim mrs As Recordset
Data.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0; Data source = " & App.Path & "\Data.mdb;Persist Security Info=False;JET OLEDB:DATABASE PASSWORD=427J592C558M"
Data.Open
Set mrs = Data.Execute("SELECT * FROM tabla WHERE campo LIKE '%busqueda%'") 

La linea en negrita es la clave de todo; simplemente haces un SQL que filtre los registros de la tabla que necesitas, con x condicion y ya. Me imagino que en DAO podes usar sentencias SQL ¿o no?

ya lo hice pero me sale un error donde dice que los parametros estan fuera del intervalo o hay un conflicto con otros