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

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