db)
(clsql-error (e)
(error e))
+ #+ignore
(error () ;; Init or Connect failed
(error 'clsql-connect-error
:database-type database-type
(odbc-dbi:sql sql-expression :db (database-odbc-conn database))
(clsql-error (e)
(error e))
+ #+ignore
(error ()
(error 'clsql-sql-error
:database database
(length column-names)
nil ;; not able to return number of rows with odbc
))
+ #+ignore
(error ()
(error 'clsql-sql-error
:database database
(warn "Not implemented."))
(defmethod database-probe (connection-spec (type (eql :odbc)))
- (warn "Not implemented."))
+ (when (find (car connection-spec) (database-list connection-spec type)
+ :test #'string-equal)
+ t))
+
+(defmethod database-list (connection-spec (type (eql :odbc)))
+ (declare (ignore connection-spec))
+ (odbc-dbi:list-all-data-sources))
#+ignore
(when (clsql-base-sys:database-type-library-loaded :odbc)