Consulta con delphi

[marcoszorrilla]

Código Delphi [-]
Query1.Close;
Query1.Sql.Clear;
Query1.Sql.Add('Select * From '+QuotedStr(MiTabla));

Case Todo_Parte_inicia of
0:Query1.Sql.Add('Where Campo = '+QuotedStr(Cadena));
2:Query1.Sql.Add('Where Campo Like % '+QuotedStr(Cadena+'%'));
end;

Query1.Open;

If Todo_Parte_inicia = 1 then
ShowMessage(IntToStr(Query1.RecordCount));

Solamente es una aproximación.

Un Saludo.

[Ruben_Cu]

Hola a todos, la solución propuesta está buena pero creo que trabajaría mejor si en el nº 2 del Case en lugar de la sentencia propuesta usaramos:

Código Delphi [-]
Query1.Sql.Add('Where Campo Like '+QuotedStr('%'+Cadena+'%'));

La propuesta creo que da error.
Espero valga la aclaración.
Saludos

[zvf]

Gracias por sus respuestas y por su ayuda.

Voy a probar con lo que me estan dando y de nuevo por aqui les aviso como salieron las cosas.

MUCHAS GRACIAS POR TODO !!!!

[zvf]

Aparece un error en la sintaxis,

Código Delphi [-]
Query1.Sql.Add('Where Campo Like % '+QuotedStr(Cadena+'%'));

y tambien en :

Código Delphi [-]
Query1.Sql.Add('Where Campo Like '+QuotedStr('%'+Cadena+'%'));

sabe alguien como debe ser?

quiero que la consulta me regrese los registros en donde el campo inicie con la cadena que yo le escribo, y tambien quiero otra consulta que me regrese los registros en donde la cadena que yo escriba se encuentre al principio, en medio o al final del campo.

GRACIAS POR SU ATENCION Y AYUDA

[marcoszorrilla]

Pues todo me hace pensar que no estás utilizando Paradox, quizás Access, en este último caso substituye el comodín % por *

Un Saludo.

[vtdeleon]

Que error te da en el segundo codigo?? No enteino por que te da error, si está bien el código.

Saludos

[zvf]

Estoy usando componentes zeos, y mi base de datos esta hecha en mysql.
Me marca error en el siguiente codigo:

Código Delphi [-]
 
Query1.Sql.Add('Where `nombre` Like '+QuotedStr('*'+Cadena+'*'));

[zvf]

Ya estuvo, tuve que ponerlo asi:

Código Delphi [-]
Query1.Sql.Add('Where `nombre` Like '+#39 + '%'+Cadena+'%'+ #39 +';');

No se porque no funcionaba como ustedes me decian.

Bueno, MUCHAS GRACIAS POR TODO

[vtdeleon]

AAh

Me marca error en el siguiente codigo:

Código Delphi [-]
Query1.Sql.Add('Where `nombre` Like '+QuotedStr('*'+Cadena+'*'));

Escribe aquí el error que te dá.