diff --git a/src/monkey/mssql.lisp b/src/monkey/mssql.lisp index 5790b17..c3e1c04 100644 --- a/src/monkey/mssql.lisp +++ b/src/monkey/mssql.lisp @@ -95,7 +95,11 @@ (:syb-int8 (mem-ref data :int8)) (:syb-real (mem-ref data :float)) (:syb-flt8 (mem-ref data :double)) - ((:syb-datetime :syb-datetime4 :syb-msdate :syb-mstime) + ((:syb-datetime + :syb-datetime4 + :syb-msdate + :syb-mstime + :syb-msdatetime2) (with-foreign-pointer (%buf +numeric-buf-sz+) (let ((count (%dbconvert %dbproc diff --git a/src/sources/mssql/mssql-schema.lisp b/src/sources/mssql/mssql-schema.lisp index 9e3135a..935d07c 100644 --- a/src/sources/mssql/mssql-schema.lisp +++ b/src/sources/mssql/mssql-schema.lisp @@ -170,6 +170,7 @@ (case (intern (string-upcase type) "KEYWORD") (:time (format nil "convert(varchar, [~a], 114)" name)) (:datetime (format nil "convert(varchar, [~a], 126)" name)) + (:datetime2 (format nil "convert(varchar, [~a], 126)" name)) (:smalldatetime (format nil "convert(varchar, [~a], 126)" name)) (:date (format nil "convert(varchar, [~a], 126)" name)) (:bigint (format nil "cast([~a] as numeric)" name))