RDO, COM interface constants for VB.Net / VBScript

RDO - interface constants

     This page contains simple VBA include for the RDO COM library.

library parameters

File NameWINDOWS\system32\MSRDO20.DLL
Guid{EE008642-64A8-11CE-920F-08002B369A33}
Enums17

PromptConstants

enum, 4 members.
  'Prompt Constants
Public Enum PromptConstants

  'The driver manager displays the ODBC Data Sources dialog box.
  rdDriverPrompt = 0  '&H0

  'The driver manager uses the connection string provided in Connect.  If sufficient information is not provided, the OpenConnection method returns a trappable error.
  rdDriverNoPrompt = 1  '&H1

  'If the connection string provided includes the DSN keyword, the driver manager uses the string as provided in Connect, otherwise it behaves as it does when rdDriverPrompt is specified.
  rdDriverComplete = 2  '&H2

  'Behaves like rdDriverComplete except the driver disables the controls for any information not required to complete the connection.
  rdDriverCompleteRequired = 3  '&H3
End Enum

CursorDriverConstants

enum, 5 members.
  'CursorDriver Constants
Public Enum CursorDriverConstants

  'The ODBC driver will choose the appropriate style of cursors. Server-side cursors are used if they are available.
  rdUseIfNeeded = 0  '&H0

  'Use the ODBC cursor library.
  rdUseOdbc = 1  '&H1

  'Use server-side cursors.
  rdUseServer = 2  '&H2

  'Use the optimistic batch cursor library.
  rdUseClientBatch = 3  '&H3

  'Result set is not returned as a cursor.
  rdUseNone = 4  '&H4
End Enum

EditModeConstants

enum, 3 members.
  'EditMode Constants
Public Enum EditModeConstants

  'No editing operation is in progress.
  rdEditNone = 0  '&H0

  'Edit method has been invoked, and the current record is in the copy buffer.
  rdEditInProgress = 1  '&H1

  'AddNew method has been invoked, and the current record in the copy buffer is a new record that hasn't been saved in the database.
  rdEditAdd = 2  '&H2
End Enum

LockTypeConstants

enum, 5 members.
  'LockType Constants
Public Enum LockTypeConstants

  'Cursor is read-only. No updates are allowed.
  rdConcurReadOnly = 1  '&H1

  'Pessimistic concurrency.
  rdConcurLock = 2  '&H2

  'Optimistic concurrency based on row ID.
  rdConcurRowVer = 3  '&H3

  'Optimistic concurrency based on row values.
  rdConcurValues = 4  '&H4

  'Optimistic concurrency using batch mode updates. Status values returned for each row successfully updated.
  rdConcurBatch = 5  '&H5
End Enum

OptionConstants

enum, 4 members.
  'Options Constants
Public Enum OptionConstants

  'Execute the query asynchronously.
  rdAsyncEnable = 32  '&H20

  'Use the ODBC SQLExecDirect API function to execute query.
  rdExecDirect = 64  '&H40

  'Download all the data for long character and long binary columns.
  rdFetchLongColumns = 128  '&H80

  'Download all the data for long character and long binary columns.
  rdBackgroundFetch = 256  '&H100
End Enum

ResultsetTypeConstants

enum, 4 members.
  'Resultset Type Constants
Public Enum ResultsetTypeConstants

  'Fixed set, non-scrolling.
  rdOpenForwardOnly = 0  '&H0

  'Updatable, fixed set, scrollable query result set cursor.
  rdOpenKeyset = 1  '&H1

  'Updatable, dynamic set, scrollable query result set cursor.
  rdOpenDynamic = 2  '&H2

  'Read-only, fixed set.
  rdOpenStatic = 3  '&H3
End Enum

AttributeConstants

enum, 5 members.
  'Attributes Constants
Public Enum AttributeConstants

  'The column size is fixed (default for numeric columns).
  rdFixedColumn = 1  '&H1

  'The column size is variable (VarChar and LongVarChar columns only).
  rdVariableColumn = 2  '&H2

  'The column value for new rows is automatically incremented to a unique integer that can't be changed.
  rdAutoIncrColumn = 16  '&H10

  'The column value can be changed.
  rdUpdatableColumn = 32  '&H20

  'The column is a timestamp value. This attribute is set only for rdClientBatch cursors.
  rdTimestampColumn = 64  '&H40
