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.