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) 
-                          result-types) 
+                          result-types field-names) 
   (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