Salut,
Je souhaite exécuter un script SQL sur Interbase via le composant TIBScript.
Seulement à chaque exécution du script, je reçois une exception EAccesviolation.
Voici mon code :
with dmInciBase.ib_script do
begin
dmInciBase.it_ib_script.DefaultDatabase := dmInciBase.db_mon_niveau;
Transaction := dmInciBase.it_ib_script;
with Script do
begin
Clear;
add('update identif_incident set dedouble = ''1'' ');
add('where num_relation = ' + quotedstr(edmnum_relation));
add(' and relation_bis = 1');
end;
if not dmInciBase.it_ib_script.InTransaction then dmInciBase.it_ib_script.StartTransaction;
ExecuteScript; // EAccessviolation ici
if dmInciBase.it_ib_script.InTransaction then dmInciBase.it_ib_script.commit;
end;
Le script SQL fonctionne dans IBConsole et les droits d'accès sont corrects.
Quelqu'un a t'il déjà eu ce problème?
PS : Je pose aussi la question dans le forum Delphi
Et comme disait ma grand-mère : il y a toujours du soleil derrière les nuages.
Vincent Stryckmans.