2 TADOQueries

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

[[Caral]]

Hola
Perdona mi ignorancia pero sigo sin entender, tal vez analizando el codigo paso a paso lo pueda entender mejor, me ayudas?.
Primera parte:
Aqui defines una constante y las variables que haran una operacion final.

Código Delphi [-]
const
  sqlMuchos1 = ' Select * from muchos where IdTipo = "NM" ';
  sqlMuchos2 = ' Select * from muchos where IdTipo = "M" ';
var
  P,S,T : string;

Segunda parte:
Identificas las tablas con las constantes y las activas,
Con la primera tabla haces que la variable P contenga unos datos de la misma.

Código Delphi [-]
 with ADOQuery1 do
 P:= FieldByName('prefijo').AsString+ FieldByName('nom').AsString+FieldByName('sufijo').AsString+'  ';

Tercera Parte:
En el mismo ciclo haces que la variable S contenga los mismos datos que la variable P solo que con una una diferencia en el IdTipo, sumas las dos y luego colocas todo en un listBox.

Código Delphi [-]
S:= FieldByName('prefijo').AsString+ FieldByName('nom').AsString+FieldByName('sufijo').AsString;
  T:=P+S;
   ListBox1.Items.Add(T);
   next;

No se pero a mi me parece que se repiten un poco de todo, no es asi?.
Saludos

[Deiv]

Hola,
Gracias Caral por preocuparte de mi asunto, disculpa si estoy muy torpe con mis preguntas (quizá inentendibles) es lo que me pasa por ser más novato (autodidacta) que muchos novatos.
No tengo conexión a Internet en Casa y me valgo de Cibers, me he percatado que tengo una nueva respuesta tuya, por ello no respondí antes.
Toda tu comprensión está clarísima, solo que me parece que no me estoy dejando entender. Quiero hacer algo parecido a:

Código Delphi [-]
 
for i:=1 to 100 do  //100 digamos
   begin    
       P:=..... //Primero guardo el nombre BASE (en mi código = No Metales) revisando cada registro filtrado por "NM"
       for j:=1 to 50 do  //50 digamos
           begin              
              S:= .....//Segundo guardo el nombre (en mi código = Metales) revisando cada registro filtrado por "M"
              T:= P+S; // Junto las Cadenas para que me resulte un Nombre Completo de la SAL y mostrarlo en un TListBox
           end;
   end;

En realidad mi código trabaja con 2 TADOQueries, pero más era la curiosidad (por aprender mejor a programar) de ver si se podía con 1 solo TADOQuery
Digo una cosa.... ¿Podrías copiar mi código del post#1 readecuarlo y obtener el mismo resultado pero con 1 solo TADOQuery?