New record type odbc-column for SQLDescribeCol()
(odbc-sql-describe-col) return values.
This commit is contained in:
parent
a76fdbfe59
commit
64b6410756
|
@ -60,6 +60,17 @@
|
|||
(else
|
||||
(error "Unknown handle type: " record))))
|
||||
|
||||
(define-record-type odbc-column :odbc-column
|
||||
(really-make-odbc-column name type size digits nullable?)
|
||||
odbc-column?
|
||||
(name odbc-column-name)
|
||||
(type odbc-column-type)
|
||||
(size odbc-column-size)
|
||||
(digits odbc-column-digits)
|
||||
(nullable? odbc-column-nullable?))
|
||||
|
||||
(define-exported-binding "odbc-column" :odbc-column)
|
||||
|
||||
;;; options for SQLFreeStmt from sql.h
|
||||
(define sql-disconnect-opt-close 0)
|
||||
(define sql-disconnect-opt-drop 1)
|
||||
|
|
Loading…
Reference in New Issue