como evitar varios Query.open..?

[[oscarac]]

mmmm podrias usar arrays
ejemplo
array[0] := 'Select.....'
array[1] := 'Select.....'
array[2] := 'Select.....'
array[3] := 'Select.....'

cuando quieras invocarlas haces un for
algo asi...

Código Delphi [-]
 
For x := 0 to 3
Query.Close;
Query.SQL.Clear;
Query.SQL.Add(Array[x]);
Query.Open;
If x=0 then
variable1:= Query.Fields[0].AsInteger
if x = 1 then
Variable2:= Query.FieldByName('id2').AsInteger; 
if x= 2 then
variable3 := ......
if x=3 then
Variable4 := .....

[[fjcg02]]

Haz una función... y utilizala en cada caso.

Código Delphi [-]
function Pedirdato ( SQL, Resultado:string): integer;
begin
  Query.Close;
  Query.SQL.Clear;
  Query.SQL.Add(SQL);
  Query.Open;
  return:= Query.FieldbyName.(resultado).AsInteger;
end;

Saludos

[Casimiro Notevi]

Amigo, ni que fueses novato
¡¡¡Las etiquetas del código!!!

[[oscarac]]

al mejor cazador se le va la presa

[abelg]

Mira, puedes crearte un procedimiento asi:

Código Delphi [-]
procedure ExecuteQuery(qry:TQuery; Sql : String);
begin
  qry.Close;
  qry.SQL.Clear;
  qry.SQL.Add(Sql);
  qry.Open;
end;

Luego a este lo llamas desde los diferentes lugares asi:

Código Delphi [-]
var Sql : string;
begin
  if CheckBox1.Checked then
    sql := 'Select * from inv_clipro'
  else
    sql := 'Select * from inv_productos';
  ExecuteQuery(Query1, Sql);
end;

solo a manera de ejemplo, espero te ayude.
salu2

[Niiña]

Gracias a todos.. Deja ver que tal sale..