r9089: Automated commit for Debian build of clsql upstream-version-2.8.1

[clsql.git] / db-odbc / odbc-sql.lisp

diff --git a/db-odbc/odbc-sql.lisp b/db-odbc/odbc-sql.lisp
index 1d392729efc490c2c5f7482a60de765cc5c8e87b..3bc5368594f287d733391ffd734c9a833b850b6c 100644 (file)
--- a/db-odbc/odbc-sql.lisp
+++ b/db-odbc/odbc-sql.lisp
@@ -52,6 +52,7 @@
          db)
     (clsql-error (e)
       (error e))
+    #+ignore
     (error ()  ;; Init or Connect failed
       (error 'clsql-connect-error
             :database-type database-type
@@ -103,6 +104,7 @@
       (odbc-dbi:sql sql-expression :db (database-odbc-conn database))
     (clsql-error (e)
       (error e))
+    #+ignore
     (error ()
       (error 'clsql-sql-error
             :database database
@@ -132,6 +134,7 @@
         (length column-names)
         nil ;; not able to return number of rows with odbc
         ))
+    #+ignore
     (error ()
       (error 'clsql-sql-error
             :database database
@@ -268,7 +271,13 @@
   (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)