ADO Constants for use with Late Binding ActiveX Data Objects 2.8 Library (1 Viewer)

mdlueck

Sr. Application Developer
Local time
Today, 06:51
Joined
Jun 23, 2011
Messages
2,631
I recently changed over to Late Binding coding style for code interfacing to Microsoft ActiveX Data Objects 2.8 Library. It was necessary to define many constants which that reference required. I found an official looking link, and worked up a single module which defines all of the needed constants.

Suggested module name: modshared_ado

Code:
Rem /************************************************************************************/
Rem /* FILENAME       :  modshared_ado                                                  */
Rem /* TYPE           :  VBA Module                                                     */
Rem /* DESCRIPTION    :  VBA code which is required for Late Binding ADO DB objects     */
Rem /*                   Found at:                                                      */
Rem /* http://msdn.microsoft.com/en-us/library/windows/desktop/ms678353%28v=vs.85%29.aspx */
Rem /*                                                                                  */
Rem /* AUTHOR         :  Michael D Lueck                                                */
Rem /*                   mlueck@lueckdatasystems.com                                    */
Rem /*                                                                                  */
Rem /* NEEDS          :                                                                 */
Rem /*                                                                                  */
Rem /* USAGE          :                                                                 */
Rem /*                                                                                  */
Rem /* REVISION HISTORY                                                                 */
Rem /*                                                                                  */
Rem /* DATE       REVISED BY DESCRIPTION OF CHANGE                                      */
Rem /* ---------- ---------- -------------------------------------------------------    */
Rem /* 03/01/2012 MDL        Initial Creation                                           */
Rem /************************************************************************************/

Option Compare Database
Option Explicit

'---- ADCPROP_ASYNCTHREADPRIORITY_ENUM ----
Public Const adPriorityAboveNormal = 4
Public Const adPriorityBelowNormal = 2
Public Const adPriorityHighest = 5
Public Const adPriorityLowest = 1
Public Const adPriorityNormal = 3

'---- ADCPROP_AUTORECALC_ENUM ----
Public Const adRecalcAlways = 1
Public Const adRecalcUpFront = 0

'---- ADCPROP_UPDATECRITERIA_ENUM ----
Public Const adCriteriaAllCols = 1
Public Const adCriteriaKey = 0
Public Const adCriteriaTimeStamp = 3
Public Const adCriteriaUpdCols = 2

'---- ADCPROP_UPDATERESYNC_ENUM ----
Public Const adResyncAll = 15
Public Const adResyncAutoIncrement = 1
Public Const adResyncConflicts = 2
Public Const adResyncInserts = 8
Public Const adResyncNone = 0
Public Const adResyncUpdates = 4

'---- AffectEnum ----
Public Const adAffectAll = 3
Public Const adAffectAllChapters = 4
Public Const adAffectCurrent = 1
Public Const adAffectGroup = 2

'---- BookmarkEnum ----
Public Const adBookmarkCurrent = 0
Public Const adBookmarkFirst = 1
Public Const adBookmarkLast = 2

'---- CommandTypeEnum ----
Public Const adCmdUnspecified = -1
Public Const adCmdText = 1
Public Const adCmdTable = 2
Public Const adCmdStoredProc = 4
Public Const adCmdUnknown = 8
Public Const adCmdFile = 256
Public Const adCmdTableDirect = 512

'---- CompareEnum ----
Public Const adCompareEqual = 1
Public Const adCompareGreaterThan = 2
Public Const adCompareLessThan = 0
Public Const adCompareNotComparable = 4
Public Const adCompareNotEqual = 3

'---- ConnectModeEnum ----
Public Const adModeRead = 1
Public Const adModeReadWrite = 3
Public Const adModeRecursive = &H400000
Public Const adModeShareDenyNone = 16
Public Const adModeShareDenyRead = 4
Public Const adModeShareDenyWrite = 8
Public Const adModeShareExclusive = 12
Public Const adModeUnknown = 0
Public Const adModeWrite = 2

'---- ConnectOptionEnum ----
Public Const adAsyncConnect = 16
Public Const adConnectUnspecified = -1

'---- ConnectPromptEnum ----
Public Const adPromptAlways = 1
Public Const adPromptComplete = 2
Public Const adPromptCompleteRequired = 3
Public Const adPromptNever = 4

