((hdbc sql-handle) ; HDBC hdbc
(*szDSN :cstring) ; UCHAR FAR *szDSN
(cbDSN :short) ; SWORD cbDSN
- (*szUID :cstring) ; UCHAR FAR *szUID
+ (*szUID :cstring) ; UCHAR FAR *szUID
(cbUID :short) ; SWORD cbUID
(*szAuthStr :cstring) ; UCHAR FAR *szAuthStr
(cbAuthStr :short) ; SWORD cbAuthStr
(def-function "SQLDriverConnect"
((hdbc sql-handle) ; HDBC hdbc
(hwnd sql-handle) ; SQLHWND hwnd
- (*szConnStrIn string-ptr) ; UCHAR FAR *szConnStrIn
+ (*szConnStrIn :cstring) ; UCHAR FAR *szConnStrIn
(cbConnStrIn :short) ; SWORD cbConnStrIn
(*szConnStrOut string-ptr) ; UCHAR FAR *szConnStrOut
(cbConnStrOutMax :short) ; SWORD cbConnStrOutMax
((hdbc sql-handle)) ; HDBC hdbc
:module "odbc"
:returning :short) ; RETCODE_SQL_API
-
+
;; deprecated
(def-function "SQLAllocStmt"
((hdbc sql-handle) ; HDBC hdbc
:module "odbc"
:returning :short) ; RETCODE_SQL_API
- ; level 2
+ ; level 2
(def-function "SQLExtendedFetch"
((hstmt sql-handle) ; HSTMT hstmt
(fFetchType :short) ; UWORD fFetchType
;;; foreign type definitions
-;;(defmacro %sql-len-data-at-exec (length)
+;;(defmacro %sql-len-data-at-exec (length)
;; `(- $SQL_LEN_DATA_AT_EXEC_OFFSET ,length))
-(def-struct sql-c-time
+(def-struct sql-c-time
(hour :short)
(minute :short)
(second :short))
(year :short)
(month :short)
(day :short))
-
+
(def-struct sql-c-timestamp
(year :short)
(month :short)
(table-name :pointer-void)
(table-name-length :short)
(table-type-name :pointer-void)
- (table-type-name-length :short)
- (unique :short)
- (reserved :short))
+ (table-type-name-length :short))
:module "odbc"
:returning :short)