projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r9959: more odbc v3 conversions
[clsql.git]
/
db-odbc
/
odbc-api.lisp
diff --git
a/db-odbc/odbc-api.lisp
b/db-odbc/odbc-api.lisp
index 492bf826f6dcfaedff31eac124d7da4b5e36a737..4095f6cfeef3d4872add1725fd31daa8cd58f587 100644
(file)
--- a/
db-odbc/odbc-api.lisp
+++ b/
db-odbc/odbc-api.lisp
@@
-151,7
+151,7
@@
as possible second argument) to the desired representation of date/time/timestam
(with-foreign-object (phenv 'sql-handle)
(with-error-handling
()
(with-foreign-object (phenv 'sql-handle)
(with-error-handling
()
- (SQLAlloc
Env
phenv)
+ (SQLAlloc
Handle $SQL_HANDLE_ENV +null-handle-ptr+
phenv)
(deref-pointer phenv 'sql-handle)))))
(%set-attr-odbc-version henv $SQL_OV_ODBC3)
henv))
(deref-pointer phenv 'sql-handle)))))
(%set-attr-odbc-version henv $SQL_OV_ODBC3)
henv))
@@
-164,9
+164,10
@@
as possible second argument) to the desired representation of date/time/timestam
(defun %new-db-connection-handle (henv)
(with-foreign-object (phdbc 'sql-handle)
(defun %new-db-connection-handle (henv)
(with-foreign-object (phdbc 'sql-handle)
+ (setf (deref-pointer phdbc sql-handle) +null-handle-ptr+)
(with-error-handling
(:henv henv)
(with-error-handling
(:henv henv)
- (SQLAlloc
Connect
henv phdbc)
+ (SQLAlloc
Handle $SQL_HANDLE_DBC
henv phdbc)
(deref-pointer phdbc 'sql-handle))))
(defun %free-statement (hstmt option)
(deref-pointer phdbc 'sql-handle))))
(defun %free-statement (hstmt option)