Problema en consulta SQL con variables y format

[ilichhernandez]

Depues de haber leido varios hilos referentew al tema, llegue al siguiente codigoero 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.........

[vtdeleon]

Saludos
No está clara tu duda, pero deduciendo

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

[ilichhernandez]

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

[vtdeleon]

Saludos

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

[[Lepe]]

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

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

saludos

[ilichhernandez]

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

[ilichhernandez]

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

ilich hernandez.