X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=db-odbc%2Fodbc-constants.lisp;h=e6cc0bdf6f56ed34dbaaab018cafd95ef35a6828;hb=570798eb781157ad988bd527232bb88d51b103d7;hp=c16e2a76869201da13e5b15add9ea95147fdc129;hpb=44cd3f817f6f59ffe495db4cf2b9ea4637a57f75;p=clsql.git diff --git a/db-odbc/odbc-constants.lisp b/db-odbc/odbc-constants.lisp index c16e2a7..e6cc0bd 100644 --- a/db-odbc/odbc-constants.lisp +++ b/db-odbc/odbc-constants.lisp @@ -24,6 +24,13 @@ ;; (defconstant $ODBCVER #x0210) + +;; for new SQLAllocHandle functiion +(defconstant $SQL_HANDLE_ENV 1) +(defconstant $SQL_HANDLE_DBC 2) +(defconstant $SQL_HANDLE_STMT 3) +(defconstant $SQL_HANDLE_DESC 4) + ;; generally useful constants (defconstant $SQL_SPEC_MAJOR 2) ;; Major version of specification (defconstant $SQL_SPEC_MINOR 10) ;; Minor version of specification @@ -894,6 +901,11 @@ (defconstant $SQL_TINYINT -6) (defconstant $SQL_BIT -7) +;; For ODBC3 +(defconstant $SQL_TYPE_DATE 91) +(defconstant $SQL_TYPE_TIME 92) +(defconstant $SQL_TYPE_TIMESTAMP 93) + (defconstant $SQL_INTERVAL_YEAR -80) (defconstant $SQL_INTERVAL_MONTH -81) (defconstant $SQL_INTERVAL_YEAR_TO_MONTH -82) @@ -930,6 +942,11 @@ (defconstant $SQL_C_UTINYINT (+ $SQL_TINYINT $SQL_UNSIGNED_OFFSET)) ;;UNSIGNED TINYINT (defconstant $SQL_C_BOOKMARK $SQL_C_ULONG) ;; BOOKMARK +;;; ODBC3 +(defconstant $SQL_C_TYPE_DATE $SQL_TYPE_DATE) +(defconstant $SQL_C_TYPE_TIME $SQL_TYPE_TIME) +(defconstant $SQL_C_TYPE_TIMESTAMP $SQL_TYPE_TIMESTAMP) + ;; Options for SQLDriverConnect (defconstant $SQL_DRIVER_NOPROMPT 0) (defconstant $SQL_DRIVER_COMPLETE 1)