(close-query-fn :reader close-query-fn)
(fetch-row :reader fetch-row-fn)
(list-all-database-tables-fn :reader list-all-database-tables-fn)
- (list-all-table-columns-fn :reader list-all-table-columns-fn))
+ (list-all-table-columns-fn :reader list-all-table-columns-fn)
+ (odbc-db-type :accessor database-odbc-db-type :initarg :odbc-db-type ))
(:documentation "Encapsulate same behavior across odbc and aodbc backends."))
(defmethod initialize-instance :after ((db generic-odbc-database)
(slot-value db 'list-all-table-columns-fn)
(intern (symbol-name '#:list-all-table-columns) pkg))))
-;;; Object methods
-
-(defmethod read-sql-value (val (type (eql 'boolean))
- (database generic-odbc-database)
- (db-type (eql :postgresql)))
- (if (string= "0" val) nil t))
-
-(defmethod read-sql-value (val (type (eql 'generalized-boolean))
- (database generic-odbc-database)
- (db-type (eql :postgresql)))
- (if (string= "0" val) nil t))
-
-(defmethod read-sql-value (val (type (eql 'boolean)) database
- (db-type (eql :mssql)))
- (declare (ignore database))
- (etypecase val
- (string (if (string= "0" val) nil t))
- (integer (if (zerop val) nil t))))
-
-(defmethod read-sql-value (val (type (eql 'generalized-boolean)) database
- (db-type (eql :mssql)))
- (declare (ignore database))
- (etypecase val
- (string (if (string= "0" val) nil t))
- (integer (if (zerop val) nil t))))
-
;;; Type methods
(defmethod database-get-type-specifier ((type symbol) args database
(when size (parse-integer size))
(when precision (parse-integer precision))
(when scale (parse-integer scale))))))))
+
+(defmethod database-last-auto-increment-id
+ ((database generic-odbc-database) table column)
+ (case (database-underlying-type database)
+ (:mssql
+ (first (clsql:query "SELECT SCOPE_IDENTITY()"
+ :flatp t
+ :database database
+ :result-types '(:int))))
+ (t (if (next-method-p)
+ (call-next-method)))))
+
+(defmethod clsql-sys:db-type-has-auto-increment? ((db-underlying-type (eql :mssql)))
+ t)