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

fcl-db: tests: starting from rev.23113 is AutoCommit OFF by default for TODBCConnection. So we does not need set it explicitly (reverts my previous commit in rev.23075)

Browse Source 
git-svn-id: trunk@23121 -
This commit is contained in:
lacak 2012-12-07 11:12:14 +00:00
parent fb3a6f9054
commit bc25c4b297
1 changed files with 1 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/fcl-db/tests/sqldbtoolsunit.pas
View File

@ -152,11 +152,7 @@ begin
if SQLConnType = SQLITE3 then Fconnection := TSQLite3Connection.Create(nil); if SQLConnType = SQLITE3 then Fconnection := TSQLite3Connection.Create(nil);
if SQLConnType = POSTGRESQL then Fconnection := TPQConnection.Create(nil); if SQLConnType = POSTGRESQL then Fconnection := TPQConnection.Create(nil);
if SQLConnType = INTERBASE then Fconnection := TIBConnection.Create(nil); if SQLConnType = INTERBASE then Fconnection := TIBConnection.Create(nil);
if SQLConnType = ODBC then if SQLConnType = ODBC then Fconnection := TODBCConnection.Create(nil);
begin
Fconnection := TODBCConnection.Create(nil);
Fconnection.Params.Append('AutoCommit=false');
end;
{$IFNDEF Win64} {$IFNDEF Win64}
if SQLConnType = ORACLE then Fconnection := TOracleConnection.Create(nil); if SQLConnType = ORACLE then Fconnection := TOracleConnection.Create(nil);
{$ENDIF Win64} {$ENDIF Win64}