r9007: odbc updates

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

diff --git a/db-odbc/odbc-sql.lisp b/db-odbc/odbc-sql.lisp
index a92e6feeca8bd7462d3c81fa60d3fdd9351342f5..c42d93c8db1f9a282d40e73cf9c11922ec964d4a 100644 (file)
--- a/db-odbc/odbc-sql.lisp
+++ b/db-odbc/odbc-sql.lisp
@@ -77,10 +77,11 @@
   (setf (database-odbc-conn database) nil)
   t)
 
-(defmethod database-query (query-expression (database odbc-database) result-types) 
+(defmethod database-query (query-expression (database odbc-database) 
+                          result-types) 
   (handler-case
       (odbc-dbi:sql query-expression :db (database-odbc-conn database)
-              :types result-types)
+                   :query t :result-types result-types)
     (error ()
       (error 'clsql-sql-error
             :database database