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

fcl-db: sqldb: Propagate ConnOptions from Proxy connection to TSQLConnector.ConnOptions, when ConnectorType changes (not OnInternalConnect, which is late).

Browse Source 
Attempt to set TSQLTransaction.Options to stoUseImplicit check if TSQLConnection support sqImplicitTransaction.

git-svn-id: trunk@32359 -
This commit is contained in:
lacak 2015-11-19 07:25:03 +00:00
parent 13cfc4ac8f
commit 124100cde1
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/sqldb.pp
View File

@ -3270,6 +3270,7 @@ begin
If Assigned(FProxy) then
FreeProxy;
FConnectorType:=AValue;
CreateProxy;
end;
end;
@ -3287,7 +3288,7 @@ Var
begin
inherited DoInternalConnect;
CreateProxy;
CheckProxy;
FProxy.CharSet:=Self.CharSet;
FProxy.DatabaseName:=Self.DatabaseName;
FProxy.HostName:=Self.HostName;
@ -3327,6 +3328,7 @@ begin
DatabaseErrorFmt(SErrUnknownConnectorType,[ConnectorType],Self);
FProxy:=D.ConnectionClass.Create(Self);
FFieldNameQuoteChars := FProxy.FieldNameQuoteChars;
FConnOptions := FProxy.ConnOptions;
end;
procedure TSQLConnector.FreeProxy;