like

[Migue Rguez]

Buenas de nuevo, gracias por vuestro aporte pero creo q yo debí haberme explicado mejor con un caso practico...

Supongamos q en CLAVES tengo una seria de adjetivos tales como
frio,
calor,
interesante,
aburrido,
intenso,
suave...
etc.. etc...

y el usuario introduce una frase en un TEdit tal como
'El frio era tan intenso q dolía la cara'.

Pues bien, el cometido sería q apartir de la frase introducida podamos tener como resultado los registros frio e intenso.

La solución q me da JOSEA ya la probé en su momento puesto q fue lo más lógico, pero ésto no da ningun resultado ni con like '%'+campo+'%' ni tampoco con like '%'||campo||'%'

Ahora mismo, para salir del paso, lo tengo solucionado con la funcion Pos

While not sql1.EOF do
begin
If Pos(sql1.FieldByNameAsString('CLAVES'), Edit1.Text) > 0 then
ShowMessage(' --- CADENA ENCONTRADA --- ');
sql1.Next;
end;

Pero a medida q el campo 'CLAVES' vaya teniendo más registros esto puede hacerse eterno.

Saludos y gracias!

[[Lepe]]

La forma que se me ocurre tampoco es eficiente, pero en fin...

Código SQL [-]
 select * from tabla
where campo in ('El','frío','era','tan','intenso','que','dolia','cara')

El servidor puede volverse loco cuando sea un párrafo entero pero será cuestion de enviarle peticiones con frases cortas.

Hacerlo es muy fácil, solo necesitas una rutina que al pasarle una frase, detecte el espacio en blanco y use QuotedStr para añadirle las comillas y le añada las comas.

A ver si alguien aporta un método más eficiente.

Saludos

[Migue Rguez]

Gracias Lepe!

Muy ingeniosa la propuesta e incluso la veo factible pues en mi caso, la cadena a pasar dudo q contenga más de 8 o 10 palabras.

No obstante, no me saca del aprieto esta forma ya q los registros del campo CLAVES pueden contener mas de una palabra. De todas formas gracias ya q estamos aprendiendo todos un poco.

Saludos

[FOURIER]

para el gestor

Código Delphi [-]
select * from tabla1 where 'El frio era tan intenso q dolía la cara'  like '*'+Campo+'*';

para delphi

Código Delphi [-]
Query.SQL.Text:='select * from tabla1 where '+''''+'El frio era tan intenso q dolía la cara'+''''+'  like '+''''+'%'+''''+'+'+Campo+'+'+''''+'%'+'''';
Query.Open

Puesto de otra manera

Código Delphi [-]
Query.SQL.Text:='select * from tabla1 where '+''''+ORACION.TEXT+''''+'  like '+''''+'%'+''''+'+'+Campo+'+'+''''+'%'+'''';
Query.Open