Browse Source

* Create transaction

git-svn-id: trunk@28405 -
michael 11 years ago
parent
commit
1d3aa63620
1 changed files with 1 additions and 0 deletions
  1. 1 0
      tests/utils/dbtests.pp

+ 1 - 0
tests/utils/dbtests.pp

@@ -75,6 +75,7 @@ begin
     Connection.Username:=User;
     Connection.Username:=User;
     Connection.Password:=Password;
     Connection.Password:=Password;
     Connection.Connected:=true;
     Connection.Connected:=true;
+    Connection.Transaction:=TSQLTransaction.Create(Connection);
     if (Port<>'') then
     if (Port<>'') then
       Connection.Params.Values['Port']:=Port;
       Connection.Params.Values['Port']:=Port;
   except
   except