End Enum

DataTypeConstants

enum, 23 members.
  'Data Type Constants
Public Enum DataTypeConstants

  'Fixed-length character string. Length set by Size property.
  rdTypeCHAR = 1  '&H1

  'Signed, exact, numeric value with precision p and scale s (1  p 15; 0  s  p).
  rdTypeNUMERIC = 2  '&H2

  'Signed, exact, numeric value with precision p and scale s (1  p 15; 0  s  p).
  rdTypeDECIMAL = 3  '&H3

  'Signed, exact numeric value with precision 10, scale 0 (signed: -231  n  231-1; unsigned:  0  n  232-1).
  rdTypeINTEGER = 4  '&H4

  'Signed, exact numeric value with precision 5, scale 0 (signed: -32,768  n  32,767, unsigned: 0  n  65,535).
  rdTypeSMALLINT = 5  '&H5

  'Signed, approximate numeric value with mantissa precision 15 (zero or absolute value 10-308  to 10308).
  rdTypeFLOAT = 6  '&H6

  'Signed, approximate numeric value with mantissa precision 7 (zero or absolute value 10-38  to 1038).
  rdTypeREAL = 7  '&H7

  'Signed, approximate numeric value with mantissa precision 15 (zero or absolute value 10-308  to 10308).
  rdTypeDOUBLE = 8  '&H8

  'Date -- data source dependent.
  rdTypeDATE = 9  '&H9

  'Time -- data source dependent.
  rdTypeTIME = 10  '&HA

  'TimeStamp -- data source dependent.
  rdTypeTIMESTAMP = 11  '&HB

  'Variable-length character string. Maximum length 255.
  rdTypeVARCHAR = 12  '&HC

  'Variable-length character string. Maximum length determined by data source.
  rdTypeLONGVARCHAR = -1  '&HFFFFFFFF

  'Fixed-length binary data. Maximum length 255.
  rdTypeBINARY = -2  '&HFFFFFFFE

  'Variable-length binary data. Maximum length 255.
  rdTypeVARBINARY = -3  '&HFFFFFFFD

  'Variable-length binary data. Maximum data source dependent.
  rdTypeLONGVARBINARY = -4  '&HFFFFFFFC

  'Signed, exact numeric value with precision 19 (signed) or 20 (unsigned), scale 0; (signed: -263  n  263-1; unsigned:  0  n  264-1).
  rdTypeBIGINT = -5  '&HFFFFFFFB

  'Signed, exact numeric value with precision 3, scale 0; (signed: -128  n  127, unsigned: 0  n  255).
  rdTypeTINYINT = -6  '&HFFFFFFFA

  'Single binary digit.
  rdTypeBIT = -7  '&HFFFFFFF9

  'Fixed-length unicode character string. Length set by Size property.
  rdTypeWCHAR = -8  '&HFFFFFFF8

  'Variable-length unicode character string.
  rdTypeWVARCHAR = -9  '&HFFFFFFF7

  'Variable-length unicode character string. Maximum length determined by data source.
  rdTypeWLONGVARCHAR = -10  '&HFFFFFFF6

  'GUID.
  rdTypeGUID = -11  '&HFFFFFFF5
End Enum

DirectionConstants

enum, 4 members.
  'Direction Constants
Public Enum DirectionConstants

  'The parameter is used to pass information to the procedure.
  rdParamInput = 0  '&H0

  'The parameter is used to pass information both to and from the procedure.
  rdParamInputOutput = 1  '&H1

  'The parameter is used to return information from the procedure as in an output parameter in SQL.
  rdParamOutput = 2  '&H2

  'The parameter is used to return the return status value from a procedure.
  rdParamReturnValue = 3  '&H3
End Enum

rdoLocaleIDConstants

enum, 10 members.
  'rdoLocaleID  Constants
