r9538: Cleaned up symbolic SQL syntax.

[clsql.git] / db-odbc / odbc-sql.lisp

diff --git a/db-odbc/odbc-sql.lisp b/db-odbc/odbc-sql.lisp
index e1ad0c234d03333177ae3c4798777880076ef1ef..385d378ee8adb9c084837503540e86f5775a2299 100644 (file)
--- a/db-odbc/odbc-sql.lisp
+++ b/db-odbc/odbc-sql.lisp
@@ -48,6 +48,9 @@
                                                   :password password
                                                   :data-source-name dsn))))
          (store-type-of-connected-database db)
+         ;; Ensure this database type is initialized so can check capabilities of
+         ;; underlying database
+         (initialize-database-type :database-type database-type)
          db)
       (error ()        ;; Init or Connect failed
        (error 'sql-connection-error