2 TADOQueries

[Deiv]

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

Código Delphi [-]
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.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.
Me preguntaba: ¿se puede realizar la misma operación con UN SOLO TADOQuery?

o ¿Necesariamente debo utilizar los 2 ADOQueries porque son 2 consultas diferentes? (pregunto porque son mis primeros pasos con SQL)

[[Caral]]

Hola
Para mi se puede con un solo query, ya que la sentencia que usas esta en una constante, en vez de llamar al query uno o dos, llamaria a la costante, recuerda que Text elimina todo, asi que se puede usar solo uno.
Saludos

[Deiv]

¿Cómo?
Pues me parece que en la linea:

Código Delphi [-]ADOQuery1.Active:= True;


no puede existir dos Consultas Activas.

Empezado por Caral

llamaria a la costante, recuerda que Text elimina todo

Entonces mi 2do bucle ya no funcionaría
¿Cuál sería la modificación de mi código para que realice el mismo trabajo con un solo TADOQuery?

[[Caral]]

Hola
Ve por ejemplo un pedacito de mi programa:

Código Delphi [-]
QTemp.SQL.Text := 'Select CodUsuario From Usuarios WHERE Graficar =True';
QTemp.Active := True;
      While not QTemp.Eof do
      begin
      CBUsuarios.Items.Add(QTemp.Fields[0].Text);
      QTemp.Next;
      end;
QTemp.Active := False;
QTemp.SQL.Text := 'Select Descripcion From Estaciones WHERE Graficar =True';
QTemp.Active := True;
      While not QTemp.Eof do
      begin
      CBEstaciones.Items.Add(QTemp.Fields[0].Text);
      QTemp.Next;

Aqui con un ADOQuery (QTemp.) llamo primero a la tabla Usuarios cargo los datos en un combobox (CBUsuarios.) y luego con el mismo query llamo a la tabla Estaciones y cargo los datos en CBEstaciones.
El concepto que aplicas es esencialmente el mismo, solo que la sentencia sql la pones en una constante, nada mas.
Bueno es mi humilde opinion.
Saludos

[Deiv]

En este momento no tengo Delphi a mano, pero probaré tu sugerencia y mañana os comento.

[Deiv]

Hola,

Empezado por Caral

El concepto que aplicas es esencialmente el mismo, solo que la sentencia sql la pones en una constante

no me había percatado que tiene una opción que desactiva la consulta, y mi código lo que hace es recorrer la tabla con un "sqlMuchos1" primero, luego recorre con "sqlMuchos2", me gustaría que observasen el fichero Access y lo probasen con Delphi para ver que realmente intento hacer. El consejo de Caral está bueno pero en la línea:

Código Delphi [-]
QTemp.Active := False;

desactiva la consulta y EMPIEZA de nuevo otra consulta, y si se fijan Yo tengo una línea que dice FIRST después de recorrer todos los registros del segundo bucle, si desactivara la anterior consulta a FALSE cada vez empezara la nueva repitiendo lo mismo.

OBJETO     USO       TIPO
Compu     Nueva    Externo
Compu     Vieja    Externo
Monitor   Nuevo    Externo
Monitor   Viejo    Externo
Tarjetas  Nuevas   Interno
Tarjetas  Viejas   Interno
Pernos    Nuevos   Interno

Filtro por Tipo=Externos (1er Bucle) y Filtro por Tipo=Internos (2do Bucle)

Compu Nueva TIENE Tarjetas Nuevas
Compu Nueva TIENE Tarjetas Viejas
Compu Nueva TIENE Pernos Nuevos
Compu Vieja TIENE Tarjetas Nuevas
Compu Vieja TIENE Tarjetas Viejas
Compu Vieja TIENE Pernos Nuevos

Monitor Nuevo TIENE Tarjetas Nuevas
Monitor Nuevo TIENE Tarjetas Viejas
Monitor Nuevo TIENE Pernos Nuevos
Monitor Viejo TIENE Tarjetas Nuevas
Monitor Viejo TIENE Tarjetas Viejas
Monitor Viejo TIENE Pernos Nuevos

De repente mi Tabla no esté muy bien encarada (es decir la BD) pero lo que intento es demostrar con este ejemplo lo que quiero hacer con los nombres de compuestos químicos (esa es mi tabla Access).