Add support for the MS-SYBDATE datatype.

Fixes #568, thanks to a test case being provided!
This commit is contained in:
Dimitri Fontaine 2017-06-14 21:02:00 +02:00
parent 2c644d55f2
commit de9b43c332
2 changed files with 2 additions and 1 deletions

View File

@ -94,7 +94,7 @@
(:syb-int4 (unsigned-to-signed (mem-ref data :unsigned-int) 4))
(:syb-int8 (mem-ref data :int8))
(:syb-flt8 (mem-ref data :double))
((:syb-datetime :syb-datetime4)
((:syb-datetime :syb-datetime4 :syb-msdate)
(with-foreign-pointer (%buf +numeric-buf-sz+)
(let ((count
(%dbconvert %dbproc

View File

@ -288,6 +288,7 @@ ORDER BY KCU1.CONSTRAINT_NAME, KCU1.ORDINAL_POSITION"
(case (intern (string-upcase type) "KEYWORD")
(:datetime (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))
(t (format nil "[~a]" name))))