problema guardar con interbase.

[chele]

Buenas, tengo esta sentencia :

Código PHP:

      cadenaSQL := 'update autorizaciones set fpago = "' +  FormatDateTime('mm/dd/yyyy',date)
                 + '", hum = "' + timetostr(time) + '", fum = "' + FormatDateTime('mm/dd/yyyy',date)
                 + '", uum = "' + vusuari + '" where codaut = "' + vaux + '"';
 
       qry := TIBQuery.Create(qry);
       qry.database := datamodule2.database;
       Qry.SQL.Text := cadenaSQL;
 
       Qry.Prepare;
       Qry.execsql;
       Qry.unPrepare; 


Si solo lo paso una vez funciona perfectamente, si lo paso en un bucle da un error y no sigue, el error lo da en el qry := TIBQuery.Create(qry);

He probado a poner un except y poner un qry1 := TIBQuery.Create(qry1); pero sigue dando el error pero esta vez al final.

Alguna idea ??