Problema al comenzar transaccion

[cipce22]

Empezado por ecfisa

Hola cipe22.

Dado que recibis un error Access Violation, apunto a que estas referenciando un objeto inexistente. Como para ir circunscribiendo el error, intentá hacer esta prueba:
Código Delphi [-]procedure UPDATE_f(dataset: TIBQuery; query: string; msgerror: string); begin (* LINEAS AGREGADAS *) try ShowMessage(Transaction.Name); except raise Exception.Create('Transaction aún no ha sido creado'); end; try ShowMessage(dataset.ClassName); except raise Exception.Create('dataset aún no ha sido creado'); end; try ShowMessage(Form_Seleccion.Caption); except raise Exception.Create('Form_Selection aún no ha sido creado'); end; try ShowMessage(IntToStr(Form_Seleccion.campo_id_oficial)); except raise Exception.Create('campo_id_oficial aún no ha sido creado'); end; (* FIN LINEAS AGREGADAS *) { código original with dataset do begin Transaction.StartTransaction; SQL.Clear; SQL.Add(query); Prepare; params.ParamByName('id_matricula_nvo').AsInteger:=Form_Seleccion.campo_id_oficial; ExecSQL; try Transaction.Commit; except on E: Exception do begin Application.MessageBox( PChar( E.Message ), PChar( msgerror ), MB_ICONSTOP ); dataset.Transaction.Rollback; end; end; end; } end;


Saludos

Gracias ecfisa, probando eso, todo está en su sitio, cada cosa ha sido creada y se muestran los valores en los mensajes

revisando el codigo ¿Esta linea podria ser la culpable?

Código Delphi [-]
Grid_sel.DataSource:=nil;

Grid_sel es un gridview en el cual muestro el resultado del primer select, el cual voy a tratar, con esa linea pretendo desasociar el dataset al gridview ¿es correcto?

[ecfisa]

Hola cipce22.

Empezado por cipce22

revisando el codigo ¿Esta linea podria ser la culpable?

Código Delphi [-]
Grid_sel.DataSource:=nil;

Si se tratase de un TDBGrid te diría que no, pero desconozco el componente que mencionas (¿ es este gridview ?), de todos modos parece bastante improbable. Lo que esperaría es que no mostrase dato alguno pero un error de Access Violation...

Otra consulta: ¿ Existe algún TDataModule en Auto-create forms o por código, cuya creación pudiera estar en órden posterior al uso de la función ?

Saludos

[cipce22]

Empezado por ecfisa

Hola cipce22.

Si se tratase de un TDBGrid te diría que no, pero desconozco el componente que mencionas (¿ es este gridview ?), de todos modos parece bastante improbable. Lo que esperaría es que no mostrase dato alguno pero un error de Access Violation...

Otra consulta: ¿ Existe algún TDataModule en Auto-create forms o por código, cuya creación pudiera estar en órden posterior al uso de la función ?

Saludos

Gracias ecfisa, siempre tan atento

Todos los form son auto-create, la aplicacion es pequeña. Despues de muchos intentos y busquedas, probando el codigo de la funcion update (que puse antes) en diferentes partes del codigo di con lo siguiente:

La violacion de acceso se muestra solo despues de este barrido, incluso, si lo comento, la violacion de acceso no se presenta y todo funciona bien:

Código Delphi [-]
cont_arr:=1;
   dm.IBQuery1.First;

  while not dm.IBQuery1.eof do
                             begin
                                  if not (dm.IBQuery1.FieldByName('id').AsInteger=campo_id_oficial)  then
                                        begin
                                        SetLength(Array_idmatriculas_incorr, cont_arr);
                                        Array_idmatriculas_incorr[cont_arr]:=dm.IBQuery1.FieldByName('id').AsInteger;
                                        inc(cont_arr,1);
                                        end;
                             dm.IBQuery1.Next;
                             end;

donde IBQuery1 es el dataset que utilice para la consulta SELECT, el cual es el source del grid....
de este dataset obtengo los valores de ID que modificare y los pongo en un arreglo dinamico para despues usarlos



¿alguien tiene idea de por qué este ciclo me genera una violacion de acceso despues?
Tomando en cuenta que para el update utilizo otro dataset(TIBQuery) y otra tansaccion (TIBTransaction)

[cipce22]

Empezado por ecfisa

Hola cipce22.

Otra consulta: ¿ Existe algún TDataModule en Auto-create forms o por código, cuya creación pudiera estar en órden posterior al uso de la función ?

Saludos

Al mover el orden una de mis forms no se logra mostrar y me muestra violacion de acceso, el form que lo provoca es el ultimo en ser mostrado y el ultimo en la lista ¿así debe ser?

el error de el update continua

[Casimiro Noteví]

Yo revisaría esta parte:

Código Delphi [-]
SetLength(Array_idmatriculas_incorr, cont_arr);
Array_idmatriculas_incorr[cont_arr]:=dm.IBQuery1.FieldByName('id').AsInteger;
inc(cont_arr,1);

Así a simple vista diría que tienes el problema ahí.

[ecfisa]

Hola cipce22.

Opino igual que Casimiro, debería ser:

Código Delphi [-]
...
 cont_arr := 0; // <-
 ....
 begin
      SetLength(Array_idmatriculas_incorr, cont_arr + 1 ); // <-

      Array_idmatriculas_incorr[cont_arr]:=dm.IBQuery1.FieldByName('id').AsInteger;
      inc(cont_arr,1);
  ...

También lo podrías escribir de este modo (ahorrándote el contador):

Código Delphi [-]
...
  while not dm.IBQuery1.eof do
  begin
    if  not (dm.IBQuery1.FieldByName('id').AsInteger=campo_id_oficial)  then
    begin
      SetLength(Array_idmatriculas_incorr, Length(Array_idmatriculas_incorr) + 1 );
      Array_idmatriculas_incorr[High(Array_idmatriculas_incorr)]:= dm.IBQuery1.FieldByName('id').AsInteger;
    end;
    dm.IBQuery1.Next;
  end;
...

Otra alternativa es darle al arreglo dinámico, el tamaño de una sola vez:

Código Delphi [-]
...
  cont_arr := 0;
  SetLength(Array_idMatriculas_incorr, dm.IBQuery1.RecordCount ); // <-
  while not dm.IBQuery1.eof do
  begin
    if  not (dm.IBQuery1.FieldByName('id').AsInteger=campo_id_oficial)  then
    begin
      Array_idmatriculas_incorr[cont_arr]:= dm.IBQuery1.FieldByName('ID').AsInteger;
      Inc(cont_arr, 1);
    end;
    dm.IBQuery1.Next;  
  ...

Saludos

[cipce22]

¡Funcionó! gracias


De alguna manera el cambiar este ciclo ya no generó la violación de acceso, ¿por qué la provocaba?

no me mostraba ningun error ni mostraba alguna excepcion cuando lo ponia en un bloque try

si alguien me explica esto ultimo, seria perfecto para poder evitar este error en el futuro, que para mi, es casi inexplicable
Agradezco a todos la ayuda

[Casimiro Noteví]

Empezado por cipce22

no me mostraba ningun error ni mostraba alguna excepcion cuando lo ponia en un bloque try

Eso te pasa por no poner el código real que estás usando.
Lo habríamos visto al momento.