Hello,
i have some problems executing this part of code
qry1 is an TOracleDataSet
qry1.SQL = SELECT T1.*, T1.rowid FROM T1
Variable in qry1 : vVAR1 : otString
param : Extended;
val1 : integer;
val2 : String;
Here are the logs :
Log 1 : after N treatement i have this error :
> 0 - Violation d'acc
i have some problems executing this part of code
qry1 is an TOracleDataSet
qry1.SQL = SELECT T1.*, T1.rowid FROM T1
Variable in qry1 : vVAR1 : otString
param : Extended;
val1 : integer;
val2 : String;
Code:
param := Now;
try
try
err := '0';
qry1.CloseAll ; // Close;
qry1.ClearVariables ;
qry1.SetVariable('vVAR1', param) ;
qry1.Open ;
err := '1';
if (not qry1.Eof) then
begin
err := '2';
qry1.First ;
val1 := qry1.FieldByName('COL1').AsInteger ;
val2 := qry1.FieldByName('COL2').AsString ;
{*** Treatement ***}
end
except
on E : Exception do
begin
WriteLog(err + ' - ' + E.Message) ;
end ;
end ;
finally
qry1.ClearVariables ;
qry1.CloseAll;
end ;
Log 1 : after N treatement i have this error :
> 0 - Violation d'acc