'---- CopyRecordOptionsEnum ----
Public Const adCopyAllowEmulation = 4
Public Const adCopyNonRecursive = 2
Public Const adCopyOverWrite = 1
Public Const adCopyUnspecified = -1

'---- CursorLocationEnum ----
Public Const adUseClient = 3
Public Const adUseNone = 1
Public Const adUseServer = 2

'---- CursorOptionEnum ----
Public Const adAddNew = &H1000400
Public Const adApproxPosition = &H4000
Public Const adBookmark = &H2000
Public Const adDelete = &H1000800
Public Const adFind = &H80000
Public Const adHoldRecords = &H100
Public Const adIndex = &H100000
Public Const adMovePrevious = &H200
Public Const adNotify = &H40000
Public Const adResync = &H20000
Public Const adSeek = &H200000
Public Const adUpdate = &H1008000
Public Const adUpdateBatch = &H10000

'---- CursorTypeEnum ----
Public Const adOpenDynamic = 2
Public Const adOpenForwardOnly = 0
Public Const adOpenKeyset = 1
Public Const adOpenStatic = 3
Public Const adOpenUnspecified = -1

'---- DataTypeEnum ----
Public Const adArray = &H2000
Public Const adBigInt = 20
Public Const adBinary = 128
Public Const adBoolean = 11
Public Const adBSTR = 8
Public Const adChapter = 136
Public Const adChar = 129
Public Const adCurrency = 6
Public Const adDate = 7
Public Const adDBDate = 133
Public Const adDBTime = 134
Public Const adDBTimeStamp = 135
Public Const adDecimal = 14
Public Const adDouble = 5
Public Const adEmpty = 0
Public Const adError = 10
Public Const adFileTime = 64
Public Const adGUID = 72
Public Const adIDispatch = 9
Public Const adInteger = 3
Public Const adIUnknown = 13
Public Const adLongVarBinary = 205
Public Const adLongVarChar = 201
Public Const adLongVarWChar = 203
Public Const adNumeric = 131
Public Const adPropVariant = 138
Public Const adSingle = 4
Public Const adSmallInt = 2
Public Const adTinyInt = 16
Public Const adUnsignedBigInt = 21
Public Const adUnsignedInt = 19
Public Const adUnsignedSmallInt = 18
Public Const adUnsignedTinyInt = 17
Public Const adUserDefined = 132
Public Const adVarBinary = 204
Public Const adVarChar = 200
Public Const adVariant = 12
Public Const adVarNumeric = 139
Public Const adVarWChar = 202
Public Const adWChar = 130

'---- EditModeEnum ----
Public Const adEditNone = 0
Public Const adEditInProgress = 1
Public Const adEditAdd = 2
Public Const adEditDelete = 4

'---- ErrorValueEnum ----
Public Const adErrBoundToCommand = 3707
Public Const adErrCannotComplete = 3732
Public Const adErrCantChangeConnection = 3748
Public Const adErrCantChangeProvider = 3220
Public Const adErrCantConvertvalue = 3724
Public Const adErrCantCreate = 3725
Public Const adErrCatalogNotSet = 3747
Public Const adErrColumnNotOnThisRow = 3726
Public Const adErrDataConversion = 3421
Public Const adErrDataOverflow = 3721
Public Const adErrDelResOutOfScope = 3738
Public Const adErrDenyNotSupported = 3750
Public Const adErrDenyTypeNotSupported = 3751
Public Const adErrFeatureNotAvailable = 3251
Public Const adErrFieldsUpdateFailed = 3749
Public Const adErrIllegalOperation = 3219
Public Const adErrIntegrityViolation = 3719
Public Const adErrInTransaction = 3246
Public Const adErrInvalidArgument = 3001
Public Const adErrInvalidConnection = 3709
Public Const adErrInvalidParamInfo = 3708
Public Const adErrInvalidTransaction = 3714
Public Const adErrInvalidURL = 3729
Public Const adErrItemNotFound = 3265
Public Const adErrNoCurrentRecord = 3021
Public Const adErrNotExecuting = 3715
Public Const adErrNotReentrant = 3710
Public Const adErrObjectClosed = 3704
Public Const adErrObjectInCollection = 3367
Public Const adErrObjectNotSet = 3420
Public Const adErrObjectOpen = 3705
Public Const adErrOpeningFile = 3002
Public Const adErrOperationCancelled = 3712
Public Const adErrOutOfSpace = 3734
Public Const adErrPermissionDenied = 3720
Public Const adErrProviderFailed = 3000
Public Const adErrProviderNotFound = 3706
Public Const adErrReadFile = 3003
Public Const adErrResourceExists = 3731
Public Const adErrResourceLocked = 3730
Public Const adErrResourceOutOfScope = 3735
Public Const adErrSchemaViolation = 3722
Public Const adErrSignMismatch = 3723
Public Const adErrStillConnecting = 3713
Public Const adErrStillExecuting = 3711
Public Const adErrTreePermissionDenied = 3728
Public Const adErrUnavailable = 3736
Public Const adErrUnsafeOperation = 3716
Public Const adErrURLDoesNotExist = 3727
Public Const adErrURLNamedRowDoesNotExist = 3737
Public Const adErrVolumeNotFound = 3733
Public Const adErrWriteFile = 3004
Public Const adWrnSecurityDialog = 3717
Public Const adWrnSecurityDialogHeader = 3718

