Variables por Referencia y Query

[Raynel]

Saludos amigos,

Estoy haciendo un query en Paradox con el siguiente código:


Código Delphi [-]
procedure TForm.Query(Var X: String;Var Y: String);
begin
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Text:='SELECT :X1 FROM Tabla WHERE CampoTal = :Y1 AND Fecha BETWEEN :Fec1 AND :Fec2';
Query1.ParamByName('X1').asString :=X;
Query1.ParamByName('Y1').asString := QuotedStr(Y);
Query1.ParamByName('Fec1').asDateTime := DateTimePicker1.Date;
Query1.ParamByName('Fec2').asDateTime := DateTimePicker2.Date;
Query1.RequestLive := true;
Query1.Open;
end;





Pero no efectúa ninguna consulta, que hay de malo? Gracias de antemano.

[[Lepe]]

En el select no se admiten parámetros, usa otra forma:

Código Delphi [-]

const Misql = ' select %s from %s where CampoTotal = %s and fecha between :fini and :ffin'
begin

query1.sql.text := Format(Misql, ['Nombre', 'Mitabla', '33']);
Query1.ParamByName('fini').asDateTime := DateTimePicker1.Date;
Query1.ParamByName('ffin').asDateTime := DateTimePicker2.Date;

Saludos