Problema al comenzar transaccion

[cipce22]

Hola a todos, estoy utilizando delphi 2010, windows 8 y los componentes de Interbase (TIBQuery,IBTransaction,TIBDatabase) alojados en un modulo de datos(dm) realizando una aplicacion que busque ciertos registros en base a un CAMPO y un VALOR que solicito al cliente, los muestro posteriorment en un grid, de la sig. manera

qsql:='select matricul.id,matricula,bastidor, marca, modelo, ano, placasauto, cf1 || '+chr(39)+' '+chr(39)+' || apellido1 || '+chr(39)+' '+chr(39)+' || apellido2 as NOMBRE'+ ' from
matricul join clientes on matricul.rfnclientes=clientes.id' +' where '+Cb_Identificador.Text+' like '+CHR(39)+'%'+Edit_valor.Text+CHR(39);

dm.IBDatabase1.Open;
with dm.IBQuery1 do
begin
if Transaction.Active then
begin
Transaction.Commit;
end;
Transaction.StartTransaction;
SQL.Clear;
SQL.Add(qsql);
OPEN;
Transaction.CommitRetaining;
end;




Hasta aqui todo sigue bien, despues de eso debo actualizar los registros no seleccionados, hice este procedimiento para lograrlo:
procedure UPDATE_f(dataset: TIBQuery; query: string; msgerror: string);
begin
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;

Al ser muchas querys a actualizar distintas la ejecuto así
UPDATE_f(dm.IBQuery1,sqql,'Error al actualizar HISTOMAT');

Este lo uso dandole el valor de la query que voy armando en otra parte, el problema es el siguiente y por el cual pongo todo lo anterior:
al llegar a la linea de la funcion, me da una violacion de acceso
Transaction.StartTransaction;

Ya intenté hacerlo sin el procedure(digamos que escrito una y otra vez, en cada parte), ya probé duplicando los componentes de la base de datos(obviamente cambiando los nombres) y
nada, sigo con el error de la violacion, tambien aparece si en esa linea o en el procedimiento pongo lo sig. :
dm.IBDatabase1.Close;


alguien podria ayudarme? o darme alguna pista de por donde atacar el problema?

[Neftali [Germán.Estévez]]

Ejecuta paso a paso el código.
Normalmemte el error de "Access Violation" da cuando utilizas un objeto que no está correctamente asignado.

[cipce22]

Ejecuté paso a paso, todo va bien hasta llegar a esa linea, he hecho mas pruebas y llegando a la funcion, haga lo que haga, ya no puedo cerrar la transaccion, ya no me permite un commit, rollback, cerrar el dataset o incuso intentar cerrar el componente de la BD
¿Tendrá algo que ver con que el primer select fue mostrado en un dbgrid y no me permite cerrar la conexion?

Estoy sacando chispas y no logro hacer funcionar algo relativamente "sencillo"

) :

[Casimiro Notevi]

Ejecuté paso a paso, todo va bien hasta llegar a esa linea, he hecho mas pruebas y llegando a la funcion, haga lo que haga, ya no puedo cerrar la transaccion, ya no me permite un commit, rollback, cerrar el dataset o incuso intentar cerrar el componente de la BD

Y cuando llega a esa línea, qué hace. ¿Por qué dices que no puedes cerrar la transacción?, ¿sale algún mensaje?, ¿qué error muestra?

[cipce22]

La cosa es esta

antes de llegar a esta linea (la que me muestra una violacion de acceso):
Transaction.StartTransaction;


puse lo siguiente, para saber si es que estaba abierta

if Transaction.Active then
begin
Transaction.Commit;
end;

y sì. la muestra como activa comienza con el if, al llegar al commit, me da la misma violacion de acceso, por eso doy por hecho que es por la transaccion pero no estoy seguro, no entiendo del todo, he estado leyendo pero el procedimiento que uso en el select y en el update puestos al principio del post son mis unicas interacciones con la BD, no se cual podra ser el error

[Casimiro Notevi]

Mira qué tienes después del commit, entonces, paso a paso, hasta la línea que da el error.

[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]

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

[cipce22]

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:

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]

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 [-] (http://www.clubdelphi.com/foros/#)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?
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.

revisando el codigo ¿Esta linea podria ser la culpable?
Grid_sel.DataSource:=nil;

Si se tratase de un TDBGrid te diría que no, pero desconozco el componente que mencionas (¿ es este gridview (http://www.bergsoftware.net/index.php?section=components&page=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]

Hola cipce22.

Si se tratase de un TDBGrid te diría que no, pero desconozco el componente que mencionas (¿ es este gridview (http://www.bergsoftware.net/index.php?section=components&page=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:

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]

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 Notevi]

Yo revisaría esta parte:
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:

...
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):

...
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:

...
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ó! :D 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 Notevi]

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.

[cipce22]

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

Tienes razón :D, la proxima vez lo posteare completo en caso de no ser tan grande, aunque sigo con la duda de cual es la razon para que ese ciclo me generara la violacion :confused::confused::confused:

[Casimiro Notevi]

Pues porque intentaba acceder a una posición del array que no existe.
Ejemplo: tienes un array de 4 posiciones: array[0..3] y tecleas array[5] = "hola"
No existe la posición 5.

[ecfisa]

Hola cipce22.
..., aunque sigo con la duda de cual es la razon para que ese ciclo me generara la violacion :confused::confused::confused:
El motivo es el que te comenta Casimiro, en tu caso en concreto sucede por:

...
var
v : array of Integer;
con, i: Integer;
begin
con := 1; // con es igual a: 1
for i := 1 to 5 do
begin
SetLength(v, con); // se crea un lugar que es: v[0]
v[con]:= i; // ¡ Error, v[1] todavía no ha sido creado !
Inc(con, 1);
end;
...


Saludos :)