paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 01:39:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-db: ODBC: add NativeError and SQLState fields to EODBCException. Bug #23798

Browse Source 
git-svn-id: trunk@26685 -
This commit is contained in:
lacak 2014-02-06 13:20:29 +00:00
parent c184669206
commit 56f37cd0e0
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
packages/fcl-db/src/sqldb/odbc/odbcconn.pas
View File

@ -134,7 +134,8 @@ type
end;
EODBCException = class(EDatabaseError)
// currently empty; perhaps we can add fields here later that describe the error instead of one simple message string
NativeError: integer;
SQLState: string;
end;
{$IF (FPC_VERSION>=2) AND (FPC_RELEASE>=1)}
@ -199,6 +200,7 @@ var
Res:SQLRETURN;
SqlState,MessageText,TotalMessage:string;
RecNumber:SQLSMALLINT;
Error: EODBCException;
begin
// check result
if ODBCSucces(LastReturnCode) then
@ -209,6 +211,7 @@ begin
// build TotalMessage for exception to throw
TotalMessage:=Format(ErrorMsg,FmtArgs)+Format(' ODBC error details: LastReturnCode: %s;',[ODBCResultToStr(LastReturnCode)]);
// retrieve status records
NativeError:=0;
SetLength(SqlState,5); // SqlState buffer
SetLength(MessageText,1);
RecNumber:=1;
@ -238,7 +241,10 @@ begin
end
end;
// raise error
raise EODBCException.Create(TotalMessage);
Error := EODBCException.Create(TotalMessage);
Error.NativeError := NativeError;
Error.SQLState := SqlState;
raise Error;
end;
procedure ODBCCheckResult(LastReturnCode:SQLRETURN; HandleType:SQLSMALLINT; AHandle: SQLHANDLE; ErrorMsg: string);