X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=db-odbc%2Fodbc-dbi.lisp;h=4611cfe232aad6b728d12626b6eac3ea1d6d4f4d;hb=6828cb461404126aa0c334fe2b669d435304f73e;hp=caa549e94c72f6db9b6771a071c0c48eff09c461;hpb=2135bfa98887e609e060f30c0b04130075089788;p=clsql.git

diff --git a/db-odbc/odbc-dbi.lisp b/db-odbc/odbc-dbi.lisp
index caa549e..4611cfe 100644
--- a/db-odbc/odbc-dbi.lisp
+++ b/db-odbc/odbc-dbi.lisp
@@ -104,7 +104,7 @@
                      :accessor data-ptrs)
    (column-out-len-ptrs :initform (make-array 0 :adjustable t :fill-pointer t)
                         :accessor column-out-len-ptrs)
-   (column-precisions :initform (make-array 0 :element-type 'fixnum :adjustable t :fill-pointer t)
+   (column-precisions :initform (make-array 0 :element-type 'integer :adjustable t :fill-pointer t)
                       :accessor column-precisions)
    (column-scales :initform (make-array 0 :element-type 'fixnum :adjustable t :fill-pointer t)
                   :accessor column-scales)
@@ -465,6 +465,11 @@ This makes the functions db-execute-command and db-query thread safe."
 		 (#.odbc::$SQL_C_SSHORT :short)
 		 (#.odbc::$SQL_C_STINYINT :short)
 		 (#.odbc::$SQL_C_SBIGINT #.odbc::$ODBC-BIG-TYPE)
+		 (#.odbc::$SQL_C_TYPE_TIMESTAMP :time)
+		 (#.odbc::$SQL_C_CHAR
+		    (case (aref column-sql-types i)
+		      (#.odbc::$SQL_NUMERIC :double)
+		      (t t)))
 		 (t t)))
 	      (t t)))))
   query)