'---- EventReasonEnum ----
Public Const adRsnAddNew = 1
Public Const adRsnClose = 9
Public Const adRsnDelete = 2
Public Const adRsnFirstChange = 11
Public Const adRsnMove = 10
Public Const adRsnMoveFirst = 12
Public Const adRsnMoveLast = 15
Public Const adRsnMoveNext = 13
Public Const adRsnMovePrevious = 14
Public Const adRsnRequery = 7
Public Const adRsnResynch = 8
Public Const adRsnUndoAddNew = 5
Public Const adRsnUndoDelete = 6
Public Const adRsnUndoUpdate = 4
Public Const adRsnUpdate = 3

'---- EventStatusEnum ----
Public Const adStatusCancel = 4
Public Const adStatusCantDeny = 3
Public Const adStatusErrorsOccurred = 2
Public Const adStatusOK = 1
Public Const adStatusUnwantedEvent = 5

'---- ExecuteOptionEnum ----
Public Const adAsyncExecute = &H10
Public Const adAsyncFetch = &H20
Public Const adAsyncFetchNonBlocking = &H40
Public Const adExecuteNoRecords = &H80
Public Const adExecuteStream = &H400
Public Const adExecuteRecord = 2048
Public Const adOptionUnspecified = -1

'---- FieldEnum ----
Public Const adDefaultStream = -1
Public Const adRecordURL = -2

'---- FieldAttributeEnum ----
Public Const adFldCacheDeferred = &H1000
Public Const adFldFixed = &H10
Public Const adFldIsChapter = &H2000
Public Const adFldIsCollection = &H40000
Public Const adFldKeyColumn = &H8000
Public Const adFldIsDefaultStream = &H20000
Public Const adFldIsNullable = &H20
Public Const adFldIsRowURL = &H10000
Public Const adFldLong = &H80
Public Const adFldMayBeNull = &H40
Public Const adFldMayDefer = &H2
Public Const adFldNegativeScalem = &H4000
Public Const adFldRowID = &H100
Public Const adFldRowVersion = &H200
Public Const adFldUnknownUpdatable = &H8
Public Const adFldUnspecified = -1
Public Const adFldUpdatable = &H4

'---- FieldStatusEnum ----
Public Const adFieldAlreadyExists = 26
Public Const adFieldBadStatus = 12
Public Const adFieldCannotComplete = 20
Public Const adFieldCannotDeleteSource = 23
Public Const adFieldCantConvertValue = 2
Public Const adFieldCantCreate = 7
Public Const adFieldDataOverflow = 6
Public Const adFieldDefault = 13
Public Const adFieldDoesNotExist = 16
Public Const adFieldIgnore = 15
Public Const adFieldIntegrityViolation = 10
Public Const adFieldInvalidURL = 17
Public Const adFieldIsNull = 3
Public Const adFieldOK = 0
Public Const adFieldOutOfSpace = 22
Public Const adFieldPendingChange = &H40000
Public Const adFieldPendingDelete = &H20000
Public Const adFieldPendingInsert = &H10000
Public Const adFieldPendingUnknown = &H80000
Public Const adFieldPendingUnknownDelete = &H100000
Public Const adFieldPermissionDenied = &H9
Public Const adFieldReadOnly = &H24
Public Const adFieldResourceExists = 19
Public Const adFieldResourceLocked = 18
Public Const adFieldResourceOutOfScope = 25
Public Const adFieldSchemaViolation = 11
Public Const adFieldSignMismatch = 5
Public Const adFieldTruncated = 4
Public Const adFieldUnavailable = 8
Public Const adFieldVolumeNotFound = 21

