paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 16:49:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

sqldb: odbc: send SQL to ODBC as WideString to support FPC 3.0.x character conversion

Browse Source 
git-svn-id: trunk@43699 -
This commit is contained in:
ondrej 2019-12-19 16:54:36 +00:00
parent a66442ea47
commit f27787b269
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -735,6 +735,7 @@ end;
procedure TODBCConnection.PrepareStatement(cursor: TSQLCursor; ATransaction: TSQLTransaction; buf: string; AParams: TParams); procedure TODBCConnection.PrepareStatement(cursor: TSQLCursor; ATransaction: TSQLTransaction; buf: string; AParams: TParams);
var var
ODBCCursor:TODBCCursor; ODBCCursor:TODBCCursor;
wbuf: widestring;
begin begin
ODBCCursor:=cursor as TODBCCursor; ODBCCursor:=cursor as TODBCCursor;
@ -761,8 +762,9 @@ begin
ODBCCursor.FQuery:=Buf; ODBCCursor.FQuery:=Buf;
if not (ODBCCursor.FSchemaType in [stTables, stSysTables, stColumns, stProcedures, stIndexes]) then if not (ODBCCursor.FSchemaType in [stTables, stSysTables, stColumns, stProcedures, stIndexes]) then
begin begin
wbuf := buf;
ODBCCheckResult( ODBCCheckResult(
SQLPrepare(ODBCCursor.FSTMTHandle, PChar(buf), Length(buf)), SQLPrepareW(ODBCCursor.FSTMTHandle, PWideChar(wbuf), Length(wbuf)),
SQL_HANDLE_STMT, ODBCCursor.FSTMTHandle, 'Could not prepare statement.' SQL_HANDLE_STMT, ODBCCursor.FSTMTHandle, 'Could not prepare statement.'
); );
end; end;