Update of /cvsroot/htoolkit/HSQL/ODBC/Database/HSQL
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24722/ODBC/Database/HSQL
Modified Files:
ODBC.hsc
Log Message:
The type of execute function is changed. Now it returns the number of the rows affected.
Index: ODBC.hsc
===================================================================
RCS file: /cvsroot/htoolkit/HSQL/ODBC/Database/HSQL/ODBC.hsc,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** ODBC.hsc 12 Dec 2005 15:21:56 -0000 1.5
--- ODBC.hsc 3 Jan 2006 22:59:46 -0000 1.6
***************
*** 185,189 ****
sqlFreeConnect hDBC >>= handleSqlResult (#const SQL_HANDLE_DBC) hDBC
! execute :: HDBC -> String -> IO ()
execute hDBC query = allocaBytes (#const sizeof(HSTMT)) $
\pStmt -> do
--- 185,189 ----
sqlFreeConnect hDBC >>= handleSqlResult (#const SQL_HANDLE_DBC) hDBC
! execute :: HDBC -> String -> IO Integer
execute hDBC query = allocaBytes (#const sizeof(HSTMT)) $
\pStmt -> do
***************
*** 196,199 ****
--- 196,200 ----
res <- sqlFreeStmt hSTMT (#const SQL_DROP)
handleSqlResult (#const SQL_HANDLE_STMT) hSTMT res
+ return (-1)
stmtBufferSize = 256
|