'---- FilterGroupEnum ----
Public Const adFilterAffectedRecords = 2
Public Const adFilterConflictingRecords = 5
Public Const adFilterFetchedRecords = 3
Public Const adFilterNone = 0
Public Const adFilterPendingRecords = 1

'---- GetRowsOptionEnum ----
Public Const adGetRowsRest = -1

'---- IsolationLevelEnum ----
Public Const adXactUnspecified = -1
Public Const adXactChaos = 16
Public Const adXactBrowse = 256
Public Const adXactReadUncommitted = 256
Public Const adXactCursorStability = 4096
Public Const adXactReadCommitted = 4096
Public Const adXactRepeatableRead = 65536
Public Const adXactIsolated = 1048576
Public Const adXactSerializable = 1048576

'---- LineSeparatorsEnum ----
Public Const adCR = 13
Public Const adCRLF = -1
Public Const adLF = 10

'---- LockTypeEnum ----
Public Const adLockBatchOptimistic = 4
Public Const adLockOptimistic = 3
Public Const adLockPessimistic = 2
Public Const adLockReadOnly = 1
Public Const adLockUnspecified = -1

'---- MarshalOptionsEnum ----
Public Const adMarshalAll = 0
Public Const adMarshalModifiedOnly = 1

'---- MoveRecordOptionsEnum ----
Public Const adMoveUnspecified = -1
Public Const adMoveOverWrite = 1
Public Const adMoveDontUpdateLinks = 2
Public Const adMoveAllowEmulation = 4

'---- ObjectStateEnum ----
Public Const adStateClosed = 0
Public Const adStateOpen = 1
Public Const adStateConnecting = 2
Public Const adStateExecuting = 4
Public Const adStateFetching = 8

'---- ParameterAttributesEnum ----
Public Const adParamSigned = 16
Public Const adParamNullable = 64
Public Const adParamLong = 128

'---- ParameterDirectionEnum ----
Public Const adParamInput = 1
Public Const adParamInputOutput = 3
Public Const adParamOutput = 2
Public Const adParamReturnValue = 4
Public Const adParamUnknown = 0

'---- PersistFormatEnum ----
Public Const adPersistADTG = 0
Public Const adPersistADO = 1
Public Const adPersistXML = 1
Public Const adPersistProviderSpecific = 2

'---- PositionEnum ----
Public Const adPosBOF = -2
Public Const adPosEOF = -3
Public Const adPosUnknown = -1

'---- PropertyAttributesEnum ----
Public Const adPropNotSupported = 0
Public Const adPropRequired = 1
Public Const adPropOptional = 2
Public Const adPropRead = 512
Public Const adPropWrite = 1024

'---- RecordCreateOptionsEnum ----
Public Const adCreateCollection = &H2000
Public Const adCreateNonCollection = 0
Public Const adCreateOverwrite = &H4000000
Public Const adCreateStructDoc = &H80000000
Public Const adFailIfNotExists = -1
Public Const adOpenIfExists = &H2000000

'---- RecordOpenOptionsEnum ----
Public Const adDelayFetchFields = &H8000
Public Const adDelayFetchStream = &H4000
Public Const adOpenAsync = &H1000
Public Const adOpenExecuteCommand = &H10000
Public Const adOpenRecordUnspecified = -1
Public Const adOpenOutput = &H800000

