2 TADOQueries

[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?

[[Caral]]

Hola
Que problema ser mas novato que el que pregunta, pero bueno, si te animas.
Me extraña la palabra Guardo, donde guardas, supongo que en memoria, porque no veo que sea en ninguna tabla.
Ahora a tu curiosidad, casi estoy convencido que se puede hacer lo que quieres con una sentencia sql distinta en un solo query, pero no veo el porque preocuparse de tener 2 query en un form para una misma consulta.
Como soy mas novato que tu y tambien autodidacta en ocasiones he usado mas de dos querys en una consulta, por lo menos al inicio, casi un año.
Yo no me preocuparia de estas cosas, seguiria adelante, sobre todo porque funciona, y con el tiempo te daras cuenta de mas cosas, se llama practica, nos pasa a todos.
Me parece muy bien tu curiosidad, pero no lo veo como algo grave que te tenga que preocupar ahora, para mi vas mejor que yo.
Saludos

[Deiv]

Gracias por los ánimos, en verdad no mentía: si soy supernovato puedes leer en este hilo, en el post #9
Me hubiera gustado salir de esta duda, pero si no hay problema, entonces seguiré con mis 2 TADOQueries.

[[cHackAll]]

Lastimosamente concuerdo con el amigo Caral con lo de "dejarlo pues funciona", pero no por "iniciar" en programación, pues si te metiste a hacerlo es porque puedes; si no porque es importante tener en mente que si quieres volverlo "perfecto", perderás la relación costo - beneficio y acabarás quemando tu cerebro y muchas horas en optimización.

Paradójicamente y al igual que tu me gusta que las cosas queden lo más parecido a perfecto (¿?) posible; asi que si estas dispuesto vamos a analizar las alternativas. Por lo que tengo entendido quieres hacerlo todo simplemente con una sentencia SQL; en tal vaso te dejo la siguiente corrección:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
 ADOQuery1.SQL.Text := 'select nm.prefijo + nm.nom + nm.sufijo + ''  '' + m.prefijo + m.nom + m.sufijo from muchos nm, muchos m where nm.idtipo = ''NM'' and m.idtipo = ''M'' order by nm.prefijo + nm.nom + nm.sufijo + ''  '' + m.prefijo + m.nom + m.sufijo';
 ADOQuery1.Active:= True;
 with ADOQuery1 do
  begin
   First;
   while not EOF do
    begin
     ListBox1.AddItem(Fields.FieldByNumber(1).AsString, nil);
     Next;
    end;
  end;
end;

No dejes de comentarnos como te va!

Edito: Tambien debemos ver cual de las dos alternativas es la más optima. En ESTE caso lo es la última por usar solo un bucle, pero si trabajamos en red debemos analizar qué es lo mas importante, pues con ésta le estamos reduciendo trabajo a las PCs Clientes; con tu solución le aumentamos un poco a las mismas, pero en teoria le reducimos algo al Servidor.