Exception class N_61 unknown error 1

[amoroder]

Hello,

we have one strange situation where, when we activate a TOraQuery we get the error Message
"Exception class N_61 unknown error 1"

The procedure is very simple.

Is this a ODAC internal error?

Regards
Andreas


function GetUserData(Feld: String): String;
var
qrUserData: TOraQuery;
begin

qrUserData := TOraQuery.Create(nil);

qrUserData.SQL.Text := 'SELECT * ' +
'FROM BENUTZER BE ' +
'LEFT OUTER JOIN KRANKENHAUS KH ON KH.KODEX = BE.KRAN_KODE ' +
'WHERE UPPER(BE.BENUTZER) = :pBenutzer ' +
'AND upper(BE.APPLIKATION) = :pApplikation';
qrUserData.ParamByName('pBenutzer').AsString := AnsiUpperCase(GetUser);
qrUserData.ParamByName('pApplikation').AsString := AnsiUpperCase(Application.Name);
qrUserData.Active := True; <<< generates Error


Result := qrUserData.FieldByName(Feld).AsString;

qrUserData.Active := False;

qrUserData.Free;

end;

[AlexP]

Hello,

We can't reproduce the problem on the latest ODAC version 9.5.16. Please try to reproduce the problem on the latest ODAC version http://www.devart.com/odac/download.html and let us know the result.

[amoroder]

Hello,

I installed the last version and now the class in the error Message changed to EDBerror

As I wrote the same delphi function is called many time in different places and it also works with all other records in this form.

Regards
Andreas

[amoroder]

Hello,

my colleague found the error. It was not related to ODAC ( sorry ) but was a overflow of a array that triggered the error when we set the query to active

Sorry for the disturbance and thank you for your help
Andreas

[AlexP]

If you have any further questions, feel free to contact us.