(defclass aodbc-database (database)
((aodbc-conn :accessor database-aodbc-conn :initarg :aodbc-conn)))
(defclass aodbc-database (database)
((aodbc-conn :accessor database-aodbc-conn :initarg :aodbc-conn)))
(defmethod database-connect (connection-spec (database-type (eql :aodbc)))
(check-connection-spec connection-spec database-type (dsn user password))
(defmethod database-connect (connection-spec (database-type (eql :aodbc)))
(check-connection-spec connection-spec database-type (dsn user password))
(dbi:disconnect (database-aodbc-conn database))
(setf (database-aodbc-conn database) nil)
t)
(defmethod database-query (query-expression (database aodbc-database) types)
(dbi:disconnect (database-aodbc-conn database))
(setf (database-aodbc-conn database) nil)
t)
(defmethod database-query (query-expression (database aodbc-database) types)
:error "Query result set failed"))))
(defmethod database-dump-result-set (result-set (database aodbc-database))
:error "Query result set failed"))))
(defmethod database-dump-result-set (result-set (database aodbc-database))
(dbi:close-query (aodbc-result-set-query result-set))
t)
(defmethod database-store-next-row (result-set
(database aodbc-database)
list)
(dbi:close-query (aodbc-result-set-query result-set))
t)
(defmethod database-store-next-row (result-set
(database aodbc-database)
list)