X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Ftransaction.lisp;h=a9df87fd59f9f579c4aadf19a9b804c832397b30;hp=089ce0c2aa899147849a12e939be26b78b779c1a;hb=fd2493718d0e1114fcbe3dd578dab658ea383e81;hpb=76c718bea5a32b8252daeb5a487860d112011157

diff --git a/sql/transaction.lisp b/sql/transaction.lisp
index 089ce0c..a9df87f 100644
--- a/sql/transaction.lisp
+++ b/sql/transaction.lisp
@@ -49,8 +49,10 @@ is called on DATABASE which defaults to *DEFAULT-DATABASE*."
       (setf (commit-hooks transaction) nil
             (rollback-hooks transaction) nil
             (transaction-status transaction) nil)
-      (unless (eq :oracle (database-underlying-type database))
-	(execute-command "BEGIN" :database database)))))
+      (case (database-underlying-type database)
+        (:oracle nil)
+        (:mssql (execute-command "BEGIN TRANSACTION" :database database))
+        (t (execute-command "BEGIN" :database database))))))
 
 (defmethod database-commit-transaction ((database database))
   (with-slots (transaction transaction-level autocommit) database