paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 18:59:11 +02: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 If Assigned(FProxy) then
FreeProxy; FreeProxy;
FConnectorType:=AValue; FConnectorType:=AValue;
CreateProxy;
end; end;
end; end;
@ -3287,7 +3288,7 @@ Var
begin begin
inherited DoInternalConnect; inherited DoInternalConnect;
CreateProxy; CheckProxy;
FProxy.CharSet:=Self.CharSet; FProxy.CharSet:=Self.CharSet;
FProxy.DatabaseName:=Self.DatabaseName; FProxy.DatabaseName:=Self.DatabaseName;
FProxy.HostName:=Self.HostName; FProxy.HostName:=Self.HostName;
@ -3327,6 +3328,7 @@ begin
DatabaseErrorFmt(SErrUnknownConnectorType,[ConnectorType],Self); DatabaseErrorFmt(SErrUnknownConnectorType,[ConnectorType],Self);
FProxy:=D.ConnectionClass.Create(Self); FProxy:=D.ConnectionClass.Create(Self);
FFieldNameQuoteChars := FProxy.FieldNameQuoteChars; FFieldNameQuoteChars := FProxy.FieldNameQuoteChars;
FConnOptions := FProxy.ConnOptions;
end; end;
procedure TSQLConnector.FreeProxy; procedure TSQLConnector.FreeProxy;