projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r9522: * sql/odbc-api.lisp: Update to using ODBC V3 protocol
[clsql.git]
/
db-odbc
/
odbc-constants.lisp
diff --git
a/db-odbc/odbc-constants.lisp
b/db-odbc/odbc-constants.lisp
index 5ca1f2ac860114cd66378a702bff6edffa38ebae..591a3afa43fcc76c0f7a3f0df4e15bbd62652eae 100644
(file)
--- a/
db-odbc/odbc-constants.lisp
+++ b/
db-odbc/odbc-constants.lisp
@@
-6,7
+6,7
@@
;;;; Purpose: Constants for UFFI interface to ODBC
;;;; Authors: Kevin M. Rosenberg and Paul Meurer
;;;;
;;;; Purpose: Constants for UFFI interface to ODBC
;;;; Authors: Kevin M. Rosenberg and Paul Meurer
;;;;
-;;;; $Id
: odbc-package.lisp 7061 2003-09-07 06:34:45Z kevin
$
+;;;; $Id$
;;;;
;;;; This file, part of CLSQL, is Copyright (c) 2004 by Kevin M. Rosenberg
;;;; and Copyright (C) Paul Meurer 1999 - 2001. All rights reserved.
;;;;
;;;; This file, part of CLSQL, is Copyright (c) 2004 by Kevin M. Rosenberg
;;;; and Copyright (C) Paul Meurer 1999 - 2001. All rights reserved.
@@
-22,7
+22,7
@@
(defconstant $ODBC-LONG-TYPE :int)
(defconstant $ODBC-ULONG-TYPE :unsigned-int)
(defconstant $ODBC-LONG-TYPE :int)
(defconstant $ODBC-ULONG-TYPE :unsigned-int)
-
(defconstant $ODBCVER
#x0210)
+
;; (defconstant $ODBCVER
#x0210)
;; generally useful constants
(defconstant $SQL_SPEC_MAJOR 2) ;; Major version of specification
;; generally useful constants
(defconstant $SQL_SPEC_MAJOR 2) ;; Major version of specification
@@
-802,7
+802,6
@@
(defconstant $SQL_POSITION 0) ;; 1.0 FALSE
(defconstant $SQL_REFRESH 1) ;; 1.0 TRUE
(defconstant $SQL_POSITION 0) ;; 1.0 FALSE
(defconstant $SQL_REFRESH 1) ;; 1.0 TRUE
-; #if (ODBCVER >= #x0200))
(defconstant $SQL_UPDATE 2)
(defconstant $SQL_DELETE 3)
(defconstant $SQL_ADD 4)
(defconstant $SQL_UPDATE 2)
(defconstant $SQL_DELETE 3)
(defconstant $SQL_ADD 4)
@@
-895,6
+894,11
@@
(defconstant $SQL_TINYINT -6)
(defconstant $SQL_BIT -7)
(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)
(defconstant $SQL_INTERVAL_YEAR -80)
(defconstant $SQL_INTERVAL_MONTH -81)
(defconstant $SQL_INTERVAL_YEAR_TO_MONTH -82)
@@
-931,6
+935,11
@@
(defconstant $SQL_C_UTINYINT (+ $SQL_TINYINT $SQL_UNSIGNED_OFFSET)) ;;UNSIGNED TINYINT
(defconstant $SQL_C_BOOKMARK $SQL_C_ULONG) ;; BOOKMARK
(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)
;; Options for SQLDriverConnect
(defconstant $SQL_DRIVER_NOPROMPT 0)
(defconstant $SQL_DRIVER_COMPLETE 1)