mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-09-06 18:50:17 +02:00
* Create transaction
git-svn-id: trunk@28405 -
This commit is contained in:
parent
4aced18d94
commit
1d3aa63620
@ -75,6 +75,7 @@ begin
|
||||
Connection.Username:=User;
|
||||
Connection.Password:=Password;
|
||||
Connection.Connected:=true;
|
||||
Connection.Transaction:=TSQLTransaction.Create(Connection);
|
||||
if (Port<>'') then
|
||||
Connection.Params.Values['Port']:=Port;
|
||||
except
|
||||
|
Loading…
Reference in New Issue
Block a user