paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-10 22:09:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Merging revisions 42737 from trunk:

Browse Source 
------------------------------------------------------------------------
    r42737 | lacak | 2019-08-19 13:52:28 +0200 (Mon, 19 Aug 2019) | 1 line
    
    fcl-db: sqldb: Upgrade TDS protocol version from 7.0 (MS SQL Server 2000) to newer 7.3 (MS SQL Server 2008) to support new data types DATE, TIME, DATETIME2 introduced in MS SQL Server 2008.
    ------------------------------------------------------------------------

git-svn-id: branches/fixes_3_2@43232 -
This commit is contained in:
michael 2019-10-19 14:34:55 +00:00
parent a94e6c784e
commit 89448abde1
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-db/src/sqldb/mssql/mssqlconn.pp
View File

@ -410,7 +410,7 @@ end;
procedure TMSSQLConnection.DoInternalConnect;
const
DBVERSION: array[boolean] of BYTE = (DBVER60, DBVERSION_100);
DBVERSION: array[boolean] of BYTE = (DBVERSION_73, DBVERSION_100);
IMPLICIT_TRANSACTIONS_OFF: array[boolean] of shortstring = ('SET IMPLICIT_TRANSACTIONS OFF', 'SET CHAINED OFF');
ANSI_DEFAULTS_ON: array[boolean] of shortstring = ('SET ANSI_DEFAULTS ON', 'SET QUOTED_IDENTIFIER ON');
CURSOR_CLOSE_ON_COMMIT_OFF: array[boolean] of shortstring = ('SET CURSOR_CLOSE_ON_COMMIT OFF', 'SET CLOSE ON ENDTRAN OFF');