X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=sql%2Fgeneric-odbc.lisp;h=4995c25ff420a51112e5c553fcc6cec3e43f1545;hb=534849c88501e0ea2ee5dbf78d13d8cb73814d71;hp=e4c37529f2e07a32778f46fe01b3ffa0d1c0e331;hpb=85ec9eefa107bb000198c381ffba15c8f4bb086b;p=clsql.git

diff --git a/sql/generic-odbc.lisp b/sql/generic-odbc.lisp
index e4c3752..4995c25 100644
--- a/sql/generic-odbc.lisp
+++ b/sql/generic-odbc.lisp
@@ -76,10 +76,11 @@
                                         (db-type (eql :mssql)))
   (declare (ignore args database))
   "DATETIME")
+
 (defmethod database-get-type-specifier ((type (eql 'date)) args database
                                         (db-type (eql :mssql)))
   (declare (ignore args database))
-  "DATETIME")
+  "SMALLDATETIME")
 
 (defmethod database-get-type-specifier ((type (eql 'boolean)) args database
                                         (db-type (eql :mssql)))
@@ -249,8 +250,9 @@ on schema since that's what tends to be exposed. Some DBs like mssql
   (%database-list-* database "VIEW" owner))
 
 
-(defmethod database-list-attributes ((table string) (database generic-odbc-database)
-                                     &key (owner nil))
+(defmethod database-list-attributes ((table %database-identifier) (database generic-odbc-database)
+                                     &key (owner nil)
+                                     &aux (table (unescaped-database-identifier table)))
   (declare (ignore owner))
   (multiple-value-bind (rows col-names)
       (funcall (list-all-table-columns-fn database) table
@@ -260,8 +262,11 @@ on schema since that's what tends to be exposed. Some DBs like mssql
     (loop for row in rows
         collect (fourth row))))
 
-(defmethod database-attribute-type ((attribute string) (table string) (database generic-odbc-database)
-                                    &key (owner nil))
+(defmethod database-attribute-type ((attribute %database-identifier) (table %database-identifier)
+                                    (database generic-odbc-database)
+                                    &key (owner nil)
+                                    &aux (table (unescaped-database-identifier table))
+                                    (attribute (unescaped-database-identifier attribute)))
   (declare (ignore owner))
   (multiple-value-bind (rows col-names)
       (funcall (list-all-table-columns-fn database) table