TZQuery en tiempo de ejecucion....error

[tgsistemas]

Hola a tod@s

basándome en una respuesta que he encontrado aquí, utilizo el siguiente código :

Código Delphi [-]
procedure TFInsertar.btnhayresultadosClick(Sender: TObject);
var
  MiQry : TZReadOnlyQuery;
  isql : string;
begin
  isql := 'select cdgo from tb03P where (centro = :centrotemp and fecha = :fechatemp);';
  try
    MiQry.Create(nil);
    MiQry.Connection := Data.ZConnectTGS;
    MiQry.SQL.Clear;
    MiQry.sql.Text := isql;
    MiQry.ParamByName('centrotemp').Asinteger := dbedtcentro.Field.Value;
    MiQry.ParamByName('fechatemp').AsDate := bdedtfecha.Date;
    MiQry.Open;

    if MiQry.RecordCount >0 then begin
      labAlerta.Visible := True;
      MessageDlg('No se permite Duplicar Datos en la Fecha Seleccionada, por favor revíselo... ', mtError, [mbOK], 0);
      bdedtfecha.SetFocus;
    end else begin
      labAlerta.Visible := False;
    end;
  finally
    MiQry.Close;
    MiQry.Free;
  end;
end;

pero al ejecutarlo me produce el siguiente error :

---------------------------
Debugger Exception Notification
---------------------------
Project GNATURCCOpe.exe raised exception class EAccessViolation with message 'Violación de acceso en la dirección 005997AE en módulo 'GNATURCCOpe.exe'. Leer de dirección 00000000'. 
Process stopped. Use Step or Run to continue.
---------------------------
OK   Help   
---------------------------

el error se produce en MiQry.Create(nil) pero ahí me he atascado ya que no sé por qué se produce o quién lo provoca... obviamente a parte del que os escribe

P.D.: D7+MySql5.0+Zeos

[[Caral]]

Hola
Normalmente, según tengo entendido, para crear componentes en ejecución se necesita que este ligado al padre.
Me da la impresión de que podría estar por ahí el error, ademas de que al crear el componente simplemente lo haces, sin definir la variable MiQry
Prueba asi, tal vez te sirva.

Código Delphi [-]
procedure TFInsertar.btnhayresultadosClick(Sender: TObject);
var
  MiQry : TZReadOnlyQuery;
  isql : string;
begin
  isql := 'select cdgo from tb03P where (centro = :centrotemp and fecha = :fechatemp);';
  try
   MiQry := TZReadOnlyQuery.Create(Self);
   with MiQry do
   begin
    Parent := Form1; // donde estará el ZReadOnlyQuery
    MiQry.Connection := Data.ZConnectTGS;
    MiQry.SQL.Clear;
    MiQry.sql.Text := isql;
    MiQry.ParamByName('centrotemp').Asinteger := dbedtcentro.Field.Value;
    MiQry.ParamByName('fechatemp').AsDate := bdedtfecha.Date;
    MiQry.Open;

    if MiQry.RecordCount >0 then begin
      labAlerta.Visible := True;
      MessageDlg('No se permite Duplicar Datos en la Fecha Seleccionada, por favor revíselo... ', mtError, [mbOK], 0);
      bdedtfecha.SetFocus;
    end else begin
      labAlerta.Visible := False;
    end;
  finally
    MiQry.Close;
    MiQry.Free;
  end;
end;
end;

No se, digo...., aunque también, digo, no se....
Saludos

[tgsistemas]

gracias [Caral]

ya me imaginaba que el que escribe tenía algo que ver he probado el código con las modificaciones que indicabas y funciona perfectamente

No tengo tan claro que en tiempo de ejecución se deba asociar un componente con "un padre" ya que al fin y al cabo, entiendo yo , se puede crear sin dependencia de nadie. Creo que mi error estaba en que al crearlo no lo definía bien, faltaba el MiQry := TZReadOnlyQuery.Create(Self);.

