Problema al comenzar transaccion

[ecfisa]

Hola cipce22.

Dos consultas:

• ¿ Form_Selección y campo_id_oficial están creados cuando llamas al procedimiento UPDATE_f ?
• ¿ Cual es el contenido de la variable sqql cuando es enviada como argumento al procedimiento UPDATE_f ?

Saludos

[jafera]

A ver si puede ser este el problema, en la prtimera linea de tu mensaje pones 'qsql:='select ......', luego llamas a UPDATE_f(dm.IBQuery1,sqql,'Error al actualizar HISTOMAT');

Saludos

[cipce22]

Empezado por jafera

A ver si puede ser este el problema, en la prtimera linea de tu mensaje pones 'qsql:='select ......', luego llamas a UPDATE_f(dm.IBQuery1,sqql,'Error al actualizar HISTOMAT');

Saludos

fue error de dedo, realmente si uso la variable qsql de tipo string : (

Gracias por responder jafera

[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

[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

[cipce22]

Empezado por ecfisa

Hola cipce22.

Dos consultas:

• ¿ Form_Selección y campo_id_oficial están creados cuando llamas al procedimiento UPDATE_f ?
• ¿ Cual es el contenido de la variable sqql cuando es enviada como argumento al procedimiento UPDATE_f ?

Saludos

Hola ecfisa, gracias por responder

Al ir con el depurador paso a paso sí me detecta el valor de Form_Seleccion.campo_id_oficial, de hecho los he mostrado en un mensaje en pantalla antes de mandarlos a la funcion, tanto como la sentencia SQL y el valor de la variable si estan ahí : (, la sentencia sql tal cual la copie del mensaje y ejecute en ibexpert y funcionó.

Estoy muy confundido he probado otras opciones, he creado otra transaccion (TIBTransaction) asosiada al mismo dataset(TIBquery) y a la misma BD (TIBDatabase), pero no la uso, solo lo he creado, al llegar a esta parte he intentado usar esa nueva transaccion y me la marca como ABIERTA, pero no he usado esta.... las sentencias del select y del update no son sobre la misma tabla ni estan ligadas en nada... hoy me tocas sufir con esto, llevo dias