Intercalar Variable en SQL...

[foetus]

Necesito que alguien me diga como intercalar variables en una consulta SQL.
El objetivo de esto es que el usuario eliga la forma de la busqueda..
por ejemplo si temgo um comboBox, con Buscar por fecha, por ID , o por nombre, guardaré esto en una variable consulta...

Como pondria la variable aquy?
Por ej: Select * from ORDENES Where ....variable...... =" +Edit1.Text;

Saludos.....

[*Caro*]

Hola foetus, tendrias que tener una variable donde almacenar el nombre del campo por el cual quieres hacer la busqueda y despues lo concatenas.

Código Delphi [-]
Var
 campo:String;
begin  
 Case ComboBox1.ItemIndex of
 0:campo:='fecha';
 1:campo:='id';
 2:campo:='nombre';
 end;
  ........
  Query1.Sql.Text:='Select * from ORDENES Where '+campo+'=' +Edit1.Text;
  ........

Saludos

[ContraVeneno]

¿Para que declarar una variable tipo Cadena si con la propiedad "Text" del combo se puede realizar ?

Código Delphi [-]
with TuQuery do begin
 If active then close;
 SQL.Clear;
 SQL.Add('Select Campos');
 SQL.Add('From TuTabla');
 SQL.Add('Where :Campo = :Valor');
 ParamByName('Campo').AsString := TuCombo.Text;
 ParamByName('Valor').AsString := TuEdit.Text;
 Open;
 .......
end;

[foetus]

gracias por ayudarme en esto ah Ambos.....

...saludos

[foetus]

Código Delphi [-]
ADOQuery1.Close;
with ADOQuery1 do begin
If active then close;
SQL.Clear;
SQL.Add('Select *');
SQL.Add('From Ordenes');
SQL.Add('Where :Campo = :valor');
ParamByName('Campo').AsString := ComboBox1.Text;
ParamByName('valor').AsString:= Edit4.Text;
ADOQuery1.Open;

algo como esto trate de hacer. pero no me funciona, me da error en la parte del parametro:ParamByName('Campo').AsString := ComboBox1.Text;

Tambien traté: ADOQuery1.Paremeters.ParamByName('campo').AsString := ComboBox1.text;

no se que pueda ser??

[ContraVeneno]

Si nos dices que error es el que te da, podríamos darte una idea... pero así adivianando cuál es el error pues no se me ocurre nada.

Código Delphi [-]
with ADOQuery1 do begin
 If active then close;
 SQL.Clear;
 SQL.Add('Select *');
 SQL.Add('From Ordenes');
 SQL.Add('Where '+ComboBox1.Text+' = :Valor');
 ParamByName('Valor').AsString := TuEdit.Text;
 Open;
 .......
end;

[foetus]

bueno...
iva a incluir los errores, en el mensage anterior.. pero creí que los tenia en un USB, y no era asi... aquy estan los errores que me da......
Este es el Codigo:

Código SQL [-]
begin
ADOQuery1.Close;
with ADOQuery1 do begin
If active then close;
SQL.Clear;
SQL.Add('Select *');
SQL.Add('From Ordenes');
SQL.Add('Where :Campo = :valor');

ParamByName('Campo').AsString := ComboBox1.Text;

ParamByName('valor').AsString:= Edit4.Text;
ADOQuery1.Open;


end;

errores......

Undeclared identifier: 'ParamByName'

Missing operator or semicolon

[[jcarteagaf]]

Debes usar:

Código Delphi [-]
with ADOQuery1 do
begin
  Parameters.parambyname('PARAMETRO').Value := valor;
...
end;

Saludos