New record type odbc-column for SQLDescribeCol()

(odbc-sql-describe-col) return values.
This commit is contained in:
eknauel 2002-09-03 12:34:18 +00:00
parent a76fdbfe59
commit 64b6410756
1 changed files with 11 additions and 0 deletions

View File

@ -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)