projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r9051: db-type to db-kind
[clsql.git]
/
db-odbc
/
odbc-sql.lisp
diff --git
a/db-odbc/odbc-sql.lisp
b/db-odbc/odbc-sql.lisp
index 1d392729efc490c2c5f7482a60de765cc5c8e87b..43bcfbb7b64b43453997f414b1b7a522e61dd554 100644
(file)
--- a/
db-odbc/odbc-sql.lisp
+++ b/
db-odbc/odbc-sql.lisp
@@
-52,6
+52,7
@@
db)
(clsql-error (e)
(error e))
db)
(clsql-error (e)
(error e))
+ #+ignore
(error () ;; Init or Connect failed
(error 'clsql-connect-error
:database-type database-type
(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))
(odbc-dbi:sql sql-expression :db (database-odbc-conn database))
(clsql-error (e)
(error e))
+ #+ignore
(error ()
(error 'clsql-sql-error
:database database
(error ()
(error 'clsql-sql-error
:database database
@@
-132,6
+134,7
@@
(length column-names)
nil ;; not able to return number of rows with odbc
))
(length column-names)
nil ;; not able to return number of rows with odbc
))
+ #+ignore
(error ()
(error 'clsql-sql-error
:database database
(error ()
(error 'clsql-sql-error
:database database