Pero dejando de lado las interpretaciones, que seguramente tendrás razón, muchas gracias por la ayuda . Estaba tan obsesionado con que era algo de los Zeos que no he controlado lo más obvio.

Muchas Gracias [Caral] por la ayuda y más en domingo !!!!

[[AzidRain]]

Aunque la solucion al final te sirvió, no es la correcta, no es necesario definir un "padre" para ningún componente creado via código salvo que queramos que este "padre" libere los recusos del mismo, tu código es correcto salvo la sentencia: "Parent := Form1; // donde estará el ZReadOnlyQuery", ya que es innecesaria. Un TZQuery no necesita un padre para funcionar si pruebas nuevamente tu código original quitando esta línea te va a funcionar sin problemas. Es redundante decirle que su padre es tal o cual forma si al final de todos modos tu mismo lo vas a liberar. El error surge porque primero lo creas sin padre y luego le dices que siempre sí tiene...

[[Caral]]

Hola
Se me ocurre, con el afán de aprender:
Normalmente los componentes se colocan el un form, creados o no en tiempo de ejecución.
En el caso de un componente que va a enlazar a una tabla, normalmente este, esta ligado a otros componentes para actuar como puede ser un simple dbgrid, con su correspondiente datasource.
Ahora mi pregunta:
Si para conectar un dbgrid a un query (por ejemplo) que esta en un datamodule (por ejemplo), necesitamos indicarle la dirección, no tendríamos que indicarle al query creado por código donde residir?.
En sana teoría al ser creado en el código (unit) de un form en especial debería de suponerse que pertenece a este, no lo se, ¿de ahí podría venir la redundancia que mencionas?.
Por supuesto nunca he hecho esto de crear querys por código, pero me cuestiona la necesidad de enseñarle donde trabajara ya que sus (hijos) dbgrid etc) se conectaran a el.
¿Por que un query no necesita padre y otros componentes si?, o se aplica para todos por igual?, hay alguna diferencia en que sean visibles o no?.
En tal caso la duda podría tenerla también cualquier otro novato y al estar latente seria bueno que nos ampliaras un poco las razones, si fueras tan amable.
Saludos

[BrunoBsso]

En el momento de crear el Query (si lo creás como público en tu form) éste ya pertenece a la unit de dicho form, aunque no pertenezca al form. Un query, al ser no visual, no necesita tener un padre.
Desde cualqier otra unidad/datamodule que tengas por ahí si necesitás conectar algo al Query que creaste en el FormLala, simplemente le das la dirección (FormLala.Query) y listo.

Ejemplo:
Tengo un DataModule llamado DM.
Tengo un Form llamado FBruno.
En FBruno necesito usar un QueryBruno que está en DM.
Cuando, desde mi FBruno, llamo a QueryBruno, ¿cómo lo hago?
Le indico al compilador unit.objeto -> DM.QueryBruno

Creo que se entiende.
Saludos!!!!!!!!

[[AzidRain]]

Es del todo incorrecto Caral, los componentes no son mas que objetos en sí y no residen en en ningún lado salvo en tiempo de diseño. Si creas un componente en tiempo de ejecución no es necesario indicarle en donde "reside". Cuando creamos una instancia de cualquier componente en tiempo de ejecución (como es el caso) nosotros mismos somos responsables de su "ciclo de vida" de ahí que tengamos que liberarlo por nuestra cuenta, pero insisto, no es necesario y es hasta ociosos y causa problemas definirle un "padre". Esto lo hace Delphi cuando usamos componentes en tiempo de diseño.

[tgsistemas]

personalmente opino como [AzidRain], pero explico el caso para que quede más claro.

En el caso en cuestión, sólo es necesario lanzar una consulta de recordcount con parámetros, no lleva componentes visuales asociados (dbgrids, dbtext, etc....) por lo que no le veo sentido decirle que pertenecerá a este o a otro form. Es más, la idea es convertir ese código en una función para que esté disponible desde cualquier form por lo que la creación, vida y destrucción del componente nos corresponde a nosotros.... menudo poder

