como evitar varios Query.open..?

[[oscarac]]

tu ejemplo es algo ambiguo.. no creo que las tablas se llamen asi... no sabemos cual es el objetivo de los querys..
da mas detalles y quiza alguien pueda orientarte

[Niiña]

oks. necesito realizar varias consultas select y no quisiera repetir varias veces el mismo codigo.

este es el primero:

Query.Close;
Query.SQL.Clear;
Query.SQL.Add('select max(Tabla1.id)+1 FROM tabla1');
Query.Open;
variable1:= Query.Fields[0].AsInteger;

El segunto select es:

Query.Close;
Query.SQL.Clear;
Query.SQL.Add('SELECT tabla2.id2 from tabla2,tabla3,tabla4,tabla5 where tabla2.id2=tabla3.id3 and tabla4.id4=tabla5.id5 ');
Query.Open;
variable2:=Query.FieldByName('id2').AsInteger;

El nombre de las tablas es un ejemplo.
Asi realizo 4 consultas select pero es mucho. Como puedo hacer para realizar las 4 consultas y no repetir el mismo procedimiento 4 veces.. o una consulta select se tiene que realizar ajuroo con esos pasos osea colocar el Query.close, luego el SQL.clear, el ADD, el open y para otra consulta lo mismo y asi sucesivamente

[[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 Noteví]

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..