projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r9185: first effort at support field names in QUERY calls, still needs testing
[clsql.git]
/
db-odbc
/
odbc-sql.lisp
diff --git
a/db-odbc/odbc-sql.lisp
b/db-odbc/odbc-sql.lisp
index 3b2d310bba72d41abdc8aa865ed7c82734b7c15d..bfc6d892b4faf0c838749cba697dbf202ca9fa5a 100644
(file)
--- a/
db-odbc/odbc-sql.lisp
+++ b/
db-odbc/odbc-sql.lisp
@@
-87,10
+87,11
@@
t)
(defmethod database-query (query-expression (database odbc-database)
t)
(defmethod database-query (query-expression (database odbc-database)
- result-types)
+ result-types
field-names
)
(handler-case
(odbc-dbi:sql query-expression :db (database-odbc-conn database)
(handler-case
(odbc-dbi:sql query-expression :db (database-odbc-conn database)
- :result-types result-types)
+ :result-types result-types
+ :column-names field-names)
(clsql-error (e)
(error e))
#+ignore
(clsql-error (e)
(error e))
#+ignore