Ayer estuve provando el código sin la sentencia "Parent := Form1; // donde estará el ZReadOnlyQuery" y funciona correctamente.... exactamente igual que con ella

Saludos y gracias a ambos !!!!!!

[[Caral]]

Hola
Gracias por la explicación.
Creo entender:
1- Si se declara publico y es no visible es innecesario declararle un padre, la misma unit sera este, como explica BrunoBsso
2- Un componente es un objeto y no reside en ningún lado, como explica AzidRain.
Interesantes observaciones, he aprendido mucho.
El único detalle que quedaría (para novatos) es que creo que no se puede generalizar al decir que un componente no necesita padre al ser creado en tiempo de ejecución, creo que dependerá del componente y de su ubicación.
Creo que un componente puede necesitar residir en algún lado, necesitando crearle tanto el padre como otros factores, si no de hecho ni existiría el termino padre.
Os agradezco la ampliación, estoy seguro que este tema a mas de un novato nos a sido de utilidad.
Saludos

[roman]

Nada más para afinar un poco lo que ya se ha dicho.

No confundir el término padre (parent) con dueño (owner). Sólo los componentes visuales tienen un padre. Los no visuales carecen de dicha propiedad.

El encargado de liberar recursos es el dueño, no el padre.

// Saludos

[[Caral]]

Hola
A esto es lo que quería llegar ya que se puede confundir a un novato con facilidad.
Por eso comente la necesidad de ampliar el concepto.
Estoy seguro que AzidRain se refería a los componentes NO visuales, si embargo nunca hizo o marco la diferencia como si lo hizo BrunoBsso y ahora Roman.
Todo esto por el comentario de tgsistemas el cual dice en su segundo post en forma muy general:

Empezado por tgsistemas

No tengo tan claro que en tiempo de ejecución se deba asociar un componente con "un padre" ya que al fin y al cabo, entiendo yo , se puede crear sin dependencia de nadie.

Esto fue avalado por AzidRain en sus comentarios, pero sin definir la diferencia, siempre en forma general:

Empezado por AzidRain

no es necesario definir un "padre" para ningún componente creado via código salvo que queramos que este "padre" libere los recusos del mismo.....
.........
Es redundante decirle que su padre es tal o cual forma si al final de todos modos tu mismo lo vas a liberar

No intento indicar quien o no tenga razón, intento comentar como ya lo hice, por supuesto sin conocimiento, que no se podía generalizar.
Por eso para mi poco conocimiento el comentario de BrunoBsso:

Empezado por BrunoBsso

Un query, al ser no visual, no necesita tener un padre.

Y por ultimo de Roman:

Empezado por Roman

No confundir el término padre (parent) con dueño (owner). Sólo los componentes visuales tienen un padre. Los no visuales carecen de dicha propiedad.

El encargado de liberar recursos es el dueño, no el padre.

Son los mas acertados, sin menospreciar a ningún otro y por supuesto con el afán de que el que pueda ver este hilo le quede un poco mas clara la diferencia.
Muchas gracias a todos vosotros por ampliar y aportar y a tgsistemas por dejarme invadir su hilo.
Saludos

[tgsistemas]

Hola,

tienes toda la razón [Caral] en las observaciones, cuando dije :

Empezado por tgsistemas
No tengo tan claro que en tiempo de ejecución se deba asociar un componente con "un padre" ya que al fin y al cabo, entiendo yo , se puede crear sin dependencia de nadie.

me estaba refiriendo a un componente no visual y lo debería haber especificado para que quedara bien claro. Seguramente pensé más rápido de lo que escribía y daba por hecho que todo el mundo entendía que era un componente no visual.

Perdón por la confusión, en los próximos hilos intentaré detallar al máximo la info para no confundir.

Muchas gracias a todos, en especial a tí [Caral] por la ayuda y sobre todo en Domingo !!!!