Problema con un TADOQuery

[Holderhek]

Hola

Lo que pasa es que tengo un programa que hago consultas a cada rato y relleno cosas en tiempo de ejecucion. Entonces no quiero ocupar Componentes que linkeen a componentes del dbGo para que se carguen automaticamente los datos.

Prefiero recorrer los resultados yo y agregarlos como yo quiero.

Bueno, mi problema es el siguiente; como hago consultas a cada rato, si agrego un componente TADOQuery (En diseño) y al ocuparlo surge el problema de tener que hacer otra consulta, y para esto, necesitare otro TADOQuery (Si hago una consulta dentro de otra no puedo ocupar el mismo TADOQuery).

Por ejemplo:

Query1.Close;
   Query1.SQL.Text:='SELECT * FROM Tabla';
   Query1.Open;
   For i:=0 to Query1.RecordCount-1 do
   begin
     Query2.Close;
     Query2.SQL.Text:='SELECT * FROM Tabla2 WHERE ID='+Query1.Fields[0].AsString;
     Query2.Open;
     For j:=0 to Query2.RecordCount-1 do
     begin
   	//
     end;
   end;

Para realizar ese tipo de consultas, necesito dos TADOQuery. Y como hago varias consultas, (El Usuario puede buscar, o ver items con ciertos filtros, etc) puede pasar que se ocupe el mismo TADOQuery y un procedure lo cierre mientras que otro lo esta viendo.

Ahora mi problema no es ete, mi problema es el siguiente:
Puse un TADOConnection seteado para la base de datos (Access)
Y en el codigo puse esto:

procedure TForm1.Abrir(...);
   var
    Query1: TADOQuery;
   begin
     Query1.Connection: ADOConnection1;
     Query1.Close;
     Query1.SQL.Text:='...';
     Query1.Open;
   end;

y al ejecutarlo me da un error de EAccessViolation

Project Project1.exe raised an exception class EAccessException with message 'Access violation at address C38B0000. Read of address C38B0000'.

Entonces, quisiera saber si alguien me puede explicar que paso, y las propiedades que deben tener el TADOConnection y el TADOQuery que yo cree, o si esto definitivamente no se puede y tengo que pensar en otra forma para hacerlo. (Ocupo Delphi 2005).

Bueno, gracias por su tiempo.

Saludos

[unoccio]

El problema es que estás definiendo un objeto Query1 y no lo estás creando.
una forma segura de trabajar cuando se crean objetos es así:

var
Query1: TADOQuery;
begin
Query1:= TADOQuery.Create(nil);//ponele el owner que quieras
try
try
Query1.Connection:= ADOConnection1;
Query1.Close;
Query1.SQL.Text:='...';
Query1.Open;
except
...//procesamiento de errores.
end;
finally
Query1.Close;
Query1.Free;//no te olvides de liberar la MEM!!!,
end;
end;

[Holderhek]

Hola

Muchas gracias, ahora funciona.

Saludos.