6 respuestas en este tema

[roca]

Hola a todos...
Estoy trabajando con formularios MDI, y al momento de llamar desde el formulario donde tengo el Menu Principal, al formulario hijo, me aparece el siguiente mensaje de error:
Project Software.exe raised exception class $C0000005 with message 'c0000005 ACCESS_VIOLATION'

Y al pulsar en el botón "Break" del mensaje de error, aparece sombreada la siguiente linea (que pertenece al Create del formulario hijo):
  with frmActividadEconomica.AdoQuery1 do


El codigo que tengo en el MDI Padre es:

delphi

procedure TfrmMenuPrincipal.ActividadEconomica1Click(Sender: TObject);
begin
   TfrmActividadEconomica.Create(Application);
   with TfrmActividadEconomica.Create(Application) do Show;
end;

El codigo que tengo en el MDI Hijo es:

delphi

procedure TfrmActividadEconomica.FormCreate(Sender: TObject);
begin
   with frmActividadEconomica.AdoQuery1 do
   begin
      Close;
      SQL.Clear;
      SQL.Text := 'SELECT * FROM T_ACTIVIDAD_ECONOMICA';
      Open;
   end;
end;

He estado leyendo que es por no declarar variables, que la aplicacion no encuentra el formulario hijo, etc... pero de verdad, no he logrado dar con la solucion. Seguramente falta algo, pero no sé qué es... 

De antemano, les agradezco su ayuda.

[Sergio]

Prueba con "with AdoQuery1 do" o bien "with self.AdoQuery1 do", y supongo que AdoQuery es un componente "pegado" en el form, no está creado por código.

También podría ser necesario pasarlo de oncreate a onactivate, mirando si adoQuery esta si conectar y solo en ese caso conectas, para evitar reconectar al pasar de un form a otro.

[Wilson]

El codigo que tengo en el MDI Padre es:

delphi

procedure TfrmMenuPrincipal.ActividadEconomica1Click(Sender: TObject);
begin
   TfrmActividadEconomica.Create(Application);
   with TfrmActividadEconomica.Create(Application) do Show;
end;

Nota que en el anterior trozo de código estás creando dos estancias de la clase TfrmActividadEconomica, con la primera no haces nada, con la segunda intentas mostrarla.

Intenta con lo siguiente:

delphi

procedure TfrmMenuPrincipal.ActividadEconomica1Click(Sender: TObject);
var
FormActividadEconomica : TfrmActividadEconomica;
begin
   FormActividadEconomica :=  TfrmActividadEconomica.Create(Application);
   FormActividadEconomica .Show;
end;

Debes notar que en el modelo que planteas, cada vez que hagas click en el item de menú se va a crear y mostrar una estancia del formulario en cuestión, y este a su vez en cada llamada lanzará una consulta a la DB. ¿Es eso lo que pretendes?

También tienes que tener en cuenta  la liberación de los formularios al cerrarlos .

En el form hijo intenta con las recomendaciones de Sergio, más o menos así:

delphi

procedure TfrmActividadEconomica.FormCreate(Sender: TObject);
begin
   with AdoQuery1 do
   begin
      Close;
      SQL.Clear;
      SQL.Text := 'SELECT * FROM T_ACTIVIDAD_ECONOMICA';
      Open;
   end;
end

Saludos.

[roca]

Muchas Gracias, Sergio y Wilson, por la ayuda prestada, he realizado lo que me indicaron y ha dejado de aparecer el Access Violation.
Efectivamente, debo mejorar lo que comenta Wilson, acerca de la creacion multiple del mismo formulario, ya estuve viendo un
procedimiento que maneja adecuadamente esta situacion, pronto se las estaré comentando.

Les comento que ahora el error que aparece es en el boton Grabar, el procedimiento que tengo es:

delphi

procedure TfrmActividadEconomica.BtnGrabarClick(Sender: TObject);
begin
   with self.ADOQuery1 do
   begin
      Close;
      SQL.Clear;
      SQL.Text := 'INSERT INTO T_ACTIVIDAD_ECONOMICA (CODIGO, DENOMINACION) Values (:COD, :DEN)';
      Parameters.ParseSQL(self.ADOQuery1.SQL.Text, True);
      Parameters.Refresh;
      Parameters.ParamByName('COD').Value := StrToInt(self.TxtCodigo.Text);
      Parameters.ParamByName('DEN').Value := self.TxtDenominacion.Text;
      ExecSQL;
   end;
end;

El mensaje de error es:
Project Software.exe raised exception class EDatabaseError with message 'ADOQuery1:Parameter 'COD' not found.'

En el link: http://edn.embarcade...w/article/20420 aparece lo siguiente:
Question:
When using an ADOQuery with Parameters, and trying to access the Parameters with: ADOQuery.Parameters.ParamByName('ParamName').Value I get a 'Parameter "ParamName" Not Found' error. How can I fix this?
Answer:
You can easily fix this by creating the parameters before calling ADOQuery.Parameters.ParamByName('ParamName').Value by calling: ADOQuery.Parameters.ParseSQL(ADOQuery.SQL.Text, True).

He realizado lo que indican en la respuesta, pero como si nada!! No me funciona!! 
A ustedes les ha pasado ??

[Sergio]

No uso adoqueries, pero prueba a ver si ese "refresh" te sobra, no parece necesario a simple vista.

[Rolphy Reyes]

Saludos.

Una sugerencia con relación a postear hilos, a mi entender tu problema principal ya quedo resuelto (por el cual abriste este hilo) y ahora estas enfrentando otro problema, que no esta relacionado con el original, sería adecuado abrir otro hilo para poder dar un mejor seguimiento.

Cualquier usuario del foro le sería mas fácil encontrar ayuda si tienes dos hilos separados, es solo mi humilde sugerencia.

[roca]

Hola  Rolphy
De acuerdo, abrire otro hilo para el nuevo problema.
Sucede que ha surgido al momento de empezar a trabajar bajo el esquema MDI Padre, MDI Hijo, y despues de realizar los cambios que me han indicado los compañeros Sergio y Wilson.
Mis disculpas por salirme de las reglas, no ha sido la intencion.
Gracias!!