Hi Sven,
ADO ist in mehrere Klassen unterteilt. Hierzu mußt Du die ADO-Recordsetklasse verwenden. Und wetten, dass es Edit gibt?
Hier ist die komplette COM-Schnittstelle aufgelistet:
' ------------------------------------------------------------
' Library Name: Microsoft ActiveX Data Objects 2.5 Library
' Library File: C:ProgrammeGemeinsame Dateiensystemadomsado15.dll
' ------------------------------------------------------------
' Version Info:
' -------------
' Company Name: Microsoft Corporation
' File Description: Microsoft Data Access - ActiveX Data Objects
' File Version: 2.52.6019.1
' Internal Name: ADO15
' Legal Copyright: Copyright © Microsoft Corp. 1993-1999
' Legal Trademarks: Windows(TM) is a trademark of Microsoft Corporation.
' Microsoft® is a registered trademark of Microsoft Corporation
' Original Filename: msado15.dll
' Product Name: Microsoft Data Access Components
' Product Version: 2.52.6019.1
' ------------------------------------------------------------
' ProgID: ADODB.Command.2.5
' Interface Name: ADODBCommand
'
' ProgID: ADODB.Connection.2.5
' Interface Name: ADODBConnection
'
' ProgID: ADODB.Parameter.2.5
' Interface Name: ADODBParameter
'
' ProgID: ADODB.Record.2.5
' Interface Name: ADODBRecord
'
' ProgID: ADODB.Recordset.2.5
' Interface Name: ADODBRecordset
'
' ProgID: ADODB.Stream.2.5
' Interface Name: ADODBStream
'
' Interface Prefix: ADODB
' ------------------------------------------------------------
$PROGID_ADODBCommand25 = "ADODB.Command.2.5"
$PROGID_ADODBConnection25 = "ADODB.Connection.2.5"
$PROGID_ADODBParameter25 = "ADODB.Parameter.2.5"
$PROGID_ADODBRecord25 = "ADODB.Record.2.5"
$PROGID_ADODBRecordset25 = "ADODB.Recordset.2.5"
$PROGID_ADODBStream25 = "ADODB.Stream.2.5"
'Enumeration ADCPROP_ASYNCTHREADPRIORITY_ENUM
%adPriorityLowest = &H1
%adPriorityBelowNormal = &H2
%adPriorityNormal = &H3
%adPriorityAboveNormal = &H4
%adPriorityHighest = &H5
'Enumeration ADCPROP_AUTORECALC_ENUM
%adRecalcUpFront = &H0
%adRecalcAlways = &H1
'Enumeration ADCPROP_UPDATECRITERIA_ENUM
%adCriteriaKey = &H0
%adCriteriaAllCols = &H1
%adCriteriaUpdCols = &H2
%adCriteriaTimeStamp = &H3
'Enumeration ADCPROP_UPDATERESYNC_ENUM
%adResyncNone = &H0
%adResyncAutoIncrement = &H1
%adResyncConflicts = &H2
%adResyncUpdates = &H4
%adResyncInserts = &H8
%adResyncAll = &HF
'Enumeration AffectEnum
%adAffectCurrent = &H1
%adAffectGroup = &H2
%adAffectAll = &H3
%adAffectAllChapters = &H4
'Enumeration BookmarkEnum
%adBookmarkCurrent = &H0
%adBookmarkFirst = &H1
%adBookmarkLast = &H2
'Enumeration CommandTypeEnum
%adCmdUnspecified = &HFFFFFFFF
%adCmdUnknown = &H8
%adCmdText = &H1
%adCmdTable = &H2
%adCmdStoredProc = &H4
%adCmdFile = &H100
%adCmdTableDirect = &H200
'Enumeration CompareEnum
%adCompareLessThan = &H0
%adCompareEqual = &H1
%adCompareGreaterThan = &H2
%adCompareNotEqual = &H3
%adCompareNotComparable = &H4
'Enumeration ConnectModeEnum
%adModeUnknown = &H0
%adModeRead = &H1
%adModeWrite = &H2
%adModeReadWrite = &H3
%adModeShareDenyRead = &H4
%adModeShareDenyWrite = &H8
%adModeShareExclusive = &HC
%adModeShareDenyNone = &H10
%adModeRecursive = &H400000
'Enumeration ConnectOptionEnum
%adConnectUnspecified = &HFFFFFFFF
%adAsyncConnect = &H10
'Enumeration ConnectPromptEnum
%adPromptAlways = &H1
%adPromptComplete = &H2
%adPromptCompleteRequired = &H3
%adPromptNever = &H4
'Enumeration CopyRecordOptionsEnum
%adCopyUnspecified = &HFFFFFFFF
%adCopyOverWrite = &H1
%adCopyAllowEmulation = &H4
%adCopyNonRecursive = &H2
'Enumeration CursorLocationEnum
%adUseNone = &H1
%adUseServer = &H2
%adUseClient = &H3
%adUseClientBatch = &H3
'Enumeration CursorOptionEnum
%adHoldRecords = &H100
%adMovePrevious = &H200
%adAddNew = &H1000400
%adDelete = &H1000800
%adUpdate = &H1008000
%adBookmark = &H2000
%adApproxPosition = &H4000
%adUpdateBatch = &H10000
%adResync = &H20000
%adNotify = &H40000
%adFind = &H80000
%adSeek = &H400000
%adIndex = &H800000
'Enumeration CursorTypeEnum
%adOpenUnspecified = &HFFFFFFFF
%adOpenForwardOnly = &H0
%adOpenKeyset = &H1
%adOpenDynamic = &H2
%adOpenStatic = &H3
'Enumeration DataTypeEnum
%adEmpty = &H0
%adTinyInt = &H10
%adSmallInt = &H2
%adInteger = &H3
%adBigInt = &H14
%adUnsignedTinyInt = &H11
%adUnsignedSmallInt = &H12
%adUnsignedInt = &H13
%adUnsignedBigInt = &H15
%adSingle = &H4
%adDouble = &H5
%adCurrency = &H6
%adDecimal = &HE
%adNumeric = &H83
%adBoolean = &HB
%adError = &HA
%adUserDefined = &H84
%adVariant = &HC
%adIDispatch = &H9
%adIUnknown = &HD
%adGUID = &H48
%adDate = &H7
%adDBDate = &H85
%adDBTime = &H86
%adDBTimeStamp = &H87
%adBSTR = &H8
%adChar = &H81
%adVarChar = &HC8
%adLongVarChar = &HC9
%adWChar = &H82
%adVarWChar = &HCA
%adLongVarWChar = &HCB
%adBinary = &H80
%adVarBinary = &HCC
%adLongVarBinary = &HCD
%adChapter = &H88
%adFileTime = &H40
%adPropVariant = &H8A
%adVarNumeric = &H8B
%adArray = &H2000
'Enumeration EditModeEnum
%adEditNone = &H0
%adEditInProgress = &H1
%adEditAdd = &H2
%adEditDelete = &H4
'Enumeration ErrorValueEnum
%adErrProviderFailed = &HBB8
%adErrInvalidArgument = &HBB9
%adErrOpeningFile = &HBBA
%adErrReadFile = &HBBB
%adErrWriteFile = &HBBC
%adErrNoCurrentRecord = &HBCD
%adErrIllegalOperation = &HC93
%adErrCantChangeProvider = &HC94
%adErrInTransaction = &HCAE
%adErrFeatureNotAvailable = &HCB3
%adErrItemNotFound = &HCC1
%adErrObjectInCollection = &HD27
%adErrObjectNotSet = &HD5C
%adErrDataConversion = &HD5D
%adErrObjectClosed = &HE78
%adErrObjectOpen = &HE79
%adErrProviderNotFound = &HE7A
%adErrBoundToCommand = &HE7B
%adErrInvalidParamInfo = &HE7C
%adErrInvalidConnection = &HE7D
%adErrNotReentrant = &HE7E
%adErrStillExecuting = &HE7F
%adErrOperationCancelled = &HE80
%adErrStillConnecting = &HE81
%adErrInvalidTransaction = &HE82
%adErrNotExecuting = &HE83
%adErrUnsafeOperation = &HE84
%adwrnSecurityDialog = &HE85
%adwrnSecurityDialogHeader = &HE86
%adErrIntegrityViolation = &HE87
%adErrPermissionDenied = &HE88
%adErrDataOverflow = &HE89
%adErrSchemaViolation = &HE8A
%adErrSignMismatch = &HE8B
%adErrCantConvertvalue = &HE8C
%adErrCantCreate = &HE8D
%adErrColumnNotOnThisRow = &HE8E
%adErrURLDoesNotExist = &HE8F
%adErrTreePermissionDenied = &HE90
%adErrInvalidURL = &HE91
%adErrResourceLocked = &HE92
%adErrResourceExists = &HE93
%adErrCannotComplete = &HE94
%adErrVolumeNotFound = &HE95
%adErrOutOfSpace = &HE96
%adErrResourceOutOfScope = &HE97
%adErrUnavailable = &HE98
%adErrURLNamedRowDoesNotExist = &HE99
%adErrDelResOutOfScope = &HE9A
%adErrPropInvalidColumn = &HE9B
%adErrPropInvalidOption = &HE9C
%adErrPropInvalidValue = &HE9D
%adErrPropConflicting = &HE9E
%adErrPropNotAllSettable = &HE9F
%adErrPropNotSet = &HEA0
%adErrPropNotSettable = &HEA1
%adErrPropNotSupported = &HEA2
%adErrCatalogNotSet = &HEA3
%adErrCantChangeConnection = &HEA4
%adErrFieldsUpdateFailed = &HEA5
%adErrDenyNotSupported = &HEA6
%adErrDenyTypeNotSupported = &HEA7
'Enumeration EventReasonEnum
%adRsnAddNew = &H1
%adRsnDelete = &H2
%adRsnUpdate = &H3
%adRsnUndoUpdate = &H4
%adRsnUndoAddNew = &H5
%adRsnUndoDelete = &H6
%adRsnRequery = &H7
%adRsnResynch = &H8
%adRsnClose = &H9
%adRsnMove = &HA
%adRsnFirstChange = &HB
%adRsnMoveFirst = &HC
%adRsnMoveNext = &HD
%adRsnMovePrevious = &HE
%adRsnMoveLast = &HF
'Enumeration EventStatusEnum
%adStatusOK = &H1
%adStatusErrorsOccurred = &H2
%adStatusCantDeny = &H3
%adStatusCancel = &H4
%adStatusUnwantedEvent = &H5
'Enumeration ExecuteOptionEnum
%adOptionUnspecified = &HFFFFFFFF
%adAsyncExecute = &H10
%adAsyncFetch = &H20
%adAsyncFetchNonBlocking = &H40
%adExecuteNoRecords = &H80
'Enumeration FieldAttributeEnum
%adFldUnspecified = &HFFFFFFFF
%adFldMayDefer = &H2
%adFldUpdatable = &H4
%adFldUnknownUpdatable = &H8
%adFldFixed = &H10
%adFldIsNullable = &H20
%adFldMayBeNull = &H40
%adFldLong = &H80
%adFldRowID = &H100
%adFldRowVersion = &H200
%adFldCacheDeferred = &H1000
%adFldIsChapter = &H2000
%adFldNegativeScale = &H4000
%adFldKeyColumn = &H8000
%adFldIsRowURL = &H10000
%adFldIsDefaultStream = &H20000
%adFldIsCollection = &H40000
'Enumeration FieldEnum
%adDefaultStream = &HFFFFFFFF
%adRecordURL = &HFFFFFFFE
'Enumeration FieldStatusEnum
%adFieldOK = &H0
%adFieldCantConvertValue = &H2
%adFieldIsNull = &H3
%adFieldTruncated = &H4
%adFieldSignMismatch = &H5
%adFieldDataOverflow = &H6
%adFieldCantCreate = &H7
%adFieldUnavailable = &H8
%adFieldPermissionDenied = &H9
%adFieldIntegrityViolation = &HA
%adFieldSchemaViolation = &HB
%adFieldBadStatus = &HC
%adFieldDefault = &HD
%adFieldIgnore = &HF
%adFieldDoesNotExist = &H10
%adFieldInvalidURL = &H11
%adFieldResourceLocked = &H12
%adFieldResourceExists = &H13
%adFieldCannotComplete = &H14
%adFieldVolumeNotFound = &H15
%adFieldOutOfSpace = &H16
%adFieldCannotDeleteSource = &H17
%adFieldReadOnly = &H18
%adFieldResourceOutOfScope = &H19
%adFieldAlreadyExists = &H1A
%adFieldPendingInsert = &H10000
%adFieldPendingDelete = &H20000
%adFieldPendingChange = &H40000
%adFieldPendingUnknown = &H80000
%adFieldPendingUnknownDelete = &H100000
'Enumeration FilterGroupEnum
%adFilterNone = &H0
%adFilterPendingRecords = &H1
%adFilterAffectedRecords = &H2
%adFilterFetchedRecords = &H3
%adFilterPredicate = &H4
%adFilterConflictingRecords = &H5
'Enumeration GetRowsOptionEnum
%adGetRowsRest = &HFFFFFFFF
'Enumeration IsolationLevelEnum
%adXactUnspecified = &HFFFFFFFF
%adXactChaos = &H10
%adXactReadUncommitted = &H100
%adXactBrowse = &H100
%adXactCursorStability = &H1000
%adXactReadCommitted = &H1000
%adXactRepeatableRead = &H10000
%adXactSerializable = &H100000
%adXactIsolated = &H100000
'Enumeration LineSeparatorEnum
%adLF = &HA
%adCR = &HD
%adCRLF = &HFFFFFFFF
'Enumeration LockTypeEnum
%adLockUnspecified = &HFFFFFFFF
%adLockReadOnly = &H1
%adLockPessimistic = &H2
%adLockOptimistic = &H3
%adLockBatchOptimistic = &H4
'Enumeration MarshalOptionsEnum
%adMarshalAll = &H0
%adMarshalModifiedOnly = &H1
'Enumeration MoveRecordOptionsEnum
%adMoveUnspecified = &HFFFFFFFF
%adMoveOverWrite = &H1
%adMoveDontUpdateLinks = &H2
%adMoveAllowEmulation = &H4
'Enumeration ObjectStateEnum
%adStateClosed = &H0
%adStateOpen = &H1
%adStateConnecting = &H2
%adStateExecuting = &H4
%adStateFetching = &H8
'Enumeration ParameterAttributesEnum
%adParamSigned = &H10
%adParamNullable = &H40
%adParamLong = &H80
'Enumeration ParameterDirectionEnum
%adParamUnknown = &H0
%adParamInput = &H1
%adParamOutput = &H2
%adParamInputOutput = &H3
%adParamReturnValue = &H4
'Enumeration PersistFormatEnum
%adPersistADTG = &H0
%adPersistXML = &H1
'Enumeration PositionEnum
%adPosUnknown = &HFFFFFFFF
%adPosBOF = &HFFFFFFFE
%adPosEOF = &HFFFFFFFD
'Enumeration PropertyAttributesEnum
%adPropNotSupported = &H0
%adPropRequired = &H1
%adPropOptional = &H2
%adPropRead = &H200
%adPropWrite = &H400
'Enumeration RecordCreateOptionsEnum
%adCreateCollection = &H2000
%adCreateStructDoc = &H80000000
%adCreateNonCollection = &H0
%adOpenIfExists = &H2000000
%adCreateOverwrite = &H4000000
%adFailIfNotExists = &HFFFFFFFF
'Enumeration RecordOpenOptionsEnum
%adOpenRecordUnspecified = &HFFFFFFFF
%adOpenSource = &H800000
%adOpenAsync = &H1000
%adDelayFetchStream = &H4000
%adDelayFetchFields = &H8000
'Enumeration RecordStatusEnum
%adRecOK = &H0
%adRecNew = &H1
%adRecModified = &H2
%adRecDeleted = &H4
%adRecUnmodified = &H8
%adRecInvalid = &H10
%adRecMultipleChanges = &H40
%adRecPendingChanges = &H80
%adRecCanceled = &H100
%adRecCantRelease = &H400
%adRecConcurrencyViolation = &H800
%adRecIntegrityViolation = &H1000
%adRecMaxChangesExceeded = &H2000
%adRecObjectOpen = &H4000
%adRecOutOfMemory = &H8000
%adRecPermissionDenied = &H10000
%adRecSchemaViolation = &H20000
%adRecDBDeleted = &H40000
'Enumeration RecordTypeEnum
%adSimpleRecord = &H0
%adCollectionRecord = &H1
%adStructDoc = &H2
'Enumeration ResyncEnum
%adResyncUnderlyingValues = &H1
%adResyncAllValues = &H2
'Enumeration SaveOptionsEnum
%adSaveCreateNotExist = &H1
%adSaveCreateOverWrite = &H2
'Enumeration SchemaEnum
%adSchemaProviderSpecific = &HFFFFFFFF
%adSchemaAsserts = &H0
%adSchemaCatalogs = &H1
%adSchemaCharacterSets = &H2
%adSchemaCollations = &H3
%adSchemaColumns = &H4
%adSchemaCheckConstraints = &H5
%adSchemaConstraintColumnUsage = &H6
%adSchemaConstraintTableUsage = &H7
%adSchemaKeyColumnUsage = &H8
%adSchemaReferentialContraints = &H9
%adSchemaReferentialConstraints = &H9
%adSchemaTableConstraints = &HA
%adSchemaColumnsDomainUsage = &HB
%adSchemaIndexes = &HC
%adSchemaColumnPrivileges = &HD
%adSchemaTablePrivileges = &HE
%adSchemaUsagePrivileges = &HF
%adSchemaProcedures = &H10
%adSchemaSchemata = &H11
%adSchemaSQLLanguages = &H12
%adSchemaStatistics = &H13
%adSchemaTables = &H14
%adSchemaTranslations = &H15
%adSchemaProviderTypes = &H16
%adSchemaViews = &H17
%adSchemaViewColumnUsage = &H18
%adSchemaViewTableUsage = &H19
%adSchemaProcedureParameters = &H1A
%adSchemaForeignKeys = &H1B
%adSchemaPrimaryKeys = &H1C
%adSchemaProcedureColumns = &H1D
%adSchemaDBInfoKeywords = &H1E
%adSchemaDBInfoLiterals = &H1F
%adSchemaCubes = &H20
%adSchemaDimensions = &H21
%adSchemaHierarchies = &H22
%adSchemaLevels = &H23
%adSchemaMeasures = &H24
%adSchemaProperties = &H25
%adSchemaMembers = &H26
%adSchemaTrustees = &H27
'Enumeration SearchDirectionEnum
%adSearchForward = &H1
%adSearchBackward = &HFFFFFFFF
'Enumeration SeekEnum
%adSeekFirstEQ = &H1
%adSeekLastEQ = &H2
%adSeekAfterEQ = &H4
%adSeekAfter = &H8
%adSeekBeforeEQ = &H10
%adSeekBefore = &H20
'Enumeration StreamOpenOptionsEnum
%adOpenStreamUnspecified = &HFFFFFFFF
%adOpenStreamAsync = &H1
%adOpenStreamFromRecord = &H4
'Enumeration StreamReadEnum
%adReadAll = &HFFFFFFFF
%adReadLine = &HFFFFFFFE
'Enumeration StreamTypeEnum
%adTypeBinary = &H1
%adTypeText = &H2
'Enumeration StreamWriteEnum
%adWriteChar = &H0
%adWriteLine = &H1
%stWriteChar = &H0
%stWriteLine = &H1
'Enumeration StringFormatEnum
%adClipString = &H2
'Enumeration XactAttributeEnum
%adXactCommitRetaining = &H20000
%adXactAbortRetaining = &H40000
%adXactAsyncPhaseOne = &H80000
%adXactSyncPhaseOne = &H100000
Interface Dispatch ADODBCommand
Member Get Properties<&H1F4>() As ADODBProperties
Member Get ActiveConnection<&H1>() As ADODBConnection
Member Let ActiveConnection<&H1>() 'Parameter Type As ADODBConnection
Member Let ActiveConnection<&H1>() 'Parameter Type As Variant
Member Get CommandText<&H2>() As String
Member Let CommandText<&H2>() 'Parameter Type As String
Member Get CommandTimeout<&H3>() As Long
Member Let CommandTimeout<&H3>() 'Parameter Type As Long
Member Get Prepared<&H4>() As Long
Member Let Prepared<&H4>() 'Parameter Type As Long
Member Call Execute<&H5>(optional out RecordsAffected As Variant<&H0>, _
optional in Parameters As Variant<&H1>, optional in Options As Long<&H2>) _
As ADODBRecordset
Member Call CreateParameter<&H6>(optional in Name As String<&H0>, optional _
in Type As %DataTypeEnum<&H1>, optional in Direction As _
%ParameterDirectionEnum<&H2>, optional in Size As Long<&H3>, _
optional in Value As Variant<&H4>) As ADODBParameter
Member Get Parameters<&H0>() As ADODBParameters
Member Let CommandType<&H7>() 'Parameter Type As %CommandTypeEnum
Member Get CommandType<&H7>() As Long 'CommandTypeEnum
Member Get Name<&H8>() As String
Member Let Name<&H8>() 'Parameter Type As String
Member Get State<&H9>() As Long
Member Call Cancel<&HA>()
End Interface
Interface Dispatch ADODBConnection
Member Get Properties<&H1F4>() As ADODBProperties
Member Get ConnectionString<&H0>() As String
Member Let ConnectionString<&H0>() 'Parameter Type As String
Member Get CommandTimeout<&H2>() As Long
Member Let CommandTimeout<&H2>() 'Parameter Type As Long
Member Get ConnectionTimeout<&H3>() As Long
Member Let ConnectionTimeout<&H3>() 'Parameter Type As Long
Member Get Version<&H4>() As String
Member Call Close<&H5>()
Member Call Execute<&H6>(in CommandText As String<&H0>, optional out _
RecordsAffected As Variant<&H1>, optional in Options As Long<&H2>) As _
ADODBRecordset
Member Call BeginTrans<&H7>() As Long
Member Call CommitTrans<&H8>()
Member Call RollbackTrans<&H9>()
Member Call Open<&HA>(optional in ConnectionString As String<&H0>, optional _
in UserID As String<&H1>, optional in Password As String<&H2>, optional _
in Options As Long<&H3>)
Member Get Errors<&HB>() As ADODBErrors
Member Get DefaultDatabase<&HC>() As String
Member Let DefaultDatabase<&HC>() 'Parameter Type As String
Member Get IsolationLevel<&HD>() As Long 'IsolationLevelEnum
Member Let IsolationLevel<&HD>() 'Parameter Type As %IsolationLevelEnum
Member Get Attributes<&HE>() As Long
Member Let Attributes<&HE>() 'Parameter Type As Long
Member Get CursorLocation<&HF>() As Long 'CursorLocationEnum
Member Let CursorLocation<&HF>() 'Parameter Type As %CursorLocationEnum
Member Get Mode<&H10>() As Long 'ConnectModeEnum
Member Let Mode<&H10>() 'Parameter Type As %ConnectModeEnum
Member Get Provider<&H11>() As String
Member Let Provider<&H11>() 'Parameter Type As String
Member Get State<&H12>() As Long
Member Call OpenSchema<&H13>(in Schema As %SchemaEnum<&H0>, optional in _
Restrictions As Variant<&H1>, optional in SchemaID As Variant<&H2>) As _
ADODBRecordset
Member Call Cancel<&H15>()
End Interface
Interface Dispatch ADODBParameter
Member Get Properties<&H1F4>() As ADODBProperties
Member Get Name<&H1>() As String
Member Let Name<&H1>() 'Parameter Type As String
Member Get Value<&H0>() As Variant
Member Let Value<&H0>() 'Parameter Type As Variant
Member Get Type<&H2>() As Long 'DataTypeEnum
Member Let Type<&H2>() 'Parameter Type As %DataTypeEnum
Member Let Direction<&H3>() 'Parameter Type As %ParameterDirectionEnum
Member Get Direction<&H3>() As Long 'ParameterDirectionEnum
Member Let Precision<&H4>() 'Parameter Type As Byte
Member Get Precision<&H4>() As Byte
Member Let NumericScale<&H5>() 'Parameter Type As Byte
Member Get NumericScale<&H5>() As Byte
Member Let Size<&H6>() 'Parameter Type As Long
Member Get Size<&H6>() As Long
Member Call AppendChunk<&H7>(in Val As Variant<&H0>)
Member Get Attributes<&H8>() As Long
Member Let Attributes<&H8>() 'Parameter Type As Long
End Interface
Interface Dispatch ADODBRecord
Member Get Properties<&H1F4>() As ADODBProperties
Member Get ActiveConnection<&H1>() As Variant
Member Let ActiveConnection<&H1>() 'Parameter Type As String
Member Let ActiveConnection<&H1>() 'Parameter Type As ADODBConnection
Member Get State<&H2>() As Long 'ObjectStateEnum
Member Get Source<&H3>() As Variant
Member Let Source<&H3>() 'Parameter Type As String
Member Let Source<&H3>() 'Parameter Type As Variant
Member Get Mode<&H4>() As Long 'ConnectModeEnum
Member Let Mode<&H4>() 'Parameter Type As %ConnectModeEnum
Member Get ParentURL<&H5>() As String
Member Call MoveRecord<&H6>(optional in Source As String<&H0>, optional in _
Destination As String<&H1>, optional in UserName As String<&H2>, optional _
in Password As String<&H3>, optional in Options As _
%MoveRecordOptionsEnum<&H4>, _
optional in Async As Long<&H5>) As String
Member Call CopyRecord<&H7>(optional in Source As String<&H0>, optional in _
Destination As String<&H1>, optional in UserName As String<&H2>, optional _
in Password As String<&H3>, optional in Options As _
%CopyRecordOptionsEnum<&H4>, _
optional in Async As Long<&H5>) As String
Member Call DeleteRecord<&H8>(optional in Source As String<&H0>, optional _
in Async As Long<&H1>)
Member Call Open<&H9>(optional in Source As Variant<&H0>, optional in _
ActiveConnection As Variant<&H1>, optional in Mode As _
%ConnectModeEnum<&H2>, optional in CreateOptions As _
%RecordCreateOptionsEnum<&H3>, _
optional in Options As %RecordOpenOptionsEnum<&H4>, optional in _
UserName As String<&H5>, optional in Password As String<&H6>)
Member Call Close<&HA>()
Member Get Fields<&H0>() As ADODBFields
Member Get RecordType<&HB>() As Long 'RecordTypeEnum
Member Call GetChildren<&HC>() As ADODBRecordset
Member Call Cancel<&HD>()
End Interface
Interface Dispatch ADODBRecordset
Member Get Properties<&H1F4>() As ADODBProperties
Member Get AbsolutePosition<&H3E8>() As Long 'PositionEnum
Member Let AbsolutePosition<&H3E8>() 'Parameter Type As %PositionEnum
Member Let ActiveConnection<&H3E9>() 'Parameter Type As Variant
Member Let ActiveConnection<&H3E9>() 'Parameter Type As Variant
Member Get ActiveConnection<&H3E9>() As Variant
Member Get BOF<&H3EA>() As Long
Member Get Bookmark<&H3EB>() As Variant
Member Let Bookmark<&H3EB>() 'Parameter Type As Variant
Member Get CacheSize<&H3EC>() As Long
Member Let CacheSize<&H3EC>() 'Parameter Type As Long
Member Get CursorType<&H3ED>() As Long 'CursorTypeEnum
Member Let CursorType<&H3ED>() 'Parameter Type As %CursorTypeEnum
Member Get EOF<&H3EE>() As Long
Member Get Fields<&H0>() As ADODBFields
Member Get LockType<&H3F0>() As Long 'LockTypeEnum
Member Let LockType<&H3F0>() 'Parameter Type As %LockTypeEnum
Member Get MaxRecords<&H3F1>() As Long
Member Let MaxRecords<&H3F1>() 'Parameter Type As Long
Member Get RecordCount<&H3F2>() As Long
Member Let Source<&H3F3>() 'Parameter Type As Variant
Member Let Source<&H3F3>() 'Parameter Type As String
Member Get Source<&H3F3>() As Variant
Member Call AddNew<&H3F4>(optional in FieldList As Variant<&H0>, optional _
in Values As Variant<&H1>)
Member Call CancelUpdate<&H3F5>()
Member Call Close<&H3F6>()
Member Call Delete<&H3F7>(optional in AffectRecords As %AffectEnum<&H0>)
Member Call GetRows<&H3F8>(optional in Rows As Long<&H0>, optional in Start _
As Variant<&H1>, optional in Fields As Variant<&H2>) As Variant
Member Call Move<&H3F9>(in NumRecords As Long<&H0>, optional in Start As _
Variant<&H1>)
Member Call MoveNext<&H3FA>()
Member Call MovePrevious<&H3FB>()
Member Call MoveFirst<&H3FC>()
Member Call MoveLast<&H3FD>()
Member Call Open<&H3FE>(optional in Source As Variant<&H0>, optional in _
ActiveConnection As Variant<&H1>, optional in CursorType As _
%CursorTypeEnum<&H2>, optional in LockType As %LockTypeEnum<&H3>, _
optional in Options As Long<&H4>)
Member Call Requery<&H3FF>(optional in Options As Long<&H0>)
Member Call Update<&H401>(optional in Fields As Variant<&H0>, optional in _
Values As Variant<&H1>)
Member Get AbsolutePage<&H417>() As Long 'PositionEnum
Member Let AbsolutePage<&H417>() 'Parameter Type As %PositionEnum
Member Get EditMode<&H402>() As Long 'EditModeEnum
Member Get Filter<&H406>() As Variant
Member Let Filter<&H406>() 'Parameter Type As Variant
Member Get PageCount<&H41A>() As Long
Member Get PageSize<&H418>() As Long
Member Let PageSize<&H418>() 'Parameter Type As Long
Member Get Sort<&H407>() As String
Member Let Sort<&H407>() 'Parameter Type As String
Member Get Status<&H405>() As Long
Member Get State<&H41E>() As Long
Member Call UpdateBatch<&H40B>(optional in AffectRecords As _
%AffectEnum<&H0>)
Member Call CancelBatch<&H419>(optional in AffectRecords As _
%AffectEnum<&H0>)
Member Get CursorLocation<&H41B>() As Long 'CursorLocationEnum
Member Let CursorLocation<&H41B>() 'Parameter Type As %CursorLocationEnum
Member Call NextRecordset<&H41C>(optional out RecordsAffected As _
Variant<&H0>) As ADODBRecordset
Member Call Supports<&H40C>(in CursorOptions As %CursorOptionEnum<&H0>) As _
Long
Member Get MarshalOptions<&H41D>() As Long 'MarshalOptionsEnum
Member Let MarshalOptions<&H41D>() 'Parameter Type As %MarshalOptionsEnum
Member Call Find<&H422>(in Criteria As String<&H0>, optional in SkipRecords _
As Long<&H1>, optional in SearchDirection As %SearchDirectionEnum<&H2>, _
optional in Start As Variant<&H3>)
Member Call Cancel<&H41F>()
Member Get DataSource<&H420>() As Variant
Member Let DataSource<&H420>() 'Parameter Type As Variant
Member Get ActiveCommand<&H425>() As Variant
Member Let StayInSync<&H427>() 'Parameter Type As Long
Member Get StayInSync<&H427>() As Long
Member Call GetString<&H426>(optional in StringFormat As _
%StringFormatEnum<&H0>, optional in NumRows As Long<&H1>, optional in _
ColumnDelimeter As String<&H2>, optional in RowDelimeter As String<&H3>, _
optional in NullExpr As String<&H4>) As String
Member Get DataMember<&H428>() As String
Member Let DataMember<&H428>() 'Parameter Type As String
Member Call CompareBookmarks<&H429>(in Bookmark1 As Variant<&H0>, in _
Bookmark2 As Variant<&H1>) As Long 'CompareEnum
Member Call Clone<&H40A>(optional in LockType As %LockTypeEnum<&H0>) As _
ADODBRecordset
Member Call Resync<&H400>(optional in AffectRecords As %AffectEnum<&H0>, _
optional in ResyncValues As %ResyncEnum<&H1>)
Member Call Seek<&H42A>(in KeyValues As Variant<&H0>, optional in _
SeekOption As %SeekEnum<&H1>)
Member Let Index<&H42B>() 'Parameter Type As String
Member Get Index<&H42B>() As String
Member Call Save<&H421>(optional in Destination As Variant<&H0>, optional _
in PersistFormat As %PersistFormatEnum<&H1>)
End Interface
Interface Dispatch ADODBStream
Member Get Size<&H1>() As Long
Member Get EOS<&H2>() As Long
Member Get Position<&H3>() As Long
Member Let Position<&H3>() 'Parameter Type As Long
Member Get Type<&H4>() As Long 'StreamTypeEnum
Member Let Type<&H4>() 'Parameter Type As %StreamTypeEnum
Member Get LineSeparator<&H5>() As Long 'LineSeparatorEnum
Member Let LineSeparator<&H5>() 'Parameter Type As %LineSeparatorEnum
Member Get State<&H6>() As Long 'ObjectStateEnum
Member Get Mode<&H7>() As Long 'ConnectModeEnum
Member Let Mode<&H7>() 'Parameter Type As %ConnectModeEnum
Member Get Charset<&H8>() As String
Member Let Charset<&H8>() 'Parameter Type As String
Member Call Read<&H9>(optional in NumBytes As Long<&H0>) As Variant
Member Call Open<&HA>(optional in Source As Variant<&H0>, optional in Mode _
As %ConnectModeEnum<&H1>, optional in Options As _
%StreamOpenOptionsEnum<&H2>, optional in UserName As String<&H3>, _
optional in Password As String<&H4>)
Member Call Close<&HB>()
Member Call SkipLine<&HC>()
Member Call Write<&HD>(in Buffer As Variant<&H0>)
Member Call SetEOS<&HE>()
Member Call CopyTo<&HF>(in DestStream As ADODBStream<&H0>, optional in _
CharNumber As Long<&H1>)
Member Call Flush<&H10>()
Member Call SaveToFile<&H11>(in FileName As String<&H0>, optional in _
Options As %SaveOptionsEnum<&H1>)
Member Call LoadFromFile<&H12>(in FileName As String<&H0>)
Member Call ReadText<&H13>(optional in NumChars As Long<&H0>) As String
Member Call WriteText<&H14>(in Data As String<&H0>, optional in Options As _
%StreamWriteEnum<&H1>)
Member Call Cancel<&H15>()
End Interface
Interface Dispatch ADODBConnectionEvents
Member Call InfoMessage<&H0>(in pError As ADODBError<&H0>, inout adStatus _
As %EventStatusEnum<&H1>, in pConnection As ADODBConnection<&H2>) As Long
Member Call BeginTransComplete<&H1>(in TransactionLevel As Long<&H0>, in _
pError As ADODBError<&H1>, inout adStatus As %EventStatusEnum<&H2>, in _
pConnection As ADODBConnection<&H3>) As Long
Member Call CommitTransComplete<&H3>(in pError As ADODBError<&H0>, inout _
adStatus As %EventStatusEnum<&H1>, in pConnection As ADODBConnection<&H2>) _
As Long
Member Call RollbackTransComplete<&H2>(in pError As ADODBError<&H0>, inout _
adStatus As %EventStatusEnum<&H1>, in pConnection As ADODBConnection<&H2>) _
As Long
Member Call WillExecute<&H4>(inout Source As String<&H0>, inout CursorType _
As %CursorTypeEnum<&H1>, inout LockType As %LockTypeEnum<&H2>, inout _
Options As Long<&H3>, inout adStatus As %EventStatusEnum<&H4>, in pCommand _
As ADODBCommand<&H5>, _
in pRecordset As ADODBRecordset<&H6>, in pConnection As _
ADODBConnection<&H7>) As Long
Member Call ExecuteComplete<&H5>(in RecordsAffected As Long<&H0>, in pError _
As ADODBError<&H1>, inout adStatus As %EventStatusEnum<&H2>, in pCommand As _
ADODBCommand<&H3>, in pRecordset As ADODBRecordset<&H4>, _
in pConnection As ADODBConnection<&H5>) As Long
Member Call WillConnect<&H6>(inout ConnectionString As String<&H0>, inout _
UserID As String<&H1>, inout Password As String<&H2>, inout Options As _
Long<&H3>, inout adStatus As %EventStatusEnum<&H4>, _
in pConnection As ADODBConnection<&H5>) As Long
Member Call ConnectComplete<&H7>(in pError As ADODBError<&H0>, inout _
adStatus As %EventStatusEnum<&H1>, in pConnection As _
ADODBConnection<&H2>) As Long
Member Call Disconnect<&H8>(inout adStatus As %EventStatusEnum<&H0>, in _
pConnection As ADODBConnection<&H1>) As Long
End Interface
Interface Dispatch ADODBError
Member Get Number<&H1>() As Long
Member Get Source<&H2>() As String
Member Get Description<&H0>() As String
Member Get HelpFile<&H3>() As String
Member Get HelpContext<&H4>() As Long
Member Get SQLState<&H5>() As String
Member Get NativeError<&H6>() As Long
End Interface
Interface Dispatch ADODBErrors
Member Get Count<&H1>() As Long
Member Call Refresh<&H2>()
Member Get Item<&H0>(in Index As Variant<&H0>) As ADODBError
Member Call Clear<&H60030001>()
End Interface
Interface Dispatch ADODBField
Member Get Properties<&H1F4>() As ADODBProperties
Member Get ActualSize<&H455>() As Long
Member Get Attributes<&H45A>() As Long
Member Get DefinedSize<&H44F>() As Long
Member Get Name<&H44C>() As String
Member Get Type<&H44E>() As Long 'DataTypeEnum
Member Get Value<&H0>() As Variant
Member Let Value<&H0>() 'Parameter Type As Variant
Member Get Precision<&H458>() As Byte
Member Get NumericScale<&H459>() As Byte
Member Call AppendChunk<&H453>(in Data As Variant<&H0>)
Member Call GetChunk<&H454>(in Length As Long<&H0>) As Variant
Member Get OriginalValue<&H450>() As Variant
Member Get UnderlyingValue<&H451>() As Variant
Member Get DataFormat<&H45B>() As Variant
Member Let DataFormat<&H45B>() 'Parameter Type As Variant
Member Let Precision<&H458>() 'Parameter Type As Byte
Member Let NumericScale<&H459>() 'Parameter Type As Byte
Member Let Type<&H44E>() 'Parameter Type As %DataTypeEnum
Member Let DefinedSize<&H44F>() 'Parameter Type As Long
Member Let Attributes<&H45A>() 'Parameter Type As Long
Member Get Status<&H45C>() As Long
End Interface
Interface Dispatch ADODBFields
Member Get Count<&H1>() As Long
Member Call Refresh<&H2>()
Member Get Item<&H0>(in Index As Variant<&H0>) As ADODBField
Member Call Delete<&H4>(in Index As Variant<&H0>)
Member Call Append<&H3>(in Name As String<&H0>, in Type As _
%DataTypeEnum<&H1>, optional in DefinedSize As Long<&H2>, optional in _
Attrib As %FieldAttributeEnum<&H3>, optional in FieldValue As _
Variant<&H4>)
Member Call Update<&H5>()
Member Call Resync<&H6>(optional in ResyncValues As %ResyncEnum<&H0>)
Member Call CancelUpdate<&H7>()
End Interface
Interface Dispatch ADODBParameters
Member Get Count<&H1>() As Long
Member Call Refresh<&H2>()
Member Call Append<&H60030000>(in Object As Variant<&H0>)
Member Call Delete<&H60030001>(in Index As Variant<&H0>)
Member Get Item<&H0>(in Index As Variant<&H0>) As ADODBParameter
End Interface
Interface Dispatch ADODBProperties
Member Get Count<&H1>() As Long
Member Call Refresh<&H2>()
Member Get Item<&H0>(in Index As Variant<&H0>) As ADODBProperty
End Interface
Interface Dispatch ADODBProperty
Member Get Value<&H0>() As Variant
Member Let Value<&H0>() 'Parameter Type As Variant
Member Get Name<&H60020002>() As String
Member Get Type<&H60020003>() As Long 'DataTypeEnum
Member Get Attributes<&H60020004>() As Long
Member Let Attributes<&H60020004>() 'Parameter Type As Long
End Interface
Interface Dispatch ADODBRecordsetEvents
Member Call WillChangeField<&H9>(in cFields As Long<&H0>, in Fields As _
Variant<&H1>, inout adStatus As %EventStatusEnum<&H2>, in pRecordset As _
ADODBRecordset<&H3>) As Long
Member Call FieldChangeComplete<&HA>(in cFields As Long<&H0>, in Fields As _
Variant<&H1>, in pError As ADODBError<&H2>, inout adStatus As _
%EventStatusEnum<&H3>, in pRecordset As ADODBRecordset<&H4>) As Long
Member Call WillChangeRecord<&HB>(in adReason As %EventReasonEnum<&H0>, in _
cRecords As Long<&H1>, inout adStatus As %EventStatusEnum<&H2>, in _
pRecordset As ADODBRecordset<&H3>) As Long
Member Call RecordChangeComplete<&HC>(in adReason As %EventReasonEnum<&H0>, _
in cRecords As Long<&H1>, in pError As ADODBError<&H2>, inout adStatus As _
%EventStatusEnum<&H3>, in pRecordset As ADODBRecordset<&H4>) As Long
Member Call WillChangeRecordset<&HD>(in adReason As %EventReasonEnum<&H0>, _
inout adStatus As %EventStatusEnum<&H1>, in pRecordset As _
ADODBRecordset<&H2>) As Long
Member Call RecordsetChangeComplete<&HE>(in adReason As _
%EventReasonEnum<&H0>, in pError As ADODBError<&H1>, inout adStatus As _
%EventStatusEnum<&H2>, in pRecordset As ADODBRecordset<&H3>) As Long
Member Call WillMove<&HF>(in adReason As %EventReasonEnum<&H0>, inout _
adStatus As %EventStatusEnum<&H1>, in pRecordset As ADODBRecordset<&H2>) As _
Long
Member Call MoveComplete<&H10>(in adReason As %EventReasonEnum<&H0>, in _
pError As ADODBError<&H1>, inout adStatus As %EventStatusEnum<&H2>, in _
pRecordset As ADODBRecordset<&H3>) As Long
Member Call EndOfRecordset<&H11>(inout fMoreData As Long<&H0>, inout _
adStatus As %EventStatusEnum<&H1>, in pRecordset As ADODBRecordset<&H2>) As _
Long
Member Call FetchProgress<&H12>(in Progress As Long<&H0>, in MaxProgress As _
Long<&H1>, inout adStatus As %EventStatusEnum<&H2>, in pRecordset As _
ADODBRecordset<&H3>) As Long
Member Call FetchComplete<&H13>(in pError As ADODBError<&H0>, inout _
adStatus As %EventStatusEnum<&H1>, in pRecordset As ADODBRecordset<&H2>) As _
Long
End InterfaceSuche mal nach Edit und Update und Du wirst fündig 
cu
Lordchen |
Forenübersicht Suchen Forumsregeln
Oktober 2025
Sie sind aktuell nicht angemeldet.
