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

fcl-db: sqldb: ExecuteDirect should call StartImplicitTransaction, when Transaction.Options contains stoUseImplicit (else it leads later to AV due to nil Transaction.Handle)

Browse Source 
git-svn-id: trunk@30920 -
This commit is contained in:
lacak 2015-05-27 05:06:01 +00:00
parent b18365fb61
commit 242d750ef5
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/sqldb.pp
View File

@ -1224,7 +1224,7 @@ begin
DatabaseError(SErrTransactionnSet); DatabaseError(SErrTransactionnSet);
if not Connected then Open; if not Connected then Open;
if not (ATransaction.Active or (stoUseImplicit in ATransaction.Options)) then if not ATransaction.Active then
ATransaction.MaybeStartTransaction; ATransaction.MaybeStartTransaction;
try try