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

fcl-db: sqldb: propagate LogEvents from TSQLConnector to proxy TSQLConnection

Browse Source 
git-svn-id: trunk@27293 -
This commit is contained in:
lacak 2014-03-27 07:26:51 +00:00
parent 2ab3e8704d
commit 37e0aa202c
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/fcl-db/src/sqldb/sqldb.pp
View File

@ -2696,11 +2696,12 @@ begin
inherited DoInternalConnect; inherited DoInternalConnect;
CreateProxy; CreateProxy;
FProxy.CharSet:=Self.CharSet; FProxy.CharSet:=Self.CharSet;
FProxy.Role:=Self.Role;
FProxy.DatabaseName:=Self.DatabaseName; FProxy.DatabaseName:=Self.DatabaseName;
FProxy.HostName:=Self.HostName; FProxy.HostName:=Self.HostName;
FProxy.UserName:=Self.UserName; FProxy.LogEvents:=Self.LogEvents;
FProxy.Password:=Self.Password; FProxy.Password:=Self.Password;
FProxy.Role:=Self.Role;
FProxy.UserName:=Self.UserName;
FProxy.FTransaction:=Self.Transaction; FProxy.FTransaction:=Self.Transaction;
D:=GetConnectionDef(ConnectorType); D:=GetConnectionDef(ConnectorType);
D.ApplyParams(Params,FProxy); D.ApplyParams(Params,FProxy);
@ -2887,8 +2888,7 @@ function TSQLConnector.GetSchemaInfoSQL(SchemaType: TSchemaType;
SchemaObjectName, SchemaPattern: string): string; SchemaObjectName, SchemaPattern: string): string;
begin begin
CheckProxy; CheckProxy;
Result:=FProxy.GetSchemaInfoSQL(SchemaType, SchemaObjectName, SchemaPattern Result:=FProxy.GetSchemaInfoSQL(SchemaType, SchemaObjectName, SchemaPattern);
);
end; end;