Public Enum rdoLocaleIDConstants

  'English
  rdLocaleEnglish = 1  '&H1

  'French
  rdLocaleFrench = 2  '&H2

  'German
  rdLocaleGerman = 3  '&H3

  'Italian
  rdLocaleItalian = 4  '&H4

  'Japanese
  rdLocaleJapanese = 5  '&H5

  'Spanish
  rdLocaleSpanish = 6  '&H6

  'Chinese
  rdLocaleChinese = 7  '&H7

  'Simplified Chinese
  rdLocaleSimplifiedChinese = 8  '&H8

  'Korean
  rdLocaleKorean = 9  '&H9

  'System
  rdLocaleSystem = 0  '&H0
End Enum

QueryTypeConstants

enum, 4 members.
  'Query Type Constants
Public Enum QueryTypeConstants

  'Select
  rdQSelect = 0  '&H0

  'Action
  rdQAction = 1  '&H1

  'Procedural
  rdQProcedures = 2  '&H2

  'The query contains both action and select statements
  rdQCompound = 3  '&H3
End Enum

SQLRetcodeConstants

enum, 5 members.
  'SQL Retcode Constants
Public Enum SQLRetcodeConstants

  'The operation is successful.
  rdSQLSuccess = 0  '&H0

  'The operation is successful, and additional information is available.
  rdSQLSuccessWithInfo = 1  '&H1

  'No additional data is available.
  rdSQLNoDataFound = 100  '&H64

  'An error occurred performing the operation.
  rdSQLError = -1  '&HFFFFFFFF

  'The handle supplied is invalid.
  rdSQLInvalidHandle = -2  '&HFFFFFFFE
End Enum

RowStatusConstants

enum, 5 members.
  'Row Status Constants
Public Enum RowStatusConstants

  'The row has not been modified or has been updated successfully.
  rdRowUnmodified = 0  '&H0

  'The row has been modified and not updated in the database.
  rdRowModified = 1  '&H1

  'The row has been inserted with the AddNew method, but not yet inserted into the database.
  rdRowNew = 2  '&H2

  'The row has been deleted, but not yet deleted in the database.
  rdRowDeleted = 3  '&H3

  'The row has been deleted locally and in the database.
  rdRowDBDeleted = 4  '&H4
End Enum

ColumnStatusConstants

enum, 2 members.
  'Column Status Constants
Public Enum ColumnStatusConstants

  'The row has not been modified or has been updated successfully.
  rdColUnmodified = 0  '&H0

  'The row has been modified.
  rdColModified = 1  '&H1
End Enum

UpdateOperationConstants

enum, 2 members.
  'Update Operation Constants
Public Enum UpdateOperationConstants

  'Uses an Update statement for each modified row.
  rdOperationUpdate = 0  '&H0

  'Uses a pair of Delete and Insert statements for each modified row.
  rdOperationDelIns = 1  '&H1
End Enum

UpdateCriteriaConstants

enum, 4 members.
  'Update Criteria Constants
Public Enum UpdateCriteriaConstants

  'Uses just the key column(s) in the Where clause.
  rdCriteriaKey = 0  '&H0

  'Uses the key column(s) and all updated columns in the Where clause.
  rdCriteriaAllCols = 1  '&H1

  'Uses the key column(s) and all the columns in the Where clause.
  rdCriteriaUpdCols = 2  '&H2

  'Uses just the timestamp column if available (will generate a runtime error if no timestamp column is in the resultset).
  rdCriteriaTimeStamp = 3  '&H3
End Enum

UpdateReturnCodeConstants

enum, 4 members.
  'Update Return Code Constants
Public Enum UpdateReturnCodeConstants

  'The developer handled the update and was successful in doing so.
  rdUpdateSuccessful = 0  '&H0

  'The developer handled the update, was successful, but some rows produced collisions (batch mode only).
  rdUpdateWithCollisions = 1  '&H1

  'The developer attempted to handle the update, but encountered an error when doing so.
  rdUpdateFailed = 2  '&H2

  'The developer did not handle the update, RDO should continue notifying, and if no one handles the update RDO should update the data itself.
  rdUpdateNotHandled = 3  '&H3
End Enum
WUtils.com