Programación General > Delphi

 2 Adoquery

(1/1)

Deiv:
Tengo el siguiente código delphi con una Tabla relacionada:

--- Código: Text ---procedure TForm1.Button1Click(Sender: TObject);const  sqlMuchos1 = ' Select * from muchos where IdTipo = "NM" ';  sqlMuchos2 = ' Select * from muchos where IdTipo = "M" ';  var  P,S,T : string;begin  ADOQuery1.Active:= False;  ADOQuery1.Sql.text := sqlMuchos1;  ADOQuery2.Sql.text := sqlMuchos2;  ADOQuery1.Active:= True;  ADOQuery2.Active:= True;   with ADOQuery1 do    begin       first;       while not eof do         begin             P:= FieldByName('prefijo').AsString+ FieldByName('nom').AsString+FieldByName('sufijo').AsString+'  ';             with ADOQuery2 do                begin                   first;                   while not eof do                      begin                         S:= FieldByName('prefijo').AsString+ FieldByName('nom').AsString+FieldByName('sufijo').AsString;                         T:=P+S;                         ListBox1.Items.Add(T);                         next;                      end;                end;             next;         end;    end;  end; Adjunto la BD hecha en Access, y la imagen de relación.

Me preguntaba si se puede realizar la misma operación con UN SOLO ADOQuery?
o ¿Necesariamente debo utilizar los 2 ADOQueries porque son 2 consultas diferentes? (pregunto porque son mis primeros pasos con SQL)
En todo caso ¿Cuál sería la modificación de mi código para que trabaje con un solo TADOQuery si se puede?

Navegación

[0] Índice de Mensajes