Problema en consulta SQL con variables y format
 

Depues de haber leido varios hilos referentew al tema, llegue al siguiente codigo:pero me reclama el "%".... dice el sistema que no es valido el formato o el argumento es incompatible.....

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var consulta,campos,donde,orden : string;
begin
Consulta := 'Select % from resultados where % order by %';
query1.sql.text := format(consulta,[campos,donde,orden]);
query1.ExecSQL;
end;

ilich hernandez.

Gracias.........:(

Saludos
No está clara tu duda, pero deduciendo

Código Delphi [-]
Consulta := 'Select %s from resultados where %s order by %s';

Le he echo la "s" que me faltaba y cuando lo ejecute quedo se cayo y me salio una ventana que dice que no hay sentencia SQL disponible y luego la ventana de la CPU.....lo que estoy tratando de hacer es poder entregar como parametro los campos a seleccionar, los campos para el ordenamiento y los campos del where....

Código Delphi [-]
 procedure TForm1.Button1Click(Sender: TObject);
 var consulta,campos,donde,orden : string;
 begin
 campos := '*';
 donde  := 'codigo_pricipal = "EC SAC 10 005" ';
 orden  := 'codigo_principal';
 Consulta := 'Select %s from resultados where %s order by %s';
 query1.sql.text := format(consulta,[campos,donde,orden]);
 query1.ExecSQL;
 end;

Gracias y saludos

Saludos

Algo que se me pasó, es que veo que usas ExecSql, debes usar Open para sentencias "Select".

Código Delphi [-]
 donde  := 'codigo_pricipal = '+ quotedStr('EC SAC 10 005');

En princpio son comillas simples, a menos que uses Access creo recordar.

saludos

no hay caso de momento.... tira un error distinto ahora..., hasta el mensaje que sale va bien.... la consulta va en la query.sql.text, pero luego lanza el siguiente error :"Could not find object".....

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var consulta,campos,donde,orden : string;
begin

campos := '*';
donde  := 'codigo_pricipal = '+ quotedStr('EC SAC 10 005');
orden  := 'codigo_principal';
Consulta := 'Select %s from resultados where %s order by %s';
//query1.active := true;
query1.sql.text := format(consulta,[campos,donde,orden]);
showmessage(query1.sql.Text);
query1.open;
end;

Saludos y gracias

Ahora no lanza error, resulta que donde dice codigo_pricipal es "codigo_principal"...., gracias por sus ayudas compañeros....... eternamente agradecido......

ilich hernandez.