'---- RecordStatusEnum ----
Public Const adRecCanceled = &H100
Public Const adRecCantRelease = &H400
Public Const adRecConcurrencyViolation = &H800
Public Const adRecDBDeleted = &H40000
Public Const adRecDeleted = &H4
Public Const adRecIntegrityViolation = &H1000
Public Const adRecInvalid = &H10
Public Const adRecMaxChangesExceeded = &H2000
Public Const adRecModified = &H2
Public Const adRecMultipleChanges = &H40
Public Const adRecNew = &H1
Public Const adRecObjectOpen = &H4000
Public Const adRecOK = 0
Public Const adRecOutOfMemory = &H8000
Public Const adRecPendingChanges = &H80
Public Const adRecPermissionDenied = &H10000
Public Const adRecSchemaViolation = &H20000
Public Const adRecUnmodified = &H8

'---- RecordTypeEnum ----
Public Const adSimpleRecord = 0
Public Const adCollectionRecord = 1
Public Const adRecordUnknown = -1
Public Const adStructDoc = 2

'---- ResyncEnum ----
Public Const adResyncAllValues = 2
Public Const adResyncUnderlyingValues = 1

'---- SaveOptionsEnum ----
Public Const adSaveCreateNotExist = 1
Public Const adSaveCreateOverWrite = 2

'---- SchemaEnum ----
Public Const adSchemaAsserts = 0
Public Const adSchemaCatalogs = 1
Public Const adSchemaCharacterSets = 2
Public Const adSchemaCheckConstraints = 5
Public Const adSchemaCollations = 3
Public Const adSchemaColumnPrivileges = 13
Public Const adSchemaColumns = 4
Public Const adSchemaColumnsDomainUsage = 11
Public Const adSchemaConstraintColumnUsage = 6
Public Const adSchemaConstraintTableUsage = 7
Public Const adSchemaCubes = 32
Public Const adSchemaDBInfoKeywords = 30
Public Const adSchemaDBInfoLiterals = 31
Public Const adSchemaDimensions = 33
Public Const adSchemaForeignKeys = 27
Public Const adSchemaHierarchies = 34
Public Const adSchemaIndexes = 12
Public Const adSchemaKeyColumnUsage = 8
Public Const adSchemaLevels = 35
Public Const adSchemaMeasures = 36
Public Const adSchemaMembers = 38
Public Const adSchemaPrimaryKeys = 28
Public Const adSchemaProcedureColumns = 29
Public Const adSchemaProcedureParameters = 26
Public Const adSchemaProcedures = 16
Public Const adSchemaProperties = 37
Public Const adSchemaProviderSpecific = -1
Public Const adSchemaProviderTypes = 22
Public Const AdSchemaReferentialConstraints = 9
Public Const adSchemaSchemata = 17
Public Const adSchemaSQLLanguages = 18
Public Const adSchemaStatistics = 19
Public Const adSchemaTableConstraints = 10
Public Const adSchemaTablePrivileges = 14
Public Const adSchemaTables = 20
Public Const adSchemaTranslations = 21
Public Const adSchemaTrustees = 39
Public Const adSchemaUsagePrivileges = 15
Public Const adSchemaViewColumnUsage = 24
Public Const adSchemaViews = 23
Public Const adSchemaViewTableUsage = 25

'---- SearchDirectionEnum ----
Public Const adSearchBackward = -1
Public Const adSearchForward = 1

'---- SeekEnum ----
Public Const adSeekFirstEQ = 1
Public Const adSeekLastEQ = 2
Public Const adSeekAfterEQ = 4
Public Const adSeekAfter = 8
Public Const adSeekBeforeEQ = 16
Public Const adSeekBefore = 32

'---- StreamOpenOptionsEnum ----
Public Const adOpenStreamAsync = 1
Public Const adOpenStreamFromRecord = 4
Public Const adOpenStreamUnspecified = -1

'---- StreamReadEnum ----
Public Const adReadAll = -1
Public Const adReadLine = -2

'---- StreamTypeEnum ----
Public Const adTypeBinary = 1
Public Const adTypeText = 2

'---- StreamWriteEnum ----
Public Const adWriteChar = 0
Public Const adWriteLine = 1

'---- StringFormatEnum ----
Public Const adClipString = 2

'---- XactAttributeEnum ----
Public Const adXactAbortRetaining = 262144
Public Const adXactCommitRetaining = 131072
 

JohnPapa

Registered User.
Local time
Today, 12:51
Joined
Aug 15, 2010
Messages
954
Truly an excellent resource. Thanks for posting.
John
 

Users who are viewing this thread

Top Bottom