1// Visual DataFlex COM proxy classes generated from C:\Program Files\Common Files\System\ado\msado28.tlb
2Use FlexCom20.pkg
3
4
5Define OLECursorTypeEnum for Integer
6 Define OLEadOpenUnspecified for -1
7 Define OLEadOpenForwardOnly for 0
8 Define OLEadOpenKeyset for 1
9 Define OLEadOpenDynamic for 2
10 Define OLEadOpenStatic for 3
11
12Define OLECursorOptionEnum for Integer
13 Define OLEadHoldRecords for 256
14 Define OLEadMovePrevious for 512
15 Define OLEadAddNew for 16778240
16 Define OLEadDelete for 16779264
17 Define OLEadUpdate for 16809984
18 Define OLEadBookmark for 8192
19 Define OLEadApproxPosition for 16384
20 Define OLEadUpdateBatch for 65536
21 Define OLEadResync for 131072
22 Define OLEadNotify for 262144
23 Define OLEadFind for 524288
24 Define OLEadSeek for 4194304
25 Define OLEadIndex for 8388608
26
27Define OLELockTypeEnum for Integer
28 Define OLEadLockUnspecified for -1
29 Define OLEadLockReadOnly for 1
30 Define OLEadLockPessimistic for 2
31 Define OLEadLockOptimistic for 3
32 Define OLEadLockBatchOptimistic for 4
33
34Define OLEExecuteOptionEnum for Integer
35 Define OLEadOptionUnspecified for -1
36 Define OLEadAsyncExecute for 16
37 Define OLEadAsyncFetch for 32
38 Define OLEadAsyncFetchNonBlocking for 64
39 Define OLEadExecuteNoRecords for 128
40 Define OLEadExecuteStream for 1024
41 Define OLEadExecuteRecord for 2048
42
43Define OLEConnectOptionEnum for Integer
44 Define OLEadConnectUnspecified for -1
45 Define OLEadAsyncConnect for 16
46
47Define OLEObjectStateEnum for Integer
48 Define OLEadStateClosed for 0
49 Define OLEadStateOpen for 1
50 Define OLEadStateConnecting for 2
51 Define OLEadStateExecuting for 4
52 Define OLEadStateFetching for 8
53
54Define OLECursorLocationEnum for Integer
55 Define OLEadUseNone for 1
56 Define OLEadUseServer for 2
57 Define OLEadUseClient for 3
58 Define OLEadUseClientBatch for 3
59
60Define OLEDataTypeEnum for Integer
61 Define OLEadEmpty for 0
62 Define OLEadTinyInt for 16
63 Define OLEadSmallInt for 2
64 Define OLEadInteger for 3
65 Define OLEadBigInt for 20
66 Define OLEadUnsignedTinyInt for 17
67 Define OLEadUnsignedSmallInt for 18
68 Define OLEadUnsignedInt for 19
69 Define OLEadUnsignedBigInt for 21
70 Define OLEadSingle for 4
71 Define OLEadDouble for 5
72 Define OLEadCurrency for 6
73 Define OLEadDecimal for 14
74 Define OLEadNumeric for 131
75 Define OLEadBoolean for 11
76 Define OLEadError for 10
77 Define OLEadUserDefined for 132
78 Define OLEadVariant for 12
79 Define OLEadIDispatch for 9
80 Define OLEadIUnknown for 13
81 Define OLEadGUID for 72
82 Define OLEadDate for 7
83 Define OLEadDBDate for 133
84 Define OLEadDBTime for 134
85 Define OLEadDBTimeStamp for 135
86 Define OLEadBSTR for 8
87 Define OLEadChar for 129
88 Define OLEadVarChar for 200
89 Define OLEadLongVarChar for 201
90 Define OLEadWChar for 130
91 Define OLEadVarWChar for 202
92 Define OLEadLongVarWChar for 203
93 Define OLEadBinary for 128
94 Define OLEadVarBinary for 204
95 Define OLEadLongVarBinary for 205
96 Define OLEadChapter for 136
97 Define OLEadFileTime for 64
98 Define OLEadPropVariant for 138
99 Define OLEadVarNumeric for 139
100 Define OLEadArray for 8192
101
102Define OLEFieldAttributeEnum for Integer
103 Define OLEadFldUnspecified for -1
104 Define OLEadFldMayDefer for 2
105 Define OLEadFldUpdatable for 4
106 Define OLEadFldUnknownUpdatable for 8
107 Define OLEadFldFixed for 16
108 Define OLEadFldIsNullable for 32
109 Define OLEadFldMayBeNull for 64
110 Define OLEadFldLong for 128
111 Define OLEadFldRowID for 256
112 Define OLEadFldRowVersion for 512
113 Define OLEadFldCacheDeferred for 4096
114 Define OLEadFldIsChapter for 8192
115 Define OLEadFldNegativeScale for 16384
116 Define OLEadFldKeyColumn for 32768
117 Define OLEadFldIsRowURL for 65536
118 Define OLEadFldIsDefaultStream for 131072
119 Define OLEadFldIsCollection for 262144
120
121Define OLEEditModeEnum for Integer
122 Define OLEadEditNone for 0
123 Define OLEadEditInProgress for 1
124 Define OLEadEditAdd for 2
125 Define OLEadEditDelete for 4
126
127Define OLERecordStatusEnum for Integer
128 Define OLEadRecOK for 0
129 Define OLEadRecNew for 1
130 Define OLEadRecModified for 2
131 Define OLEadRecDeleted for 4
132 Define OLEadRecUnmodified for 8
133 Define OLEadRecInvalid for 16
134 Define OLEadRecMultipleChanges for 64
135 Define OLEadRecPendingChanges for 128
136 Define OLEadRecCanceled for 256
137 Define OLEadRecCantRelease for 1024
138 Define OLEadRecConcurrencyViolation for 2048
139 Define OLEadRecIntegrityViolation for 4096
140 Define OLEadRecMaxChangesExceeded for 8192
141 Define OLEadRecObjectOpen for 16384
142 Define OLEadRecOutOfMemory for 32768
143 Define OLEadRecPermissionDenied for 65536
144 Define OLEadRecSchemaViolation for 131072
145 Define OLEadRecDBDeleted for 262144
146
147Define OLEGetRowsOptionEnum for Integer
148 Define OLEadGetRowsRest for -1
149
150Define OLEPositionEnum for Integer
151 Define OLEadPosUnknown for -1
152 Define OLEadPosBOF for -2
153 Define OLEadPosEOF for -3
154
155Define OLEBookmarkEnum for Integer
156 Define OLEadBookmarkCurrent for 0
157 Define OLEadBookmarkFirst for 1
158 Define OLEadBookmarkLast for 2
159
160Define OLEMarshalOptionsEnum for Integer
161 Define OLEadMarshalAll for 0
162 Define OLEadMarshalModifiedOnly for 1
163
164Define OLEAffectEnum for Integer
165 Define OLEadAffectCurrent for 1
166 Define OLEadAffectGroup for 2
167 Define OLEadAffectAll for 3
168 Define OLEadAffectAllChapters for 4
169
170Define OLEResyncEnum for Integer
171 Define OLEadResyncUnderlyingValues for 1
172 Define OLEadResyncAllValues for 2
173
174Define OLECompareEnum for Integer
175 Define OLEadCompareLessThan for 0
176 Define OLEadCompareEqual for 1
177 Define OLEadCompareGreaterThan for 2
178 Define OLEadCompareNotEqual for 3
179 Define OLEadCompareNotComparable for 4
180
181Define OLEFilterGroupEnum for Integer
182 Define OLEadFilterNone for 0
183 Define OLEadFilterPendingRecords for 1
184 Define OLEadFilterAffectedRecords for 2
185 Define OLEadFilterFetchedRecords for 3
186 Define OLEadFilterPredicate for 4
187 Define OLEadFilterConflictingRecords for 5
188
189Define OLESearchDirectionEnum for Integer
190 Define OLEadSearchForward for 1
191 Define OLEadSearchBackward for -1
192
193Define OLEPersistFormatEnum for Integer
194 Define OLEadPersistADTG for 0
195 Define OLEadPersistXML for 1
196
197Define OLEStringFormatEnum for Integer
198 Define OLEadClipString for 2
199
200Define OLEConnectPromptEnum for Integer
201 Define OLEadPromptAlways for 1
202 Define OLEadPromptComplete for 2
203 Define OLEadPromptCompleteRequired for 3
204 Define OLEadPromptNever for 4
205
206Define OLEConnectModeEnum for Integer
207 Define OLEadModeUnknown for 0
208 Define OLEadModeRead for 1
209 Define OLEadModeWrite for 2
210 Define OLEadModeReadWrite for 3
211 Define OLEadModeShareDenyRead for 4
212 Define OLEadModeShareDenyWrite for 8
213 Define OLEadModeShareExclusive for 12
214 Define OLEadModeShareDenyNone for 16
215 Define OLEadModeRecursive for 4194304
216
217Define OLERecordCreateOptionsEnum for Integer
218 Define OLEadCreateCollection for 8192
219 Define OLEadCreateStructDoc for -2147483648
220 Define OLEadCreateNonCollection for 0
221 Define OLEadOpenIfExists for 33554432
222 Define OLEadCreateOverwrite for 67108864
223 Define OLEadFailIfNotExists for -1
224
225Define OLERecordOpenOptionsEnum for Integer
226 Define OLEadOpenRecordUnspecified for -1
227 Define OLEadOpenSource for 8388608
228 Define OLEadOpenOutput for 8388608
229 Define OLEadOpenAsync for 4096
230 Define OLEadDelayFetchStream for 16384
231 Define OLEadDelayFetchFields for 32768
232 Define OLEadOpenExecuteCommand for 65536
233
234Define OLEIsolationLevelEnum for Integer
235 Define OLEadXactUnspecified for -1
236 Define OLEadXactChaos for 16
237 Define OLEadXactReadUncommitted for 256
238 Define OLEadXactBrowse for 256
239 Define OLEadXactCursorStability for 4096
240 Define OLEadXactReadCommitted for 4096
241 Define OLEadXactRepeatableRead for 65536
242 Define OLEadXactSerializable for 1048576
243 Define OLEadXactIsolated for 1048576
244
245Define OLEXactAttributeEnum for Integer
246 Define OLEadXactCommitRetaining for 131072
247 Define OLEadXactAbortRetaining for 262144
248 Define OLEadXactAsyncPhaseOne for 524288
249 Define OLEadXactSyncPhaseOne for 1048576
250
251Define OLEPropertyAttributesEnum for Integer
252 Define OLEadPropNotSupported for 0
253 Define OLEadPropRequired for 1
254 Define OLEadPropOptional for 2
255 Define OLEadPropRead for 512
256 Define OLEadPropWrite for 1024
257
258Define OLEErrorValueEnum for Integer
259 Define OLEadErrProviderFailed for 3000
260 Define OLEadErrInvalidArgument for 3001
261 Define OLEadErrOpeningFile for 3002
262 Define OLEadErrReadFile for 3003
263 Define OLEadErrWriteFile for 3004
264 Define OLEadErrNoCurrentRecord for 3021
265 Define OLEadErrIllegalOperation for 3219
266 Define OLEadErrCantChangeProvider for 3220
267 Define OLEadErrInTransaction for 3246
268 Define OLEadErrFeatureNotAvailable for 3251
269 Define OLEadErrItemNotFound for 3265
270 Define OLEadErrObjectInCollection for 3367
271 Define OLEadErrObjectNotSet for 3420
272 Define OLEadErrDataConversion for 3421
273 Define OLEadErrObjectClosed for 3704
274 Define OLEadErrObjectOpen for 3705
275 Define OLEadErrProviderNotFound for 3706
276 Define OLEadErrBoundToCommand for 3707
277 Define OLEadErrInvalidParamInfo for 3708
278 Define OLEadErrInvalidConnection for 3709
279 Define OLEadErrNotReentrant for 3710
280 Define OLEadErrStillExecuting for 3711
281 Define OLEadErrOperationCancelled for 3712
282 Define OLEadErrStillConnecting for 3713
283 Define OLEadErrInvalidTransaction for 3714
284 Define OLEadErrNotExecuting for 3715
285 Define OLEadErrUnsafeOperation for 3716
286 Define OLEadwrnSecurityDialog for 3717
287 Define OLEadwrnSecurityDialogHeader for 3718
288 Define OLEadErrIntegrityViolation for 3719
289 Define OLEadErrPermissionDenied for 3720
290 Define OLEadErrDataOverflow for 3721
291 Define OLEadErrSchemaViolation for 3722
292 Define OLEadErrSignMismatch for 3723
293 Define OLEadErrCantConvertvalue for 3724
294 Define OLEadErrCantCreate for 3725
295 Define OLEadErrColumnNotOnThisRow for 3726
296 Define OLEadErrURLDoesNotExist for 3727
297 Define OLEadErrTreePermissionDenied for 3728
298 Define OLEadErrInvalidURL for 3729
299 Define OLEadErrResourceLocked for 3730
300 Define OLEadErrResourceExists for 3731
301 Define OLEadErrCannotComplete for 3732
302 Define OLEadErrVolumeNotFound for 3733
303 Define OLEadErrOutOfSpace for 3734
304 Define OLEadErrResourceOutOfScope for 3735
305 Define OLEadErrUnavailable for 3736
306 Define OLEadErrURLNamedRowDoesNotExist for 3737
307 Define OLEadErrDelResOutOfScope for 3738
308 Define OLEadErrPropInvalidColumn for 3739
309 Define OLEadErrPropInvalidOption for 3740
310 Define OLEadErrPropInvalidValue for 3741
311 Define OLEadErrPropConflicting for 3742
312 Define OLEadErrPropNotAllSettable for 3743
313 Define OLEadErrPropNotSet for 3744
314 Define OLEadErrPropNotSettable for 3745
315 Define OLEadErrPropNotSupported for 3746
316 Define OLEadErrCatalogNotSet for 3747
317 Define OLEadErrCantChangeConnection for 3748
318 Define OLEadErrFieldsUpdateFailed for 3749
319 Define OLEadErrDenyNotSupported for 3750
320 Define OLEadErrDenyTypeNotSupported for 3751
321 Define OLEadErrProviderNotSpecified for 3753
322 Define OLEadErrConnectionStringTooLong for 3754
323
324Define OLEParameterAttributesEnum for Integer
325 Define OLEadParamSigned for 16
326 Define OLEadParamNullable for 64
327 Define OLEadParamLong for 128
328
329Define OLEParameterDirectionEnum for Integer
330 Define OLEadParamUnknown for 0
331 Define OLEadParamInput for 1
332 Define OLEadParamOutput for 2
333 Define OLEadParamInputOutput for 3
334 Define OLEadParamReturnValue for 4
335
336Define OLECommandTypeEnum for Integer
337 Define OLEadCmdUnspecified for -1
338 Define OLEadCmdUnknown for 8
339 Define OLEadCmdText for 1
340 Define OLEadCmdTable for 2
341 Define OLEadCmdStoredProc for 4
342 Define OLEadCmdFile for 256
343 Define OLEadCmdTableDirect for 512
344
345Define OLEEventStatusEnum for Integer
346 Define OLEadStatusOK for 1
347 Define OLEadStatusErrorsOccurred for 2
348 Define OLEadStatusCantDeny for 3
349 Define OLEadStatusCancel for 4
350 Define OLEadStatusUnwantedEvent for 5
351
352Define OLEEventReasonEnum for Integer
353 Define OLEadRsnAddNew for 1
354 Define OLEadRsnDelete for 2
355 Define OLEadRsnUpdate for 3
356 Define OLEadRsnUndoUpdate for 4
357 Define OLEadRsnUndoAddNew for 5
358 Define OLEadRsnUndoDelete for 6
359 Define OLEadRsnRequery for 7
360 Define OLEadRsnResynch for 8
361 Define OLEadRsnClose for 9
362 Define OLEadRsnMove for 10
363 Define OLEadRsnFirstChange for 11
364 Define OLEadRsnMoveFirst for 12
365 Define OLEadRsnMoveNext for 13
366 Define OLEadRsnMovePrevious for 14
367 Define OLEadRsnMoveLast for 15
368
369Define OLESchemaEnum for Integer
370 Define OLEadSchemaProviderSpecific for -1
371 Define OLEadSchemaAsserts for 0
372 Define OLEadSchemaCatalogs for 1
373 Define OLEadSchemaCharacterSets for 2
374 Define OLEadSchemaCollations for 3
375 Define OLEadSchemaColumns for 4
376 Define OLEadSchemaCheckConstraints for 5
377 Define OLEadSchemaConstraintColumnUsage for 6
378 Define OLEadSchemaConstraintTableUsage for 7
379 Define OLEadSchemaKeyColumnUsage for 8
380 Define OLEadSchemaReferentialContraints for 9
381 Define OLEadSchemaReferentialConstraints for 9
382 Define OLEadSchemaTableConstraints for 10
383 Define OLEadSchemaColumnsDomainUsage for 11
384 Define OLEadSchemaIndexes for 12
385 Define OLEadSchemaColumnPrivileges for 13
386 Define OLEadSchemaTablePrivileges for 14
387 Define OLEadSchemaUsagePrivileges for 15
388 Define OLEadSchemaProcedures for 16
389 Define OLEadSchemaSchemata for 17
390 Define OLEadSchemaSQLLanguages for 18
391 Define OLEadSchemaStatistics for 19
392 Define OLEadSchemaTables for 20
393 Define OLEadSchemaTranslations for 21
394 Define OLEadSchemaProviderTypes for 22
395 Define OLEadSchemaViews for 23
396 Define OLEadSchemaViewColumnUsage for 24
397 Define OLEadSchemaViewTableUsage for 25
398 Define OLEadSchemaProcedureParameters for 26
399 Define OLEadSchemaForeignKeys for 27
400 Define OLEadSchemaPrimaryKeys for 28
401 Define OLEadSchemaProcedureColumns for 29
402 Define OLEadSchemaDBInfoKeywords for 30
403 Define OLEadSchemaDBInfoLiterals for 31
404 Define OLEadSchemaCubes for 32
405 Define OLEadSchemaDimensions for 33
406 Define OLEadSchemaHierarchies for 34
407 Define OLEadSchemaLevels for 35
408 Define OLEadSchemaMeasures for 36
409 Define OLEadSchemaProperties for 37
410 Define OLEadSchemaMembers for 38
411 Define OLEadSchemaTrustees for 39
412 Define OLEadSchemaFunctions for 40
413 Define OLEadSchemaActions for 41
414 Define OLEadSchemaCommands for 42
415 Define OLEadSchemaSets for 43
416
417Define OLEFieldStatusEnum for Integer
418 Define OLEadFieldOK for 0
419 Define OLEadFieldCantConvertValue for 2
420 Define OLEadFieldIsNull for 3
421 Define OLEadFieldTruncated for 4
422 Define OLEadFieldSignMismatch for 5
423 Define OLEadFieldDataOverflow for 6
424 Define OLEadFieldCantCreate for 7
425 Define OLEadFieldUnavailable for 8
426 Define OLEadFieldPermissionDenied for 9
427 Define OLEadFieldIntegrityViolation for 10
428 Define OLEadFieldSchemaViolation for 11
429 Define OLEadFieldBadStatus for 12
430 Define OLEadFieldDefault for 13
431 Define OLEadFieldIgnore for 15
432 Define OLEadFieldDoesNotExist for 16
433 Define OLEadFieldInvalidURL for 17
434 Define OLEadFieldResourceLocked for 18
435 Define OLEadFieldResourceExists for 19
436 Define OLEadFieldCannotComplete for 20
437 Define OLEadFieldVolumeNotFound for 21
438 Define OLEadFieldOutOfSpace for 22
439 Define OLEadFieldCannotDeleteSource for 23
440 Define OLEadFieldReadOnly for 24
441 Define OLEadFieldResourceOutOfScope for 25
442 Define OLEadFieldAlreadyExists for 26
443 Define OLEadFieldPendingInsert for 65536
444 Define OLEadFieldPendingDelete for 131072
445 Define OLEadFieldPendingChange for 262144
446 Define OLEadFieldPendingUnknown for 524288
447 Define OLEadFieldPendingUnknownDelete for 1048576
448
449Define OLESeekEnum for Integer
450 Define OLEadSeekFirstEQ for 1
451 Define OLEadSeekLastEQ for 2
452 Define OLEadSeekAfterEQ for 4
453 Define OLEadSeekAfter for 8
454 Define OLEadSeekBeforeEQ for 16
455 Define OLEadSeekBefore for 32
456
457Define OLEADCPROP_UPDATECRITERIA_ENUM for Integer
458 Define OLEadCriteriaKey for 0
459 Define OLEadCriteriaAllCols for 1
460 Define OLEadCriteriaUpdCols for 2
461 Define OLEadCriteriaTimeStamp for 3
462
463Define OLEADCPROP_ASYNCTHREADPRIORITY_ENUM for Integer
464 Define OLEadPriorityLowest for 1
465 Define OLEadPriorityBelowNormal for 2
466 Define OLEadPriorityNormal for 3
467 Define OLEadPriorityAboveNormal for 4
468 Define OLEadPriorityHighest for 5
469
470Define OLEADCPROP_AUTORECALC_ENUM for Integer
471 Define OLEadRecalcUpFront for 0
472 Define OLEadRecalcAlways for 1
473
474Define OLEADCPROP_UPDATERESYNC_ENUM for Integer
475 Define OLEadResyncNone for 0
476 Define OLEadResyncAutoIncrement for 1
477 Define OLEadResyncConflicts for 2
478 Define OLEadResyncUpdates for 4
479 Define OLEadResyncInserts for 8
480 Define OLEadResyncAll for 15
481
482Define OLEMoveRecordOptionsEnum for Integer
483 Define OLEadMoveUnspecified for -1
484 Define OLEadMoveOverWrite for 1
485 Define OLEadMoveDontUpdateLinks for 2
486 Define OLEadMoveAllowEmulation for 4
487
488Define OLECopyRecordOptionsEnum for Integer
489 Define OLEadCopyUnspecified for -1
490 Define OLEadCopyOverWrite for 1
491 Define OLEadCopyAllowEmulation for 4
492 Define OLEadCopyNonRecursive for 2
493
494Define OLEStreamTypeEnum for Integer
495 Define OLEadTypeBinary for 1
496 Define OLEadTypeText for 2
497
498Define OLELineSeparatorEnum for Integer
499 Define OLEadLF for 10
500 Define OLEadCR for 13
501 Define OLEadCRLF for -1
502
503Define OLEStreamOpenOptionsEnum for Integer
504 Define OLEadOpenStreamUnspecified for -1
505 Define OLEadOpenStreamAsync for 1
506 Define OLEadOpenStreamFromRecord for 4
507
508Define OLEStreamWriteEnum for Integer
509 Define OLEadWriteChar for 0
510 Define OLEadWriteLine for 1
511 Define OLEstWriteChar for 0
512 Define OLEstWriteLine for 1
513
514Define OLESaveOptionsEnum for Integer
515 Define OLEadSaveCreateNotExist for 1
516 Define OLEadSaveCreateOverWrite for 2
517
518Define OLEFieldEnum for Integer
519 Define OLEadDefaultStream for -1
520 Define OLEadRecordURL for -2
521
522Define OLEStreamReadEnum for Integer
523 Define OLEadReadAll for -1
524 Define OLEadReadLine for -2
525
526Define OLERecordTypeEnum for Integer
527 Define OLEadSimpleRecord for 0
528 Define OLEadCollectionRecord for 1
529 Define OLEadStructDoc for 2
530
531Define ADO_LONGPTR for BigInt
532
533Define PositionEnum_Param for ADO_LONGPTR
534
535Define SearchDirection for OLESearchDirectionEnum
536
537// CLSID: {00001550-0000-0010-8000-00AA006D2EA4}
538Class cCom_Connection is a Mixin
539
540 { MethodType=Property DesignTime=False }
541 Function ComProperties Returns Variant
542 Handle hDispatchDriver
543 Variant retVal
544 Get phDispatchDriver to hDispatchDriver
545 Get InvokeComMethod of hDispatchDriver 500 OLE_VT_DISPATCH to retVal
546 Function_Return retVal
547 End_Function
548
549 { MethodType=Property DesignTime=False }
550 Function ComConnectionString Returns String
551 Handle hDispatchDriver
552 String retVal
553 Get phDispatchDriver to hDispatchDriver
554 Get InvokeComMethod of hDispatchDriver 0 OLE_VT_BSTR to retVal
555 Function_Return retVal
556 End_Function
557
558 { MethodType=Property DesignTime=False }
559 Procedure Set ComConnectionString String value
560 Handle hDispatchDriver
561 Get phDispatchDriver to hDispatchDriver
562 Send PrepareParams to hDispatchDriver 1
563 Set ComProperty of hDispatchDriver 0 OLE_VT_BSTR to value
564 End_Procedure
565
566 { MethodType=Property DesignTime=False }
567 Function ComCommandTimeout Returns Integer
568 Handle hDispatchDriver
569 Integer retVal
570 Get phDispatchDriver to hDispatchDriver
571 Get InvokeComMethod of hDispatchDriver 2 OLE_VT_I4 to retVal
572 Function_Return retVal
573 End_Function
574
575 { MethodType=Property DesignTime=False }
576 Procedure Set ComCommandTimeout Integer value
577 Handle hDispatchDriver
578 Get phDispatchDriver to hDispatchDriver
579 Send PrepareParams to hDispatchDriver 1
580 Set ComProperty of hDispatchDriver 2 OLE_VT_I4 to value
581 End_Procedure
582
583 { MethodType=Property DesignTime=False }
584 Function ComConnectionTimeout Returns Integer
585 Handle hDispatchDriver
586 Integer retVal
587 Get phDispatchDriver to hDispatchDriver
588 Get InvokeComMethod of hDispatchDriver 3 OLE_VT_I4 to retVal
589 Function_Return retVal
590 End_Function
591
592 { MethodType=Property DesignTime=False }
593 Procedure Set ComConnectionTimeout Integer value
594 Handle hDispatchDriver
595 Get phDispatchDriver to hDispatchDriver
596 Send PrepareParams to hDispatchDriver 1
597 Set ComProperty of hDispatchDriver 3 OLE_VT_I4 to value
598 End_Procedure
599
600 { MethodType=Property DesignTime=False }
601 Function ComVersion Returns String
602 Handle hDispatchDriver
603 String retVal
604 Get phDispatchDriver to hDispatchDriver
605 Get InvokeComMethod of hDispatchDriver 4 OLE_VT_BSTR to retVal
606 Function_Return retVal
607 End_Function
608
609 Procedure ComClose
610 Handle hDispatchDriver
611 Get phDispatchDriver to hDispatchDriver
612 Send InvokeComMethod to hDispatchDriver 5 OLE_VT_VOID
613 End_Procedure
614
615 Function ComExecute String llCommandText Variant llRecordsAffected Integer llOptions Returns Variant
616 Handle hDispatchDriver
617 Variant retVal
618 Get phDispatchDriver to hDispatchDriver
619 Send PrepareParams to hDispatchDriver 3
620 Send DefineParam to hDispatchDriver OLE_VT_BSTR llCommandText
621 Send DefineParam to hDispatchDriver (OLE_VT_BYREF ior OLE_VT_VARIANT) llRecordsAffected
622 Send DefineParam to hDispatchDriver OLE_VT_I4 llOptions
623 Get InvokeComMethod of hDispatchDriver 6 OLE_VT_DISPATCH to retVal
624 Function_Return retVal
625 End_Function
626
627 Function ComBeginTrans Returns Integer
628 Handle hDispatchDriver
629 Integer retVal
630 Get phDispatchDriver to hDispatchDriver
631 Get InvokeComMethod of hDispatchDriver 7 OLE_VT_I4 to retVal
632 Function_Return retVal
633 End_Function
634
635 Procedure ComCommitTrans
636 Handle hDispatchDriver
637 Get phDispatchDriver to hDispatchDriver
638 Send InvokeComMethod to hDispatchDriver 8 OLE_VT_VOID
639 End_Procedure
640
641 Procedure ComRollbackTrans
642 Handle hDispatchDriver
643 Get phDispatchDriver to hDispatchDriver
644 Send InvokeComMethod to hDispatchDriver 9 OLE_VT_VOID
645 End_Procedure
646
647 Procedure ComOpen String llConnectionString String llUserID String llPassword Integer llOptions
648 Handle hDispatchDriver
649 Get phDispatchDriver to hDispatchDriver
650 Send PrepareParams to hDispatchDriver 4
651 Send DefineParam to hDispatchDriver OLE_VT_BSTR llConnectionString
652 Send DefineParam to hDispatchDriver OLE_VT_BSTR llUserID
653 Send DefineParam to hDispatchDriver OLE_VT_BSTR llPassword
654 Send DefineParam to hDispatchDriver OLE_VT_I4 llOptions
655 Send InvokeComMethod to hDispatchDriver 10 OLE_VT_VOID
656 End_Procedure
657
658 { MethodType=Property DesignTime=False }
659 Function ComErrors Returns Variant
660 Handle hDispatchDriver
661 Variant retVal
662 Get phDispatchDriver to hDispatchDriver
663 Get InvokeComMethod of hDispatchDriver 11 OLE_VT_DISPATCH to retVal
664 Function_Return retVal
665 End_Function
666
667 { MethodType=Property DesignTime=False }
668 Function ComDefaultDatabase Returns String
669 Handle hDispatchDriver
670 String retVal
671 Get phDispatchDriver to hDispatchDriver
672 Get InvokeComMethod of hDispatchDriver 12 OLE_VT_BSTR to retVal
673 Function_Return retVal
674 End_Function
675
676 { MethodType=Property DesignTime=False }
677 Procedure Set ComDefaultDatabase String value
678 Handle hDispatchDriver
679 Get phDispatchDriver to hDispatchDriver
680 Send PrepareParams to hDispatchDriver 1
681 Set ComProperty of hDispatchDriver 12 OLE_VT_BSTR to value
682 End_Procedure
683
684 { MethodType=Property DesignTime=False }
685 Function ComIsolationLevel Returns OLEIsolationLevelEnum
686 Handle hDispatchDriver
687 OLEIsolationLevelEnum retVal
688 Get phDispatchDriver to hDispatchDriver
689 Get InvokeComMethod of hDispatchDriver 13 OLE_VT_I4 to retVal
690 Function_Return retVal
691 End_Function
692
693 { MethodType=Property DesignTime=False }
694 Procedure Set ComIsolationLevel OLEIsolationLevelEnum value
695 Handle hDispatchDriver
696 Get phDispatchDriver to hDispatchDriver
697 Send PrepareParams to hDispatchDriver 1
698 Set ComProperty of hDispatchDriver 13 OLE_VT_I4 to value
699 End_Procedure
700
701 { MethodType=Property DesignTime=False }
702 Function ComAttributes Returns Integer
703 Handle hDispatchDriver
704 Integer retVal
705 Get phDispatchDriver to hDispatchDriver
706 Get InvokeComMethod of hDispatchDriver 14 OLE_VT_I4 to retVal
707 Function_Return retVal
708 End_Function
709
710 { MethodType=Property DesignTime=False }
711 Procedure Set ComAttributes Integer value
712 Handle hDispatchDriver
713 Get phDispatchDriver to hDispatchDriver
714 Send PrepareParams to hDispatchDriver 1
715 Set ComProperty of hDispatchDriver 14 OLE_VT_I4 to value
716 End_Procedure
717
718 { MethodType=Property DesignTime=False }
719 Function ComCursorLocation Returns OLECursorLocationEnum
720 Handle hDispatchDriver
721 OLECursorLocationEnum retVal
722 Get phDispatchDriver to hDispatchDriver
723 Get InvokeComMethod of hDispatchDriver 15 OLE_VT_I4 to retVal
724 Function_Return retVal
725 End_Function
726
727 { MethodType=Property DesignTime=False }
728 Procedure Set ComCursorLocation OLECursorLocationEnum value
729 Handle hDispatchDriver
730 Get phDispatchDriver to hDispatchDriver
731 Send PrepareParams to hDispatchDriver 1
732 Set ComProperty of hDispatchDriver 15 OLE_VT_I4 to value
733 End_Procedure
734
735 { MethodType=Property DesignTime=False }
736 Function ComMode Returns OLEConnectModeEnum
737 Handle hDispatchDriver
738 OLEConnectModeEnum retVal
739 Get phDispatchDriver to hDispatchDriver
740 Get InvokeComMethod of hDispatchDriver 16 OLE_VT_I4 to retVal
741 Function_Return retVal
742 End_Function
743
744 { MethodType=Property DesignTime=False }
745 Procedure Set ComMode OLEConnectModeEnum value
746 Handle hDispatchDriver
747 Get phDispatchDriver to hDispatchDriver
748 Send PrepareParams to hDispatchDriver 1
749 Set ComProperty of hDispatchDriver 16 OLE_VT_I4 to value
750 End_Procedure
751
752 { MethodType=Property DesignTime=False }
753 Function ComProvider Returns String
754 Handle hDispatchDriver
755 String retVal
756 Get phDispatchDriver to hDispatchDriver
757 Get InvokeComMethod of hDispatchDriver 17 OLE_VT_BSTR to retVal
758 Function_Return retVal
759 End_Function
760
761 { MethodType=Property DesignTime=False }
762 Procedure Set ComProvider String value
763 Handle hDispatchDriver
764 Get phDispatchDriver to hDispatchDriver
765 Send PrepareParams to hDispatchDriver 1
766 Set ComProperty of hDispatchDriver 17 OLE_VT_BSTR to value
767 End_Procedure
768
769 { MethodType=Property DesignTime=False }
770 Function ComState Returns Integer
771 Handle hDispatchDriver
772 Integer retVal
773 Get phDispatchDriver to hDispatchDriver
774 Get InvokeComMethod of hDispatchDriver 18 OLE_VT_I4 to retVal
775 Function_Return retVal
776 End_Function
777
778 Function ComOpenSchema OLESchemaEnum llSchema Variant llRestrictions Variant llSchemaID Returns Variant
779 Handle hDispatchDriver
780 Variant retVal
781 Get phDispatchDriver to hDispatchDriver
782 Send PrepareParams to hDispatchDriver 3
783 Send DefineParam to hDispatchDriver OLE_VT_I4 llSchema
784 Send DefineParam to hDispatchDriver OLE_VT_VARIANT llRestrictions
785 Send DefineParam to hDispatchDriver OLE_VT_VARIANT llSchemaID
786 Get InvokeComMethod of hDispatchDriver 19 OLE_VT_DISPATCH to retVal
787 Function_Return retVal
788 End_Function
789
790 Procedure ComCancel
791 Handle hDispatchDriver
792 Get phDispatchDriver to hDispatchDriver
793 Send InvokeComMethod to hDispatchDriver 21 OLE_VT_VOID
794 End_Procedure
795End_Class
796
797// CLSID: {00001400-0000-0010-8000-00AA006D2EA4}
798Class cComConnectionEvents is a Mixin
799
800 { MethodType=Event }
801 Procedure OnComInfoMessage Variant llpError OLEEventStatusEnum ByRef lladStatus Variant llpConnection
802 End_Procedure
803
804 { MethodType=Event }
805 Procedure OnComBeginTransComplete Integer llTransactionLevel Variant llpError OLEEventStatusEnum ByRef lladStatus Variant llpConnection
806 End_Procedure
807
808 { MethodType=Event }
809 Procedure OnComCommitTransComplete Variant llpError OLEEventStatusEnum ByRef lladStatus Variant llpConnection
810 End_Procedure
811
812 { MethodType=Event }
813 Procedure OnComRollbackTransComplete Variant llpError OLEEventStatusEnum ByRef lladStatus Variant llpConnection
814 End_Procedure
815
816 { MethodType=Event }
817 Procedure OnComWillExecute String ByRef llSource OLECursorTypeEnum ByRef llCursorType OLELockTypeEnum ByRef llLockType Integer ByRef llOptions OLEEventStatusEnum ByRef lladStatus Variant llpCommand Variant llpRecordset Variant llpConnection
818 End_Procedure
819
820 { MethodType=Event }
821 Procedure OnComExecuteComplete Integer llRecordsAffected Variant llpError OLEEventStatusEnum ByRef lladStatus Variant llpCommand Variant llpRecordset Variant llpConnection
822 End_Procedure
823
824 { MethodType=Event }
825 Procedure OnComWillConnect String ByRef llConnectionString String ByRef llUserID String ByRef llPassword Integer ByRef llOptions OLEEventStatusEnum ByRef lladStatus Variant llpConnection
826 End_Procedure
827
828 { MethodType=Event }
829 Procedure OnComConnectComplete Variant llpError OLEEventStatusEnum ByRef lladStatus Variant llpConnection
830 End_Procedure
831
832 { MethodType=Event }
833 Procedure OnComDisconnect OLEEventStatusEnum ByRef lladStatus Variant llpConnection
834 End_Procedure
835
836 { Visibility=Private }
837 Procedure RegisterComEvents
838 Send RegisterComEvent 0 msg_OnComInfoMessage
839 Send RegisterComEvent 1 msg_OnComBeginTransComplete
840 Send RegisterComEvent 3 msg_OnComCommitTransComplete
841 Send RegisterComEvent 2 msg_OnComRollbackTransComplete
842 Send RegisterComEvent 4 msg_OnComWillExecute
843 Send RegisterComEvent 5 msg_OnComExecuteComplete
844 Send RegisterComEvent 6 msg_OnComWillConnect
845 Send RegisterComEvent 7 msg_OnComConnectComplete
846 Send RegisterComEvent 8 msg_OnComDisconnect
847 End_Procedure
848End_Class
849
850// CoClass
851// ProgID: ADODB.Connection.6.0
852// CLSID: {00000514-0000-0010-8000-00AA006D2EA4}
853Class cComConnection is a cComAutomationObject
854 Import_Class_Protocol cCom_Connection
855 Import_Class_Protocol cComConnectionEvents
856
857 Procedure Construct_Object
858 Forward Send Construct_Object
859 Set psProgID to "{00000514-0000-0010-8000-00AA006D2EA4}"
860 Set psEventId to "{00001400-0000-0010-8000-00AA006D2EA4}"
861 Set peAutoCreate to acNoAutoCreate
862 End_Procedure
863End_Class
864
865// CLSID: {00001562-0000-0010-8000-00AA006D2EA4}
866Class cCom_Record is a Mixin
867
868 { MethodType=Property DesignTime=False }
869 Function ComProperties Returns Variant
870 Handle hDispatchDriver
871 Variant retVal
872 Get phDispatchDriver to hDispatchDriver
873 Get InvokeComMethod of hDispatchDriver 500 OLE_VT_DISPATCH to retVal
874 Function_Return retVal
875 End_Function
876
877 { MethodType=Property DesignTime=False }
878 Function ComActiveConnection Returns Variant
879 Handle hDispatchDriver
880 Variant retVal
881 Get phDispatchDriver to hDispatchDriver
882 Get InvokeComMethod of hDispatchDriver 1 OLE_VT_VARIANT to retVal
883 Function_Return retVal
884 End_Function
885
886 { MethodType=Property DesignTime=False }
887 Procedure Set ComActiveConnection String value
888 Handle hDispatchDriver
889 Get phDispatchDriver to hDispatchDriver
890 Send PrepareParams to hDispatchDriver 1
891 Set ComProperty of hDispatchDriver 1 OLE_VT_BSTR to value
892 End_Procedure
893
894 { MethodType=Property DesignTime=False }
895 Procedure Set ComActiveConnectionRef Variant value
896 Handle hDispatchDriver
897 Get phDispatchDriver to hDispatchDriver
898 Send PrepareParams to hDispatchDriver 1
899 Set ComProperty of hDispatchDriver 1 OLE_VT_DISPATCH to value
900 End_Procedure
901
902 { MethodType=Property DesignTime=False }
903 Function ComState Returns OLEObjectStateEnum
904 Handle hDispatchDriver
905 OLEObjectStateEnum retVal
906 Get phDispatchDriver to hDispatchDriver
907 Get InvokeComMethod of hDispatchDriver 2 OLE_VT_I4 to retVal
908 Function_Return retVal
909 End_Function
910
911 { MethodType=Property DesignTime=False }
912 Function ComSource Returns Variant
913 Handle hDispatchDriver
914 Variant retVal
915 Get phDispatchDriver to hDispatchDriver
916 Get InvokeComMethod of hDispatchDriver 3 OLE_VT_VARIANT to retVal
917 Function_Return retVal
918 End_Function
919
920 { MethodType=Property DesignTime=False }
921 Procedure Set ComSource String value
922 Handle hDispatchDriver
923 Get phDispatchDriver to hDispatchDriver
924 Send PrepareParams to hDispatchDriver 1
925 Set ComProperty of hDispatchDriver 3 OLE_VT_BSTR to value
926 End_Procedure
927
928 { MethodType=Property DesignTime=False }
929 Procedure Set ComSourceRef Variant value
930 Handle hDispatchDriver
931 Get phDispatchDriver to hDispatchDriver
932 Send PrepareParams to hDispatchDriver 1
933 Set ComProperty of hDispatchDriver 3 OLE_VT_DISPATCH to value
934 End_Procedure
935
936 { MethodType=Property DesignTime=False }
937 Function ComMode Returns OLEConnectModeEnum
938 Handle hDispatchDriver
939 OLEConnectModeEnum retVal
940 Get phDispatchDriver to hDispatchDriver
941 Get InvokeComMethod of hDispatchDriver 4 OLE_VT_I4 to retVal
942 Function_Return retVal
943 End_Function
944
945 { MethodType=Property DesignTime=False }
946 Procedure Set ComMode OLEConnectModeEnum value
947 Handle hDispatchDriver
948 Get phDispatchDriver to hDispatchDriver
949 Send PrepareParams to hDispatchDriver 1
950 Set ComProperty of hDispatchDriver 4 OLE_VT_I4 to value
951 End_Procedure
952
953 { MethodType=Property DesignTime=False }
954 Function ComParentURL Returns String
955 Handle hDispatchDriver
956 String retVal
957 Get phDispatchDriver to hDispatchDriver
958 Get InvokeComMethod of hDispatchDriver 5 OLE_VT_BSTR to retVal
959 Function_Return retVal
960 End_Function
961
962 Function ComMoveRecord String llSource String llDestination String llUserName String llPassword OLEMoveRecordOptionsEnum llOptions Boolean llAsync Returns String
963 Handle hDispatchDriver
964 String retVal
965 Get phDispatchDriver to hDispatchDriver
966 Send PrepareParams to hDispatchDriver 6
967 Send DefineParam to hDispatchDriver OLE_VT_BSTR llSource
968 Send DefineParam to hDispatchDriver OLE_VT_BSTR llDestination
969 Send DefineParam to hDispatchDriver OLE_VT_BSTR llUserName
970 Send DefineParam to hDispatchDriver OLE_VT_BSTR llPassword
971 Send DefineParam to hDispatchDriver OLE_VT_I4 llOptions
972 Send DefineParam to hDispatchDriver OLE_VT_BOOL llAsync
973 Get InvokeComMethod of hDispatchDriver 6 OLE_VT_BSTR to retVal
974 Function_Return retVal
975 End_Function
976
977 Function ComCopyRecord String llSource String llDestination String llUserName String llPassword OLECopyRecordOptionsEnum llOptions Boolean llAsync Returns String
978 Handle hDispatchDriver
979 String retVal
980 Get phDispatchDriver to hDispatchDriver
981 Send PrepareParams to hDispatchDriver 6
982 Send DefineParam to hDispatchDriver OLE_VT_BSTR llSource
983 Send DefineParam to hDispatchDriver OLE_VT_BSTR llDestination
984 Send DefineParam to hDispatchDriver OLE_VT_BSTR llUserName
985 Send DefineParam to hDispatchDriver OLE_VT_BSTR llPassword
986 Send DefineParam to hDispatchDriver OLE_VT_I4 llOptions
987 Send DefineParam to hDispatchDriver OLE_VT_BOOL llAsync
988 Get InvokeComMethod of hDispatchDriver 7 OLE_VT_BSTR to retVal
989 Function_Return retVal
990 End_Function
991
992 Procedure ComDeleteRecord String llSource Boolean llAsync
993 Handle hDispatchDriver
994 Get phDispatchDriver to hDispatchDriver
995 Send PrepareParams to hDispatchDriver 2
996 Send DefineParam to hDispatchDriver OLE_VT_BSTR llSource
997 Send DefineParam to hDispatchDriver OLE_VT_BOOL llAsync
998 Send InvokeComMethod to hDispatchDriver 8 OLE_VT_VOID
999 End_Procedure
1000
1001 Procedure ComOpen Variant llSource Variant llActiveConnection OLEConnectModeEnum llMode OLERecordCreateOptionsEnum llCreateOptions OLERecordOpenOptionsEnum llOptions String llUserName String llPassword
1002 Handle hDispatchDriver
1003 Get phDispatchDriver to hDispatchDriver
1004 Send PrepareParams to hDispatchDriver 7
1005 Send DefineParam to hDispatchDriver OLE_VT_VARIANT llSource
1006 Send DefineParam to hDispatchDriver OLE_VT_VARIANT llActiveConnection
1007 Send DefineParam to hDispatchDriver OLE_VT_I4 llMode
1008 Send DefineParam to hDispatchDriver OLE_VT_I4 llCreateOptions
1009 Send DefineParam to hDispatchDriver OLE_VT_I4 llOptions
1010 Send DefineParam to hDispatchDriver OLE_VT_BSTR llUserName
1011 Send DefineParam to hDispatchDriver OLE_VT_BSTR llPassword
1012 Send InvokeComMethod to hDispatchDriver 9 OLE_VT_VOID
1013 End_Procedure
1014
1015 Procedure ComClose
1016 Handle hDispatchDriver
1017 Get phDispatchDriver to hDispatchDriver
1018 Send InvokeComMethod to hDispatchDriver 10 OLE_VT_VOID
1019 End_Procedure
1020
1021 { MethodType=Property DesignTime=False }
1022 Function ComFields Returns Variant
1023 Handle hDispatchDriver
1024 Variant retVal
1025 Get phDispatchDriver to hDispatchDriver
1026 Get InvokeComMethod of hDispatchDriver 0 OLE_VT_DISPATCH to retVal
1027 Function_Return retVal
1028 End_Function
1029
1030 { MethodType=Property DesignTime=False }
1031 Function ComRecordType Returns OLERecordTypeEnum
1032 Handle hDispatchDriver
1033 OLERecordTypeEnum retVal
1034 Get phDispatchDriver to hDispatchDriver
1035 Get InvokeComMethod of hDispatchDriver 11 OLE_VT_I4 to retVal
1036 Function_Return retVal
1037 End_Function
1038
1039 Function ComGetChildren Returns Variant
1040 Handle hDispatchDriver
1041 Variant retVal
1042 Get phDispatchDriver to hDispatchDriver
1043 Get InvokeComMethod of hDispatchDriver 12 OLE_VT_DISPATCH to retVal
1044 Function_Return retVal
1045 End_Function
1046
1047 Procedure ComCancel
1048 Handle hDispatchDriver
1049 Get phDispatchDriver to hDispatchDriver
1050 Send InvokeComMethod to hDispatchDriver 13 OLE_VT_VOID
1051 End_Procedure
1052End_Class
1053
1054// CoClass
1055// ProgID: ADODB.Record.6.0
1056// CLSID: {00000560-0000-0010-8000-00AA006D2EA4}
1057Class cComRecord is a cComAutomationObject
1058 Import_Class_Protocol cCom_Record
1059
1060 Procedure Construct_Object
1061 Forward Send Construct_Object
1062 Set psProgID to "{00000560-0000-0010-8000-00AA006D2EA4}"
1063 Set peAutoCreate to acNoAutoCreate
1064 End_Procedure
1065End_Class
1066
1067// CLSID: {00001565-0000-0010-8000-00AA006D2EA4}
1068Class cCom_Stream is a Mixin
1069
1070 { MethodType=Property DesignTime=False }
1071 Function ComSize Returns Integer
1072 Handle hDispatchDriver
1073 Integer retVal
1074 Get phDispatchDriver to hDispatchDriver
1075 Get InvokeComMethod of hDispatchDriver 1 OLE_VT_I4 to retVal
1076 Function_Return retVal
1077 End_Function
1078
1079 { MethodType=Property DesignTime=False }
1080 Function ComEOS Returns Boolean
1081 Handle hDispatchDriver
1082 Boolean retVal
1083 Get phDispatchDriver to hDispatchDriver
1084 Get InvokeComMethod of hDispatchDriver 2 OLE_VT_BOOL to retVal
1085 Function_Return retVal
1086 End_Function
1087
1088 { MethodType=Property DesignTime=False }
1089 Function ComPosition Returns Integer
1090 Handle hDispatchDriver
1091 Integer retVal
1092 Get phDispatchDriver to hDispatchDriver
1093 Get InvokeComMethod of hDispatchDriver 3 OLE_VT_I4 to retVal
1094 Function_Return retVal
1095 End_Function
1096
1097 { MethodType=Property DesignTime=False }
1098 Procedure Set ComPosition Integer value
1099 Handle hDispatchDriver
1100 Get phDispatchDriver to hDispatchDriver
1101 Send PrepareParams to hDispatchDriver 1
1102 Set ComProperty of hDispatchDriver 3 OLE_VT_I4 to value
1103 End_Procedure
1104
1105 { MethodType=Property DesignTime=False }
1106 Function ComType Returns OLEStreamTypeEnum
1107 Handle hDispatchDriver
1108 OLEStreamTypeEnum retVal
1109 Get phDispatchDriver to hDispatchDriver
1110 Get InvokeComMethod of hDispatchDriver 4 OLE_VT_I4 to retVal
1111 Function_Return retVal
1112 End_Function
1113
1114 { MethodType=Property DesignTime=False }
1115 Procedure Set ComType OLEStreamTypeEnum value
1116 Handle hDispatchDriver
1117 Get phDispatchDriver to hDispatchDriver
1118 Send PrepareParams to hDispatchDriver 1
1119 Set ComProperty of hDispatchDriver 4 OLE_VT_I4 to value
1120 End_Procedure
1121
1122 { MethodType=Property DesignTime=False }
1123 Function ComLineSeparator Returns OLELineSeparatorEnum
1124 Handle hDispatchDriver
1125 OLELineSeparatorEnum retVal
1126 Get phDispatchDriver to hDispatchDriver
1127 Get InvokeComMethod of hDispatchDriver 5 OLE_VT_I4 to retVal
1128 Function_Return retVal
1129 End_Function
1130
1131 { MethodType=Property DesignTime=False }
1132 Procedure Set ComLineSeparator OLELineSeparatorEnum value
1133 Handle hDispatchDriver
1134 Get phDispatchDriver to hDispatchDriver
1135 Send PrepareParams to hDispatchDriver 1
1136 Set ComProperty of hDispatchDriver 5 OLE_VT_I4 to value
1137 End_Procedure
1138
1139 { MethodType=Property DesignTime=False }
1140 Function ComState Returns OLEObjectStateEnum
1141 Handle hDispatchDriver
1142 OLEObjectStateEnum retVal
1143 Get phDispatchDriver to hDispatchDriver
1144 Get InvokeComMethod of hDispatchDriver 6 OLE_VT_I4 to retVal
1145 Function_Return retVal
1146 End_Function
1147
1148 { MethodType=Property DesignTime=False }
1149 Function ComMode Returns OLEConnectModeEnum
1150 Handle hDispatchDriver
1151 OLEConnectModeEnum retVal
1152 Get phDispatchDriver to hDispatchDriver
1153 Get InvokeComMethod of hDispatchDriver 7 OLE_VT_I4 to retVal
1154 Function_Return retVal
1155 End_Function
1156
1157 { MethodType=Property DesignTime=False }
1158 Procedure Set ComMode OLEConnectModeEnum value
1159 Handle hDispatchDriver
1160 Get phDispatchDriver to hDispatchDriver
1161 Send PrepareParams to hDispatchDriver 1
1162 Set ComProperty of hDispatchDriver 7 OLE_VT_I4 to value
1163 End_Procedure
1164
1165 { MethodType=Property DesignTime=False }
1166 Function ComCharset Returns String
1167 Handle hDispatchDriver
1168 String retVal
1169 Get phDispatchDriver to hDispatchDriver
1170 Get InvokeComMethod of hDispatchDriver 8 OLE_VT_BSTR to retVal
1171 Function_Return retVal
1172 End_Function
1173
1174 { MethodType=Property DesignTime=False }
1175 Procedure Set ComCharset String value
1176 Handle hDispatchDriver
1177 Get phDispatchDriver to hDispatchDriver
1178 Send PrepareParams to hDispatchDriver 1
1179 Set ComProperty of hDispatchDriver 8 OLE_VT_BSTR to value
1180 End_Procedure
1181
1182 Function ComRead Integer llNumBytes Returns Variant
1183 Handle hDispatchDriver
1184 Variant retVal
1185 Get phDispatchDriver to hDispatchDriver
1186 Send PrepareParams to hDispatchDriver 1
1187 Send DefineParam to hDispatchDriver OLE_VT_I4 llNumBytes
1188 Get InvokeComMethod of hDispatchDriver 9 OLE_VT_VARIANT to retVal
1189 Function_Return retVal
1190 End_Function
1191
1192 Procedure ComOpen Variant llSource OLEConnectModeEnum llMode OLEStreamOpenOptionsEnum llOptions String llUserName String llPassword
1193 Handle hDispatchDriver
1194 Get phDispatchDriver to hDispatchDriver
1195 Send PrepareParams to hDispatchDriver 5
1196 Send DefineParam to hDispatchDriver OLE_VT_VARIANT llSource
1197 Send DefineParam to hDispatchDriver OLE_VT_I4 llMode
1198 Send DefineParam to hDispatchDriver OLE_VT_I4 llOptions
1199 Send DefineParam to hDispatchDriver OLE_VT_BSTR llUserName
1200 Send DefineParam to hDispatchDriver OLE_VT_BSTR llPassword
1201 Send InvokeComMethod to hDispatchDriver 10 OLE_VT_VOID
1202 End_Procedure
1203
1204 Procedure ComClose
1205 Handle hDispatchDriver
1206 Get phDispatchDriver to hDispatchDriver
1207 Send InvokeComMethod to hDispatchDriver 11 OLE_VT_VOID
1208 End_Procedure
1209
1210 Procedure ComSkipLine
1211 Handle hDispatchDriver
1212 Get phDispatchDriver to hDispatchDriver
1213 Send InvokeComMethod to hDispatchDriver 12 OLE_VT_VOID
1214 End_Procedure
1215
1216 Procedure ComWrite Variant llBuffer
1217 Handle hDispatchDriver
1218 Get phDispatchDriver to hDispatchDriver
1219 Send PrepareParams to hDispatchDriver 1
1220 Send DefineParam to hDispatchDriver OLE_VT_VARIANT llBuffer
1221 Send InvokeComMethod to hDispatchDriver 13 OLE_VT_VOID
1222 End_Procedure
1223
1224 Procedure ComSetEOS
1225 Handle hDispatchDriver
1226 Get phDispatchDriver to hDispatchDriver
1227 Send InvokeComMethod to hDispatchDriver 14 OLE_VT_VOID
1228 End_Procedure
1229
1230 Procedure ComCopyTo Variant llDestStream Integer llCharNumber
1231 Handle hDispatchDriver
1232 Get phDispatchDriver to hDispatchDriver
1233 Send PrepareParams to hDispatchDriver 2
1234 Send DefineParam to hDispatchDriver OLE_VT_DISPATCH llDestStream
1235 Send DefineParam to hDispatchDriver OLE_VT_I4 llCharNumber
1236 Send InvokeComMethod to hDispatchDriver 15 OLE_VT_VOID
1237 End_Procedure
1238
1239 Procedure ComFlush
1240 Handle hDispatchDriver
1241 Get phDispatchDriver to hDispatchDriver
1242 Send InvokeComMethod to hDispatchDriver 16 OLE_VT_VOID
1243 End_Procedure
1244
1245 Procedure ComSaveToFile String llFileName OLESaveOptionsEnum llOptions
1246 Handle hDispatchDriver
1247 Get phDispatchDriver to hDispatchDriver
1248 Send PrepareParams to hDispatchDriver 2
1249 Send DefineParam to hDispatchDriver OLE_VT_BSTR llFileName
1250 Send DefineParam to hDispatchDriver OLE_VT_I4 llOptions
1251 Send InvokeComMethod to hDispatchDriver 17 OLE_VT_VOID
1252 End_Procedure
1253
1254 Procedure ComLoadFromFile String llFileName
1255 Handle hDispatchDriver
1256 Get phDispatchDriver to hDispatchDriver
1257 Send PrepareParams to hDispatchDriver 1
1258 Send DefineParam to hDispatchDriver OLE_VT_BSTR llFileName
1259 Send InvokeComMethod to hDispatchDriver 18 OLE_VT_VOID
1260 End_Procedure
1261
1262 Function ComReadText Integer llNumChars Returns String
1263 Handle hDispatchDriver
1264 String retVal
1265 Get phDispatchDriver to hDispatchDriver
1266 Send PrepareParams to hDispatchDriver 1
1267 Send DefineParam to hDispatchDriver OLE_VT_I4 llNumChars
1268 Get InvokeComMethod of hDispatchDriver 19 OLE_VT_BSTR to retVal
1269 Function_Return retVal
1270 End_Function
1271
1272 Procedure ComWriteText String llData OLEStreamWriteEnum llOptions
1273 Handle hDispatchDriver
1274 Get phDispatchDriver to hDispatchDriver
1275 Send PrepareParams to hDispatchDriver 2
1276 Send DefineParam to hDispatchDriver OLE_VT_BSTR llData
1277 Send DefineParam to hDispatchDriver OLE_VT_I4 llOptions
1278 Send InvokeComMethod to hDispatchDriver 20 OLE_VT_VOID
1279 End_Procedure
1280
1281 Procedure ComCancel
1282 Handle hDispatchDriver
1283 Get phDispatchDriver to hDispatchDriver
1284 Send InvokeComMethod to hDispatchDriver 21 OLE_VT_VOID
1285 End_Procedure
1286End_Class
1287
1288// CoClass
1289// ProgID: ADODB.Stream.6.0
1290// CLSID: {00000566-0000-0010-8000-00AA006D2EA4}
1291Class cComStream is a cComAutomationObject
1292 Import_Class_Protocol cCom_Stream
1293
1294 Procedure Construct_Object
1295 Forward Send Construct_Object
1296 Set psProgID to "{00000566-0000-0010-8000-00AA006D2EA4}"
1297 Set peAutoCreate to acNoAutoCreate
1298 End_Procedure
1299End_Class
1300
1301// CLSID: {986761E8-7269-4890-AA65-AD7C03697A6D}
1302Class cCom_Command is a Mixin
1303
1304 { MethodType=Property DesignTime=False }
1305 Function ComProperties Returns Variant
1306 Handle hDispatchDriver
1307 Variant retVal
1308 Get phDispatchDriver to hDispatchDriver
1309 Get InvokeComMethod of hDispatchDriver 500 OLE_VT_DISPATCH to retVal
1310 Function_Return retVal
1311 End_Function
1312
1313 { MethodType=Property DesignTime=False }
1314 Function ComActiveConnection Returns Variant
1315 Handle hDispatchDriver
1316 Variant retVal
1317 Get phDispatchDriver to hDispatchDriver
1318 Get InvokeComMethod of hDispatchDriver 1 OLE_VT_DISPATCH to retVal
1319 Function_Return retVal
1320 End_Function
1321
1322 { MethodType=Property DesignTime=False }
1323 Procedure Set ComActiveConnection Variant value
1324 Handle hDispatchDriver
1325 Get phDispatchDriver to hDispatchDriver
1326 Send PrepareParams to hDispatchDriver 1
1327 Set ComProperty of hDispatchDriver 1 OLE_VT_DISPATCH to value
1328 End_Procedure
1329
1330 { MethodType=Property DesignTime=False }
1331 Procedure Set ComActiveConnection Variant value
1332 Handle hDispatchDriver
1333 Get phDispatchDriver to hDispatchDriver
1334 Send PrepareParams to hDispatchDriver 1
1335 Set ComProperty of hDispatchDriver 1 OLE_VT_VARIANT to value
1336 End_Procedure
1337
1338 { MethodType=Property DesignTime=False }
1339 Function ComCommandText Returns String
1340 Handle hDispatchDriver
1341 String retVal
1342 Get phDispatchDriver to hDispatchDriver
1343 Get InvokeComMethod of hDispatchDriver 2 OLE_VT_BSTR to retVal
1344 Function_Return retVal
1345 End_Function
1346
1347 { MethodType=Property DesignTime=False }
1348 Procedure Set ComCommandText String value
1349 Handle hDispatchDriver
1350 Get phDispatchDriver to hDispatchDriver
1351 Send PrepareParams to hDispatchDriver 1
1352 Set ComProperty of hDispatchDriver 2 OLE_VT_BSTR to value
1353 End_Procedure
1354
1355 { MethodType=Property DesignTime=False }
1356 Function ComCommandTimeout Returns Integer
1357 Handle hDispatchDriver
1358 Integer retVal
1359 Get phDispatchDriver to hDispatchDriver
1360 Get InvokeComMethod of hDispatchDriver 3 OLE_VT_I4 to retVal
1361 Function_Return retVal
1362 End_Function
1363
1364 { MethodType=Property DesignTime=False }
1365 Procedure Set ComCommandTimeout Integer value
1366 Handle hDispatchDriver
1367 Get phDispatchDriver to hDispatchDriver
1368 Send PrepareParams to hDispatchDriver 1
1369 Set ComProperty of hDispatchDriver 3 OLE_VT_I4 to value
1370 End_Procedure
1371
1372 { MethodType=Property DesignTime=False }
1373 Function ComPrepared Returns Boolean
1374 Handle hDispatchDriver
1375 Boolean retVal
1376 Get phDispatchDriver to hDispatchDriver
1377 Get InvokeComMethod of hDispatchDriver 4 OLE_VT_BOOL to retVal
1378 Function_Return retVal
1379 End_Function
1380
1381 { MethodType=Property DesignTime=False }
1382 Procedure Set ComPrepared Boolean value
1383 Handle hDispatchDriver
1384 Get phDispatchDriver to hDispatchDriver
1385 Send PrepareParams to hDispatchDriver 1
1386 Set ComProperty of hDispatchDriver 4 OLE_VT_BOOL to value
1387 End_Procedure
1388
1389 Function ComExecute Variant llRecordsAffected Variant llParameters Integer llOptions Returns Variant
1390 Handle hDispatchDriver
1391 Variant retVal
1392 Get phDispatchDriver to hDispatchDriver
1393 Send PrepareParams to hDispatchDriver 3
1394 Send DefineParam to hDispatchDriver (OLE_VT_BYREF ior OLE_VT_VARIANT) llRecordsAffected
1395 Send DefineParam to hDispatchDriver (OLE_VT_BYREF ior OLE_VT_VARIANT) llParameters
1396 Send DefineParam to hDispatchDriver OLE_VT_I4 llOptions
1397 Get InvokeComMethod of hDispatchDriver 5 OLE_VT_DISPATCH to retVal
1398 Function_Return retVal
1399 End_Function
1400
1401 Function ComCreateParameter String llName OLEDataTypeEnum llType OLEParameterDirectionEnum llDirection Integer llSize Variant llValue Returns Variant
1402 Handle hDispatchDriver
1403 Variant retVal
1404 Get phDispatchDriver to hDispatchDriver
1405 Send PrepareParams to hDispatchDriver 5
1406 Send DefineParam to hDispatchDriver OLE_VT_BSTR llName
1407 Send DefineParam to hDispatchDriver OLE_VT_I4 llType
1408 Send DefineParam to hDispatchDriver OLE_VT_I4 llDirection
1409 Send DefineParam to hDispatchDriver OLE_VT_I4 llSize
1410 Send DefineParam to hDispatchDriver OLE_VT_VARIANT llValue
1411 Get InvokeComMethod of hDispatchDriver 6 OLE_VT_DISPATCH to retVal
1412 Function_Return retVal
1413 End_Function
1414
1415 { MethodType=Property DesignTime=False }
1416 Function ComParameters Returns Variant
1417 Handle hDispatchDriver
1418 Variant retVal
1419 Get phDispatchDriver to hDispatchDriver
1420 Get InvokeComMethod of hDispatchDriver 0 OLE_VT_DISPATCH to retVal
1421 Function_Return retVal
1422 End_Function
1423
1424 { MethodType=Property DesignTime=False }
1425 Procedure Set ComCommandType OLECommandTypeEnum value
1426 Handle hDispatchDriver
1427 Get phDispatchDriver to hDispatchDriver
1428 Send PrepareParams to hDispatchDriver 1
1429 Set ComProperty of hDispatchDriver 7 OLE_VT_I4 to value
1430 End_Procedure
1431
1432 { MethodType=Property DesignTime=False }
1433 Function ComCommandType Returns OLECommandTypeEnum
1434 Handle hDispatchDriver
1435 OLECommandTypeEnum retVal
1436 Get phDispatchDriver to hDispatchDriver
1437 Get InvokeComMethod of hDispatchDriver 7 OLE_VT_I4 to retVal
1438 Function_Return retVal
1439 End_Function
1440
1441 { MethodType=Property DesignTime=False }
1442 Function ComName Returns String
1443 Handle hDispatchDriver
1444 String retVal
1445 Get phDispatchDriver to hDispatchDriver
1446 Get InvokeComMethod of hDispatchDriver 8 OLE_VT_BSTR to retVal
1447 Function_Return retVal
1448 End_Function
1449
1450 { MethodType=Property DesignTime=False }
1451 Procedure Set ComName String value
1452 Handle hDispatchDriver
1453 Get phDispatchDriver to hDispatchDriver
1454 Send PrepareParams to hDispatchDriver 1
1455 Set ComProperty of hDispatchDriver 8 OLE_VT_BSTR to value
1456 End_Procedure
1457
1458 { MethodType=Property DesignTime=False }
1459 Function ComState Returns Integer
1460 Handle hDispatchDriver
1461 Integer retVal
1462 Get phDispatchDriver to hDispatchDriver
1463 Get InvokeComMethod of hDispatchDriver 9 OLE_VT_I4 to retVal
1464 Function_Return retVal
1465 End_Function
1466
1467 Procedure ComCancel
1468 Handle hDispatchDriver
1469 Get phDispatchDriver to hDispatchDriver
1470 Send InvokeComMethod to hDispatchDriver 10 OLE_VT_VOID
1471 End_Procedure
1472
1473 { MethodType=Property DesignTime=False }
1474 Procedure Set ComCommandStream Variant value
1475 Handle hDispatchDriver
1476 Get phDispatchDriver to hDispatchDriver
1477 Send PrepareParams to hDispatchDriver 1
1478 Set ComProperty of hDispatchDriver 11 OLE_VT_UNKNOWN to value
1479 End_Procedure
1480
1481 { MethodType=Property DesignTime=False }
1482 Function ComCommandStream Returns Variant
1483 Handle hDispatchDriver
1484 Variant retVal
1485 Get phDispatchDriver to hDispatchDriver
1486 Get InvokeComMethod of hDispatchDriver 11 OLE_VT_VARIANT to retVal
1487 Function_Return retVal
1488 End_Function
1489
1490 { MethodType=Property DesignTime=False }
1491 Procedure Set ComDialect String value
1492 Handle hDispatchDriver
1493 Get phDispatchDriver to hDispatchDriver
1494 Send PrepareParams to hDispatchDriver 1
1495 Set ComProperty of hDispatchDriver 12 OLE_VT_BSTR to value
1496 End_Procedure
1497
1498 { MethodType=Property DesignTime=False }
1499 Function ComDialect Returns String
1500 Handle hDispatchDriver
1501 String retVal
1502 Get phDispatchDriver to hDispatchDriver
1503 Get InvokeComMethod of hDispatchDriver 12 OLE_VT_BSTR to retVal
1504 Function_Return retVal
1505 End_Function
1506
1507 { MethodType=Property DesignTime=False }
1508 Procedure Set ComNamedParameters Boolean value
1509 Handle hDispatchDriver
1510 Get phDispatchDriver to hDispatchDriver
1511 Send PrepareParams to hDispatchDriver 1
1512 Set ComProperty of hDispatchDriver 13 OLE_VT_BOOL to value
1513 End_Procedure
1514
1515 { MethodType=Property DesignTime=False }
1516 Function ComNamedParameters Returns Boolean
1517 Handle hDispatchDriver
1518 Boolean retVal
1519 Get phDispatchDriver to hDispatchDriver
1520 Get InvokeComMethod of hDispatchDriver 13 OLE_VT_BOOL to retVal
1521 Function_Return retVal
1522 End_Function
1523End_Class
1524
1525// CoClass
1526// ProgID: ADODB.Command.6.0
1527// CLSID: {00000507-0000-0010-8000-00AA006D2EA4}
1528Class cComCommand is a cComAutomationObject
1529 Import_Class_Protocol cCom_Command
1530
1531 Procedure Construct_Object
1532 Forward Send Construct_Object
1533 Set psProgID to "{00000507-0000-0010-8000-00AA006D2EA4}"
1534 Set peAutoCreate to acNoAutoCreate
1535 End_Procedure
1536End_Class
1537
1538// CLSID: {00001556-0000-0010-8000-00AA006D2EA4}
1539Class cCom_Recordset is a Mixin
1540
1541 { MethodType=Property DesignTime=False }
1542 Function ComProperties Returns Variant
1543 Handle hDispatchDriver
1544 Variant retVal
1545 Get phDispatchDriver to hDispatchDriver
1546 Get InvokeComMethod of hDispatchDriver 500 OLE_VT_DISPATCH to retVal
1547 Function_Return retVal
1548 End_Function
1549
1550 { MethodType=Property DesignTime=False }
1551 Function ComAbsolutePosition Returns OLEPositionEnum
1552 Handle hDispatchDriver
1553 OLEPositionEnum retVal
1554 Get phDispatchDriver to hDispatchDriver
1555 Get InvokeComMethod of hDispatchDriver 1000 OLE_VT_I4 to retVal
1556 Function_Return retVal
1557 End_Function
1558
1559 { MethodType=Property DesignTime=False }
1560 Procedure Set ComAbsolutePosition OLEPositionEnum value
1561 Handle hDispatchDriver
1562 Get phDispatchDriver to hDispatchDriver
1563 Send PrepareParams to hDispatchDriver 1
1564 Set ComProperty of hDispatchDriver 1000 OLE_VT_I4 to value
1565 End_Procedure
1566
1567 { MethodType=Property DesignTime=False }
1568 Procedure Set ComActiveConnection Variant value
1569 Handle hDispatchDriver
1570 Get phDispatchDriver to hDispatchDriver
1571 Send PrepareParams to hDispatchDriver 1
1572 Set ComProperty of hDispatchDriver 1001 OLE_VT_DISPATCH to value
1573 End_Procedure
1574
1575 { MethodType=Property DesignTime=False }
1576 Procedure Set ComActiveConnection Variant value
1577 Handle hDispatchDriver
1578 Get phDispatchDriver to hDispatchDriver
1579 Send PrepareParams to hDispatchDriver 1
1580 Set ComProperty of hDispatchDriver 1001 OLE_VT_VARIANT to value
1581 End_Procedure
1582
1583 { MethodType=Property DesignTime=False }
1584 Function ComActiveConnection Returns Variant
1585 Handle hDispatchDriver
1586 Variant retVal
1587 Get phDispatchDriver to hDispatchDriver
1588 Get InvokeComMethod of hDispatchDriver 1001 OLE_VT_VARIANT to retVal
1589 Function_Return retVal
1590 End_Function
1591
1592 { MethodType=Property DesignTime=False }
1593 Function ComBOF Returns Boolean
1594 Handle hDispatchDriver
1595 Boolean retVal
1596 Get phDispatchDriver to hDispatchDriver
1597 Get InvokeComMethod of hDispatchDriver 1002 OLE_VT_BOOL to retVal
1598 Function_Return retVal
1599 End_Function
1600
1601 { MethodType=Property DesignTime=False }
1602 Function ComBookmark Returns Variant
1603 Handle hDispatchDriver
1604 Variant retVal
1605 Get phDispatchDriver to hDispatchDriver
1606 Get InvokeComMethod of hDispatchDriver 1003 OLE_VT_VARIANT to retVal
1607 Function_Return retVal
1608 End_Function
1609
1610 { MethodType=Property DesignTime=False }
1611 Procedure Set ComBookmark Variant value
1612 Handle hDispatchDriver
1613 Get phDispatchDriver to hDispatchDriver
1614 Send PrepareParams to hDispatchDriver 1
1615 Set ComProperty of hDispatchDriver 1003 OLE_VT_VARIANT to value
1616 End_Procedure
1617
1618 { MethodType=Property DesignTime=False }
1619 Function ComCacheSize Returns Integer
1620 Handle hDispatchDriver
1621 Integer retVal
1622 Get phDispatchDriver to hDispatchDriver
1623 Get InvokeComMethod of hDispatchDriver 1004 OLE_VT_I4 to retVal
1624 Function_Return retVal
1625 End_Function
1626
1627 { MethodType=Property DesignTime=False }
1628 Procedure Set ComCacheSize Integer value
1629 Handle hDispatchDriver
1630 Get phDispatchDriver to hDispatchDriver
1631 Send PrepareParams to hDispatchDriver 1
1632 Set ComProperty of hDispatchDriver 1004 OLE_VT_I4 to value
1633 End_Procedure
1634
1635 { MethodType=Property DesignTime=False }
1636 Function ComCursorType Returns OLECursorTypeEnum
1637 Handle hDispatchDriver
1638 OLECursorTypeEnum retVal
1639 Get phDispatchDriver to hDispatchDriver
1640 Get InvokeComMethod of hDispatchDriver 1005 OLE_VT_I4 to retVal
1641 Function_Return retVal
1642 End_Function
1643
1644 { MethodType=Property DesignTime=False }
1645 Procedure Set ComCursorType OLECursorTypeEnum value
1646 Handle hDispatchDriver
1647 Get phDispatchDriver to hDispatchDriver
1648 Send PrepareParams to hDispatchDriver 1
1649 Set ComProperty of hDispatchDriver 1005 OLE_VT_I4 to value
1650 End_Procedure
1651
1652 { MethodType=Property DesignTime=False }
1653 Function ComEOF Returns Boolean
1654 Handle hDispatchDriver
1655 Boolean retVal
1656 Get phDispatchDriver to hDispatchDriver
1657 Get InvokeComMethod of hDispatchDriver 1006 OLE_VT_BOOL to retVal
1658 Function_Return retVal
1659 End_Function
1660
1661 { MethodType=Property DesignTime=False }
1662 Function ComFields Returns Variant
1663 Handle hDispatchDriver
1664 Variant retVal
1665 Get phDispatchDriver to hDispatchDriver
1666 Get InvokeComMethod of hDispatchDriver 0 OLE_VT_DISPATCH to retVal
1667 Function_Return retVal
1668 End_Function
1669
1670 { MethodType=Property DesignTime=False }
1671 Function ComLockType Returns OLELockTypeEnum
1672 Handle hDispatchDriver
1673 OLELockTypeEnum retVal
1674 Get phDispatchDriver to hDispatchDriver
1675 Get InvokeComMethod of hDispatchDriver 1008 OLE_VT_I4 to retVal
1676 Function_Return retVal
1677 End_Function
1678
1679 { MethodType=Property DesignTime=False }
1680 Procedure Set ComLockType OLELockTypeEnum value
1681 Handle hDispatchDriver
1682 Get phDispatchDriver to hDispatchDriver
1683 Send PrepareParams to hDispatchDriver 1
1684 Set ComProperty of hDispatchDriver 1008 OLE_VT_I4 to value
1685 End_Procedure
1686
1687 { MethodType=Property DesignTime=False }
1688 Function ComMaxRecords Returns Integer
1689 Handle hDispatchDriver
1690 Integer retVal
1691 Get phDispatchDriver to hDispatchDriver
1692 Get InvokeComMethod of hDispatchDriver 1009 OLE_VT_I4 to retVal
1693 Function_Return retVal
1694 End_Function
1695
1696 { MethodType=Property DesignTime=False }
1697 Procedure Set ComMaxRecords Integer value
1698 Handle hDispatchDriver
1699 Get phDispatchDriver to hDispatchDriver
1700 Send PrepareParams to hDispatchDriver 1
1701 Set ComProperty of hDispatchDriver 1009 OLE_VT_I4 to value
1702 End_Procedure
1703
1704 { MethodType=Property DesignTime=False }
1705 Function ComRecordCount Returns Integer
1706 Handle hDispatchDriver
1707 Integer retVal
1708 Get phDispatchDriver to hDispatchDriver
1709 Get InvokeComMethod of hDispatchDriver 1010 OLE_VT_I4 to retVal
1710 Function_Return retVal
1711 End_Function
1712
1713 { MethodType=Property DesignTime=False }
1714 Procedure Set ComSource Variant value
1715 Handle hDispatchDriver
1716 Get phDispatchDriver to hDispatchDriver
1717 Send PrepareParams to hDispatchDriver 1
1718 Set ComProperty of hDispatchDriver 1011 OLE_VT_DISPATCH to value
1719 End_Procedure
1720
1721 { MethodType=Property DesignTime=False }
1722 Procedure Set ComSource String value
1723 Handle hDispatchDriver
1724 Get phDispatchDriver to hDispatchDriver
1725 Send PrepareParams to hDispatchDriver 1
1726 Set ComProperty of hDispatchDriver 1011 OLE_VT_BSTR to value
1727 End_Procedure
1728
1729 { MethodType=Property DesignTime=False }
1730 Function ComSource Returns Variant
1731 Handle hDispatchDriver
1732 Variant retVal
1733 Get phDispatchDriver to hDispatchDriver
1734 Get InvokeComMethod of hDispatchDriver 1011 OLE_VT_VARIANT to retVal
1735 Function_Return retVal
1736 End_Function
1737
1738 Procedure ComAddNew Variant llFieldList Variant llValues
1739 Handle hDispatchDriver
1740 Get phDispatchDriver to hDispatchDriver
1741 Send PrepareParams to hDispatchDriver 2
1742 Send DefineParam to hDispatchDriver OLE_VT_VARIANT llFieldList
1743 Send DefineParam to hDispatchDriver OLE_VT_VARIANT llValues
1744 Send InvokeComMethod to hDispatchDriver 1012 OLE_VT_VOID
1745 End_Procedure
1746
1747 Procedure ComCancelUpdate
1748 Handle hDispatchDriver
1749 Get phDispatchDriver to hDispatchDriver
1750 Send InvokeComMethod to hDispatchDriver 1013 OLE_VT_VOID
1751 End_Procedure
1752
1753 Procedure ComClose
1754 Handle hDispatchDriver
1755 Get phDispatchDriver to hDispatchDriver
1756 Send InvokeComMethod to hDispatchDriver 1014 OLE_VT_VOID
1757 End_Procedure
1758
1759 Procedure ComDelete OLEAffectEnum llAffectRecords
1760 Handle hDispatchDriver
1761 Get phDispatchDriver to hDispatchDriver
1762 Send PrepareParams to hDispatchDriver 1
1763 Send DefineParam to hDispatchDriver OLE_VT_I4 llAffectRecords
1764 Send InvokeComMethod to hDispatchDriver 1015 OLE_VT_VOID
1765 End_Procedure
1766
1767 Function ComGetRows Integer llRows Variant llStart Variant llFields Returns Variant
1768 Handle hDispatchDriver
1769 Variant retVal
1770 Get phDispatchDriver to hDispatchDriver
1771 Send PrepareParams to hDispatchDriver 3
1772 Send DefineParam to hDispatchDriver OLE_VT_I4 llRows
1773 Send DefineParam to hDispatchDriver OLE_VT_VARIANT llStart
1774 Send DefineParam to hDispatchDriver OLE_VT_VARIANT llFields
1775 Get InvokeComMethod of hDispatchDriver 1016 OLE_VT_VARIANT to retVal
1776 Function_Return retVal
1777 End_Function
1778
1779 Procedure ComMove Integer llNumRecords Variant llStart
1780 Handle hDispatchDriver
1781 Get phDispatchDriver to hDispatchDriver
1782 Send PrepareParams to hDispatchDriver 2
1783 Send DefineParam to hDispatchDriver OLE_VT_I4 llNumRecords
1784 Send DefineParam to hDispatchDriver OLE_VT_VARIANT llStart
1785 Send InvokeComMethod to hDispatchDriver 1017 OLE_VT_VOID
1786 End_Procedure
1787
1788 Procedure ComMoveNext
1789 Handle hDispatchDriver
1790 Get phDispatchDriver to hDispatchDriver
1791 Send InvokeComMethod to hDispatchDriver 1018 OLE_VT_VOID
1792 End_Procedure
1793
1794 Procedure ComMovePrevious
1795 Handle hDispatchDriver
1796 Get phDispatchDriver to hDispatchDriver
1797 Send InvokeComMethod to hDispatchDriver 1019 OLE_VT_VOID
1798 End_Procedure
1799
1800 Procedure ComMoveFirst
1801 Handle hDispatchDriver
1802 Get phDispatchDriver to hDispatchDriver
1803 Send InvokeComMethod to hDispatchDriver 1020 OLE_VT_VOID
1804 End_Procedure
1805
1806 Procedure ComMoveLast
1807 Handle hDispatchDriver
1808 Get phDispatchDriver to hDispatchDriver
1809 Send InvokeComMethod to hDispatchDriver 1021 OLE_VT_VOID
1810 End_Procedure
1811
1812 Procedure ComOpen Variant llSource Variant llActiveConnection OLECursorTypeEnum llCursorType OLELockTypeEnum llLockType Integer llOptions
1813 Handle hDispatchDriver
1814 Get phDispatchDriver to hDispatchDriver
1815 Send PrepareParams to hDispatchDriver 5
1816 Send DefineParam to hDispatchDriver OLE_VT_VARIANT llSource
1817 Send DefineParam to hDispatchDriver OLE_VT_VARIANT llActiveConnection
1818 Send DefineParam to hDispatchDriver OLE_VT_I4 llCursorType
1819 Send DefineParam to hDispatchDriver OLE_VT_I4 llLockType
1820 Send DefineParam to hDispatchDriver OLE_VT_I4 llOptions
1821 Send InvokeComMethod to hDispatchDriver 1022 OLE_VT_VOID
1822 End_Procedure
1823
1824 Procedure ComOpen_2
1825 Handle hDispatchDriver
1826 Get phDispatchDriver to hDispatchDriver
1827 Send InvokeComMethod to hDispatchDriver 1022 OLE_VT_VOID
1828 End_Procedure
1829
1830 Procedure ComRequery Integer llOptions
1831 Handle hDispatchDriver
1832 Get phDispatchDriver to hDispatchDriver
1833 Send PrepareParams to hDispatchDriver 1
1834 Send DefineParam to hDispatchDriver OLE_VT_I4 llOptions
1835 Send InvokeComMethod to hDispatchDriver 1023 OLE_VT_VOID
1836 End_Procedure
1837
1838 Procedure ComUpdate Variant llFields Variant llValues
1839 Handle hDispatchDriver
1840 Get phDispatchDriver to hDispatchDriver
1841 Send PrepareParams to hDispatchDriver 2
1842 Send DefineParam to hDispatchDriver OLE_VT_VARIANT llFields
1843 Send DefineParam to hDispatchDriver OLE_VT_VARIANT llValues
1844 Send InvokeComMethod to hDispatchDriver 1025 OLE_VT_VOID
1845 End_Procedure
1846
1847 Procedure ComUpdate_2
1848 Handle hDispatchDriver
1849 Get phDispatchDriver to hDispatchDriver
1850 Send InvokeComMethod to hDispatchDriver 1025 OLE_VT_VOID
1851 End_Procedure
1852
1853 { MethodType=Property DesignTime=False }
1854 Function ComAbsolutePage Returns OLEPositionEnum
1855 Handle hDispatchDriver
1856 OLEPositionEnum retVal
1857 Get phDispatchDriver to hDispatchDriver
1858 Get InvokeComMethod of hDispatchDriver 1047 OLE_VT_I4 to retVal
1859 Function_Return retVal
1860 End_Function
1861
1862 { MethodType=Property DesignTime=False }
1863 Procedure Set ComAbsolutePage OLEPositionEnum value
1864 Handle hDispatchDriver
1865 Get phDispatchDriver to hDispatchDriver
1866 Send PrepareParams to hDispatchDriver 1
1867 Set ComProperty of hDispatchDriver 1047 OLE_VT_I4 to value
1868 End_Procedure
1869
1870 { MethodType=Property DesignTime=False }
1871 Function ComEditMode Returns OLEEditModeEnum
1872 Handle hDispatchDriver
1873 OLEEditModeEnum retVal
1874 Get phDispatchDriver to hDispatchDriver
1875 Get InvokeComMethod of hDispatchDriver 1026 OLE_VT_I4 to retVal
1876 Function_Return retVal
1877 End_Function
1878
1879 { MethodType=Property DesignTime=False }
1880 Function ComFilter Returns Variant
1881 Handle hDispatchDriver
1882 Variant retVal
1883 Get phDispatchDriver to hDispatchDriver
1884 Get InvokeComMethod of hDispatchDriver 1030 OLE_VT_VARIANT to retVal
1885 Function_Return retVal
1886 End_Function
1887
1888 { MethodType=Property DesignTime=False }
1889 Procedure Set ComFilter Variant value
1890 Handle hDispatchDriver
1891 Get phDispatchDriver to hDispatchDriver
1892 Send PrepareParams to hDispatchDriver 1
1893 Set ComProperty of hDispatchDriver 1030 OLE_VT_VARIANT to value
1894 End_Procedure
1895
1896 { MethodType=Property DesignTime=False }
1897 Function ComPageCount Returns Integer
1898 Handle hDispatchDriver
1899 Integer retVal
1900 Get phDispatchDriver to hDispatchDriver
1901 Get InvokeComMethod of hDispatchDriver 1050 OLE_VT_I4 to retVal
1902 Function_Return retVal
1903 End_Function
1904
1905 { MethodType=Property DesignTime=False }
1906 Function ComPageSize Returns Integer
1907 Handle hDispatchDriver
1908 Integer retVal
1909 Get phDispatchDriver to hDispatchDriver
1910 Get InvokeComMethod of hDispatchDriver 1048 OLE_VT_I4 to retVal
1911 Function_Return retVal
1912 End_Function
1913
1914 { MethodType=Property DesignTime=False }
1915 Procedure Set ComPageSize Integer value
1916 Handle hDispatchDriver
1917 Get phDispatchDriver to hDispatchDriver
1918 Send PrepareParams to hDispatchDriver 1
1919 Set ComProperty of hDispatchDriver 1048 OLE_VT_I4 to value
1920 End_Procedure
1921
1922 { MethodType=Property DesignTime=False }
1923 Function ComSort Returns String
1924 Handle hDispatchDriver
1925 String retVal
1926 Get phDispatchDriver to hDispatchDriver
1927 Get InvokeComMethod of hDispatchDriver 1031 OLE_VT_BSTR to retVal
1928 Function_Return retVal
1929 End_Function
1930
1931 { MethodType=Property DesignTime=False }
1932 Procedure Set ComSort String value
1933 Handle hDispatchDriver
1934 Get phDispatchDriver to hDispatchDriver
1935 Send PrepareParams to hDispatchDriver 1
1936 Set ComProperty of hDispatchDriver 1031 OLE_VT_BSTR to value
1937 End_Procedure
1938
1939 { MethodType=Property DesignTime=False }
1940 Function ComStatus Returns Integer
1941 Handle hDispatchDriver
1942 Integer retVal
1943 Get phDispatchDriver to hDispatchDriver
1944 Get InvokeComMethod of hDispatchDriver 1029 OLE_VT_I4 to retVal
1945 Function_Return retVal
1946 End_Function
1947
1948 { MethodType=Property DesignTime=False }
1949 Function ComState Returns Integer
1950 Handle hDispatchDriver
1951 Integer retVal
1952 Get phDispatchDriver to hDispatchDriver
1953 Get InvokeComMethod of hDispatchDriver 1054 OLE_VT_I4 to retVal
1954 Function_Return retVal
1955 End_Function
1956
1957 Procedure ComUpdateBatch OLEAffectEnum llAffectRecords
1958 Handle hDispatchDriver
1959 Get phDispatchDriver to hDispatchDriver
1960 Send PrepareParams to hDispatchDriver 1
1961 Send DefineParam to hDispatchDriver OLE_VT_I4 llAffectRecords
1962 Send InvokeComMethod to hDispatchDriver 1035 OLE_VT_VOID
1963 End_Procedure
1964
1965 Procedure ComCancelBatch OLEAffectEnum llAffectRecords
1966 Handle hDispatchDriver
1967 Get phDispatchDriver to hDispatchDriver
1968 Send PrepareParams to hDispatchDriver 1
1969 Send DefineParam to hDispatchDriver OLE_VT_I4 llAffectRecords
1970 Send InvokeComMethod to hDispatchDriver 1049 OLE_VT_VOID
1971 End_Procedure
1972
1973 { MethodType=Property DesignTime=False }
1974 Function ComCursorLocation Returns OLECursorLocationEnum
1975 Handle hDispatchDriver
1976 OLECursorLocationEnum retVal
1977 Get phDispatchDriver to hDispatchDriver
1978 Get InvokeComMethod of hDispatchDriver 1051 OLE_VT_I4 to retVal
1979 Function_Return retVal
1980 End_Function
1981
1982 { MethodType=Property DesignTime=False }
1983 Procedure Set ComCursorLocation OLECursorLocationEnum value
1984 Handle hDispatchDriver
1985 Get phDispatchDriver to hDispatchDriver
1986 Send PrepareParams to hDispatchDriver 1
1987 Set ComProperty of hDispatchDriver 1051 OLE_VT_I4 to value
1988 End_Procedure
1989
1990 Function ComNextRecordset Variant llRecordsAffected Returns Variant
1991 Handle hDispatchDriver
1992 Variant retVal
1993 Get phDispatchDriver to hDispatchDriver
1994 Send PrepareParams to hDispatchDriver 1
1995 Send DefineParam to hDispatchDriver (OLE_VT_BYREF ior OLE_VT_VARIANT) llRecordsAffected
1996 Get InvokeComMethod of hDispatchDriver 1052 OLE_VT_DISPATCH to retVal
1997 Function_Return retVal
1998 End_Function
1999
2000 Function ComSupports OLECursorOptionEnum llCursorOptions Returns Boolean
2001 Handle hDispatchDriver
2002 Boolean retVal
2003 Get phDispatchDriver to hDispatchDriver
2004 Send PrepareParams to hDispatchDriver 1
2005 Send DefineParam to hDispatchDriver OLE_VT_I4 llCursorOptions
2006 Get InvokeComMethod of hDispatchDriver 1036 OLE_VT_BOOL to retVal
2007 Function_Return retVal
2008 End_Function
2009
2010 { MethodType=Property DesignTime=False }
2011 Function ComMarshalOptions Returns OLEMarshalOptionsEnum
2012 Handle hDispatchDriver
2013 OLEMarshalOptionsEnum retVal
2014 Get phDispatchDriver to hDispatchDriver
2015 Get InvokeComMethod of hDispatchDriver 1053 OLE_VT_I4 to retVal
2016 Function_Return retVal
2017 End_Function
2018
2019 { MethodType=Property DesignTime=False }
2020 Procedure Set ComMarshalOptions OLEMarshalOptionsEnum value
2021 Handle hDispatchDriver
2022 Get phDispatchDriver to hDispatchDriver
2023 Send PrepareParams to hDispatchDriver 1
2024 Set ComProperty of hDispatchDriver 1053 OLE_VT_I4 to value
2025 End_Procedure
2026
2027 Procedure ComFind String llCriteria Integer llSkipRecords OLESearchDirectionEnum llSearchDirection Variant llStart
2028 Handle hDispatchDriver
2029 Get phDispatchDriver to hDispatchDriver
2030 Send PrepareParams to hDispatchDriver 4
2031 Send DefineParam to hDispatchDriver OLE_VT_BSTR llCriteria
2032 Send DefineParam to hDispatchDriver OLE_VT_I4 llSkipRecords
2033 Send DefineParam to hDispatchDriver OLE_VT_I4 llSearchDirection
2034 Send DefineParam to hDispatchDriver OLE_VT_VARIANT llStart
2035 Send InvokeComMethod to hDispatchDriver 1058 OLE_VT_VOID
2036 End_Procedure
2037
2038 Procedure ComCancel
2039 Handle hDispatchDriver
2040 Get phDispatchDriver to hDispatchDriver
2041 Send InvokeComMethod to hDispatchDriver 1055 OLE_VT_VOID
2042 End_Procedure
2043
2044 { MethodType=Property DesignTime=False }
2045 Function ComDataSource Returns Variant
2046 Handle hDispatchDriver
2047 Variant retVal
2048 Get phDispatchDriver to hDispatchDriver
2049 Get InvokeComMethod of hDispatchDriver 1056 OLE_VT_UNKNOWN to retVal
2050 Function_Return retVal
2051 End_Function
2052
2053 { MethodType=Property DesignTime=False }
2054 Procedure Set ComDataSource Variant value
2055 Handle hDispatchDriver
2056 Get phDispatchDriver to hDispatchDriver
2057 Send PrepareParams to hDispatchDriver 1
2058 Set ComProperty of hDispatchDriver 1056 OLE_VT_UNKNOWN to value
2059 End_Procedure
2060
2061 { MethodType=Property DesignTime=False }
2062 Function ComActiveCommand Returns Variant
2063 Handle hDispatchDriver
2064 Variant retVal
2065 Get phDispatchDriver to hDispatchDriver
2066 Get InvokeComMethod of hDispatchDriver 1061 OLE_VT_DISPATCH to retVal
2067 Function_Return retVal
2068 End_Function
2069
2070 { MethodType=Property DesignTime=False }
2071 Procedure Set ComStayInSync Boolean value
2072 Handle hDispatchDriver
2073 Get phDispatchDriver to hDispatchDriver
2074 Send PrepareParams to hDispatchDriver 1
2075 Set ComProperty of hDispatchDriver 1063 OLE_VT_BOOL to value
2076 End_Procedure
2077
2078 { MethodType=Property DesignTime=False }
2079 Function ComStayInSync Returns Boolean
2080 Handle hDispatchDriver
2081 Boolean retVal
2082 Get phDispatchDriver to hDispatchDriver
2083 Get InvokeComMethod of hDispatchDriver 1063 OLE_VT_BOOL to retVal
2084 Function_Return retVal
2085 End_Function
2086
2087 Function ComGetString OLEStringFormatEnum llStringFormat Integer llNumRows String llColumnDelimeter String llRowDelimeter String llNullExpr Returns String
2088 Handle hDispatchDriver
2089 String retVal
2090 Get phDispatchDriver to hDispatchDriver
2091 Send PrepareParams to hDispatchDriver 5
2092 Send DefineParam to hDispatchDriver OLE_VT_I4 llStringFormat
2093 Send DefineParam to hDispatchDriver OLE_VT_I4 llNumRows
2094 Send DefineParam to hDispatchDriver OLE_VT_BSTR llColumnDelimeter
2095 Send DefineParam to hDispatchDriver OLE_VT_BSTR llRowDelimeter
2096 Send DefineParam to hDispatchDriver OLE_VT_BSTR llNullExpr
2097 Get InvokeComMethod of hDispatchDriver 1062 OLE_VT_BSTR to retVal
2098 Function_Return retVal
2099 End_Function
2100
2101 { MethodType=Property DesignTime=False }
2102 Function ComDataMember Returns String
2103 Handle hDispatchDriver
2104 String retVal
2105 Get phDispatchDriver to hDispatchDriver
2106 Get InvokeComMethod of hDispatchDriver 1064 OLE_VT_BSTR to retVal
2107 Function_Return retVal
2108 End_Function
2109
2110 { MethodType=Property DesignTime=False }
2111 Procedure Set ComDataMember String value
2112 Handle hDispatchDriver
2113 Get phDispatchDriver to hDispatchDriver
2114 Send PrepareParams to hDispatchDriver 1
2115 Set ComProperty of hDispatchDriver 1064 OLE_VT_BSTR to value
2116 End_Procedure
2117
2118 Function ComCompareBookmarks Variant llBookmark1 Variant llBookmark2 Returns OLECompareEnum
2119 Handle hDispatchDriver
2120 OLECompareEnum retVal
2121 Get phDispatchDriver to hDispatchDriver
2122 Send PrepareParams to hDispatchDriver 2
2123 Send DefineParam to hDispatchDriver OLE_VT_VARIANT llBookmark1
2124 Send DefineParam to hDispatchDriver OLE_VT_VARIANT llBookmark2
2125 Get InvokeComMethod of hDispatchDriver 1065 OLE_VT_I4 to retVal
2126 Function_Return retVal
2127 End_Function
2128
2129 Function ComClone OLELockTypeEnum llLockType Returns Variant
2130 Handle hDispatchDriver
2131 Variant retVal
2132 Get phDispatchDriver to hDispatchDriver
2133 Send PrepareParams to hDispatchDriver 1
2134 Send DefineParam to hDispatchDriver OLE_VT_I4 llLockType
2135 Get InvokeComMethod of hDispatchDriver 1034 OLE_VT_DISPATCH to retVal
2136 Function_Return retVal
2137 End_Function
2138
2139 Procedure ComResync OLEAffectEnum llAffectRecords OLEResyncEnum llResyncValues
2140 Handle hDispatchDriver
2141 Get phDispatchDriver to hDispatchDriver
2142 Send PrepareParams to hDispatchDriver 2
2143 Send DefineParam to hDispatchDriver OLE_VT_I4 llAffectRecords
2144 Send DefineParam to hDispatchDriver OLE_VT_I4 llResyncValues
2145 Send InvokeComMethod to hDispatchDriver 1024 OLE_VT_VOID
2146 End_Procedure
2147
2148 Procedure ComSeek Variant llKeyValues OLESeekEnum llSeekOption
2149 Handle hDispatchDriver
2150 Get phDispatchDriver to hDispatchDriver
2151 Send PrepareParams to hDispatchDriver 2
2152 Send DefineParam to hDispatchDriver OLE_VT_VARIANT llKeyValues
2153 Send DefineParam to hDispatchDriver OLE_VT_I4 llSeekOption
2154 Send InvokeComMethod to hDispatchDriver 1066 OLE_VT_VOID
2155 End_Procedure
2156
2157 { MethodType=Property DesignTime=False }
2158 Procedure Set ComIndex String value
2159 Handle hDispatchDriver
2160 Get phDispatchDriver to hDispatchDriver
2161 Send PrepareParams to hDispatchDriver 1
2162 Set ComProperty of hDispatchDriver 1067 OLE_VT_BSTR to value
2163 End_Procedure
2164
2165 { MethodType=Property DesignTime=False }
2166 Function ComIndex Returns String
2167 Handle hDispatchDriver
2168 String retVal
2169 Get phDispatchDriver to hDispatchDriver
2170 Get InvokeComMethod of hDispatchDriver 1067 OLE_VT_BSTR to retVal
2171 Function_Return retVal
2172 End_Function
2173
2174 Procedure ComSave Variant llDestination OLEPersistFormatEnum llPersistFormat
2175 Handle hDispatchDriver
2176 Get phDispatchDriver to hDispatchDriver
2177 Send PrepareParams to hDispatchDriver 2
2178 Send DefineParam to hDispatchDriver OLE_VT_VARIANT llDestination
2179 Send DefineParam to hDispatchDriver OLE_VT_I4 llPersistFormat
2180 Send InvokeComMethod to hDispatchDriver 1057 OLE_VT_VOID
2181 End_Procedure
2182End_Class
2183
2184// CLSID: {00001266-0000-0010-8000-00AA006D2EA4}
2185Class cComRecordsetEvents is a Mixin
2186
2187 { MethodType=Event }
2188 Procedure OnComWillChangeField Integer llcFields Variant llFields OLEEventStatusEnum ByRef lladStatus Variant llpRecordset
2189 End_Procedure
2190
2191 { MethodType=Event }
2192 Procedure OnComFieldChangeComplete Integer llcFields Variant llFields Variant llpError OLEEventStatusEnum ByRef lladStatus Variant llpRecordset
2193 End_Procedure
2194
2195 { MethodType=Event }
2196 Procedure OnComWillChangeRecord OLEEventReasonEnum lladReason Integer llcRecords OLEEventStatusEnum ByRef lladStatus Variant llpRecordset
2197 End_Procedure
2198
2199 { MethodType=Event }
2200 Procedure OnComRecordChangeComplete OLEEventReasonEnum lladReason Integer llcRecords Variant llpError OLEEventStatusEnum ByRef lladStatus Variant llpRecordset
2201 End_Procedure
2202
2203 { MethodType=Event }
2204 Procedure OnComWillChangeRecordset OLEEventReasonEnum lladReason OLEEventStatusEnum ByRef lladStatus Variant llpRecordset
2205 End_Procedure
2206
2207 { MethodType=Event }
2208 Procedure OnComRecordsetChangeComplete OLEEventReasonEnum lladReason Variant llpError OLEEventStatusEnum ByRef lladStatus Variant llpRecordset
2209 End_Procedure
2210
2211 { MethodType=Event }
2212 Procedure OnComWillMove OLEEventReasonEnum lladReason OLEEventStatusEnum ByRef lladStatus Variant llpRecordset
2213 End_Procedure
2214
2215 { MethodType=Event }
2216 Procedure OnComMoveComplete OLEEventReasonEnum lladReason Variant llpError OLEEventStatusEnum ByRef lladStatus Variant llpRecordset
2217 End_Procedure
2218
2219 { MethodType=Event }
2220 Procedure OnComEndOfRecordset Boolean ByRef llfMoreData OLEEventStatusEnum ByRef lladStatus Variant llpRecordset
2221 End_Procedure
2222
2223 { MethodType=Event }
2224 Procedure OnComFetchProgress Integer llProgress Integer llMaxProgress OLEEventStatusEnum ByRef lladStatus Variant llpRecordset
2225 End_Procedure
2226
2227 { MethodType=Event }
2228 Procedure OnComFetchComplete Variant llpError OLEEventStatusEnum ByRef lladStatus Variant llpRecordset
2229 End_Procedure
2230
2231 { Visibility=Private }
2232 Procedure RegisterComEvents
2233 Send RegisterComEvent 9 msg_OnComWillChangeField
2234 Send RegisterComEvent 10 msg_OnComFieldChangeComplete
2235 Send RegisterComEvent 11 msg_OnComWillChangeRecord
2236 Send RegisterComEvent 12 msg_OnComRecordChangeComplete
2237 Send RegisterComEvent 13 msg_OnComWillChangeRecordset
2238 Send RegisterComEvent 14 msg_OnComRecordsetChangeComplete
2239 Send RegisterComEvent 15 msg_OnComWillMove
2240 Send RegisterComEvent 16 msg_OnComMoveComplete
2241 Send RegisterComEvent 17 msg_OnComEndOfRecordset
2242 Send RegisterComEvent 18 msg_OnComFetchProgress
2243 Send RegisterComEvent 19 msg_OnComFetchComplete
2244 End_Procedure
2245End_Class
2246
2247// CoClass
2248// ProgID: ADODB.Recordset.6.0
2249// CLSID: {00000535-0000-0010-8000-00AA006D2EA4}
2250Class cComRecordset is a cComAutomationObject
2251 Import_Class_Protocol cCom_Recordset
2252 Import_Class_Protocol cComRecordsetEvents
2253
2254 Procedure Construct_Object
2255 Forward Send Construct_Object
2256 Set psProgID to "{00000535-0000-0010-8000-00AA006D2EA4}"
2257 Set psEventId to "{00001266-0000-0010-8000-00AA006D2EA4}"
2258 Set peAutoCreate to acNoAutoCreate
2259 End_Procedure
2260End_Class
2261
2262// CLSID: {0000150C-0000-0010-8000-00AA006D2EA4}
2263Class cCom_Parameter is a Mixin
2264
2265 { MethodType=Property DesignTime=False }
2266 Function ComProperties Returns Variant
2267 Handle hDispatchDriver
2268 Variant retVal
2269 Get phDispatchDriver to hDispatchDriver
2270 Get InvokeComMethod of hDispatchDriver 500 OLE_VT_DISPATCH to retVal
2271 Function_Return retVal
2272 End_Function
2273
2274 { MethodType=Property DesignTime=False }
2275 Function ComName Returns String
2276 Handle hDispatchDriver
2277 String retVal
2278 Get phDispatchDriver to hDispatchDriver
2279 Get InvokeComMethod of hDispatchDriver 1 OLE_VT_BSTR to retVal
2280 Function_Return retVal
2281 End_Function
2282
2283 { MethodType=Property DesignTime=False }
2284 Procedure Set ComName String value
2285 Handle hDispatchDriver
2286 Get phDispatchDriver to hDispatchDriver
2287 Send PrepareParams to hDispatchDriver 1
2288 Set ComProperty of hDispatchDriver 1 OLE_VT_BSTR to value
2289 End_Procedure
2290
2291 { MethodType=Property DesignTime=False }
2292 Function ComValue Returns Variant
2293 Handle hDispatchDriver
2294 Variant retVal
2295 Get phDispatchDriver to hDispatchDriver
2296 Get InvokeComMethod of hDispatchDriver 0 OLE_VT_VARIANT to retVal
2297 Function_Return retVal
2298 End_Function
2299
2300 { MethodType=Property DesignTime=False }
2301 Procedure Set ComValue Variant value
2302 Handle hDispatchDriver
2303 Get phDispatchDriver to hDispatchDriver
2304 Send PrepareParams to hDispatchDriver 1
2305 Set ComProperty of hDispatchDriver 0 OLE_VT_VARIANT to value
2306 End_Procedure
2307
2308 { MethodType=Property DesignTime=False }
2309 Function ComType Returns OLEDataTypeEnum
2310 Handle hDispatchDriver
2311 OLEDataTypeEnum retVal
2312 Get phDispatchDriver to hDispatchDriver
2313 Get InvokeComMethod of hDispatchDriver 2 OLE_VT_I4 to retVal
2314 Function_Return retVal
2315 End_Function
2316
2317 { MethodType=Property DesignTime=False }
2318 Procedure Set ComType OLEDataTypeEnum value
2319 Handle hDispatchDriver
2320 Get phDispatchDriver to hDispatchDriver
2321 Send PrepareParams to hDispatchDriver 1
2322 Set ComProperty of hDispatchDriver 2 OLE_VT_I4 to value
2323 End_Procedure
2324
2325 { MethodType=Property DesignTime=False }
2326 Procedure Set ComDirection OLEParameterDirectionEnum value
2327 Handle hDispatchDriver
2328 Get phDispatchDriver to hDispatchDriver
2329 Send PrepareParams to hDispatchDriver 1
2330 Set ComProperty of hDispatchDriver 3 OLE_VT_I4 to value
2331 End_Procedure
2332
2333 { MethodType=Property DesignTime=False }
2334 Function ComDirection Returns OLEParameterDirectionEnum
2335 Handle hDispatchDriver
2336 OLEParameterDirectionEnum retVal
2337 Get phDispatchDriver to hDispatchDriver
2338 Get InvokeComMethod of hDispatchDriver 3 OLE_VT_I4 to retVal
2339 Function_Return retVal
2340 End_Function
2341
2342 { MethodType=Property DesignTime=False }
2343 Procedure Set ComPrecision UChar value
2344 Handle hDispatchDriver
2345 Get phDispatchDriver to hDispatchDriver
2346 Send PrepareParams to hDispatchDriver 1
2347 Set ComProperty of hDispatchDriver 4 OLE_VT_UI1 to value
2348 End_Procedure
2349
2350 { MethodType=Property DesignTime=False }
2351 Function ComPrecision Returns UChar
2352 Handle hDispatchDriver
2353 UChar retVal
2354 Get phDispatchDriver to hDispatchDriver
2355 Get InvokeComMethod of hDispatchDriver 4 OLE_VT_UI1 to retVal
2356 Function_Return retVal
2357 End_Function
2358
2359 { MethodType=Property DesignTime=False }
2360 Procedure Set ComNumericScale UChar value
2361 Handle hDispatchDriver
2362 Get phDispatchDriver to hDispatchDriver
2363 Send PrepareParams to hDispatchDriver 1
2364 Set ComProperty of hDispatchDriver 5 OLE_VT_UI1 to value
2365 End_Procedure
2366
2367 { MethodType=Property DesignTime=False }
2368 Function ComNumericScale Returns UChar
2369 Handle hDispatchDriver
2370 UChar retVal
2371 Get phDispatchDriver to hDispatchDriver
2372 Get InvokeComMethod of hDispatchDriver 5 OLE_VT_UI1 to retVal
2373 Function_Return retVal
2374 End_Function
2375
2376 { MethodType=Property DesignTime=False }
2377 Procedure Set ComSize Integer value
2378 Handle hDispatchDriver
2379 Get phDispatchDriver to hDispatchDriver
2380 Send PrepareParams to hDispatchDriver 1
2381 Set ComProperty of hDispatchDriver 6 OLE_VT_I4 to value
2382 End_Procedure
2383
2384 { MethodType=Property DesignTime=False }
2385 Function ComSize Returns Integer
2386 Handle hDispatchDriver
2387 Integer retVal
2388 Get phDispatchDriver to hDispatchDriver
2389 Get InvokeComMethod of hDispatchDriver 6 OLE_VT_I4 to retVal
2390 Function_Return retVal
2391 End_Function
2392
2393 Procedure ComAppendChunk Variant llVal
2394 Handle hDispatchDriver
2395 Get phDispatchDriver to hDispatchDriver
2396 Send PrepareParams to hDispatchDriver 1
2397 Send DefineParam to hDispatchDriver OLE_VT_VARIANT llVal
2398 Send InvokeComMethod to hDispatchDriver 7 OLE_VT_VOID
2399 End_Procedure
2400
2401 { MethodType=Property DesignTime=False }
2402 Function ComAttributes Returns Integer
2403 Handle hDispatchDriver
2404 Integer retVal
2405 Get phDispatchDriver to hDispatchDriver
2406 Get InvokeComMethod of hDispatchDriver 8 OLE_VT_I4 to retVal
2407 Function_Return retVal
2408 End_Function
2409
2410 { MethodType=Property DesignTime=False }
2411 Procedure Set ComAttributes Integer value
2412 Handle hDispatchDriver
2413 Get phDispatchDriver to hDispatchDriver
2414 Send PrepareParams to hDispatchDriver 1
2415 Set ComProperty of hDispatchDriver 8 OLE_VT_I4 to value
2416 End_Procedure
2417End_Class
2418
2419// CoClass
2420// ProgID: ADODB.Parameter.6.0
2421// CLSID: {0000050B-0000-0010-8000-00AA006D2EA4}
2422Class cComParameter is a cComAutomationObject
2423 Import_Class_Protocol cCom_Parameter
2424
2425 Procedure Construct_Object
2426 Forward Send Construct_Object
2427 Set psProgID to "{0000050B-0000-0010-8000-00AA006D2EA4}"
2428 Set peAutoCreate to acNoAutoCreate
2429 End_Procedure
2430End_Class
2431
2432// CLSID: {00000512-0000-0010-8000-00AA006D2EA4}
2433Class cCom_Collection is a cComAutomationObject
2434
2435 { MethodType=Property DesignTime=False }
2436 Function ComCount Returns Integer
2437 Handle hDispatchDriver
2438 Integer retVal
2439 Get phDispatchDriver to hDispatchDriver
2440 Get InvokeComMethod of hDispatchDriver 1 OLE_VT_I4 to retVal
2441 Function_Return retVal
2442 End_Function
2443
2444 Function Com_NewEnum Returns Variant
2445 Handle hDispatchDriver
2446 Variant retVal
2447 Get phDispatchDriver to hDispatchDriver
2448 Get InvokeComMethod of hDispatchDriver -4 OLE_VT_UNKNOWN to retVal
2449 Function_Return retVal
2450 End_Function
2451
2452 Procedure ComRefresh
2453 Handle hDispatchDriver
2454 Get phDispatchDriver to hDispatchDriver
2455 Send InvokeComMethod to hDispatchDriver 2 OLE_VT_VOID
2456 End_Procedure
2457End_Class
2458
2459// CLSID: {00000513-0000-0010-8000-00AA006D2EA4}
2460Class cCom_DynaCollection is a cComAutomationObject
2461
2462 { MethodType=Property DesignTime=False }
2463 Function ComCount Returns Integer
2464 Handle hDispatchDriver
2465 Integer retVal
2466 Get phDispatchDriver to hDispatchDriver
2467 Get InvokeComMethod of hDispatchDriver 1 OLE_VT_I4 to retVal
2468 Function_Return retVal
2469 End_Function
2470
2471 Function Com_NewEnum Returns Variant
2472 Handle hDispatchDriver
2473 Variant retVal
2474 Get phDispatchDriver to hDispatchDriver
2475 Get InvokeComMethod of hDispatchDriver -4 OLE_VT_UNKNOWN to retVal
2476 Function_Return retVal
2477 End_Function
2478
2479 Procedure ComRefresh
2480 Handle hDispatchDriver
2481 Get phDispatchDriver to hDispatchDriver
2482 Send InvokeComMethod to hDispatchDriver 2 OLE_VT_VOID
2483 End_Procedure
2484
2485 Procedure ComAppend Variant llObject
2486 Handle hDispatchDriver
2487 Get phDispatchDriver to hDispatchDriver
2488 Send PrepareParams to hDispatchDriver 1
2489 Send DefineParam to hDispatchDriver OLE_VT_DISPATCH llObject
2490 Send InvokeComMethod to hDispatchDriver 1610809344 OLE_VT_VOID
2491 End_Procedure
2492
2493 Procedure ComDelete Variant llIndex
2494 Handle hDispatchDriver
2495 Get phDispatchDriver to hDispatchDriver
2496 Send PrepareParams to hDispatchDriver 1
2497 Send DefineParam to hDispatchDriver OLE_VT_VARIANT llIndex
2498 Send InvokeComMethod to hDispatchDriver 1610809345 OLE_VT_VOID
2499 End_Procedure
2500End_Class
2501
2502// CLSID: {00000534-0000-0010-8000-00AA006D2EA4}
2503Class cCom_ADO is a cComAutomationObject
2504
2505 { MethodType=Property DesignTime=False }
2506 Function ComProperties Returns Variant
2507 Handle hDispatchDriver
2508 Variant retVal
2509 Get phDispatchDriver to hDispatchDriver
2510 Get InvokeComMethod of hDispatchDriver 500 OLE_VT_DISPATCH to retVal
2511 Function_Return retVal
2512 End_Function
2513End_Class
2514
2515// CLSID: {00000504-0000-0010-8000-00AA006D2EA4}
2516Class cComProperties is a cComAutomationObject
2517
2518 { MethodType=Property DesignTime=False }
2519 Function ComCount Returns Integer
2520 Handle hDispatchDriver
2521 Integer retVal
2522 Get phDispatchDriver to hDispatchDriver
2523 Get InvokeComMethod of hDispatchDriver 1 OLE_VT_I4 to retVal
2524 Function_Return retVal
2525 End_Function
2526
2527 Function Com_NewEnum Returns Variant
2528 Handle hDispatchDriver
2529 Variant retVal
2530 Get phDispatchDriver to hDispatchDriver
2531 Get InvokeComMethod of hDispatchDriver -4 OLE_VT_UNKNOWN to retVal
2532 Function_Return retVal
2533 End_Function
2534
2535 Procedure ComRefresh
2536 Handle hDispatchDriver
2537 Get phDispatchDriver to hDispatchDriver
2538 Send InvokeComMethod to hDispatchDriver 2 OLE_VT_VOID
2539 End_Procedure
2540
2541 { MethodType=Property DesignTime=False }
2542 Function ComItem Variant llIndex Returns Variant
2543 Handle hDispatchDriver
2544 Variant retVal
2545 Get phDispatchDriver to hDispatchDriver
2546 Send PrepareParams to hDispatchDriver 1
2547 Send DefineParam to hDispatchDriver OLE_VT_VARIANT llIndex
2548 Get InvokeComMethod of hDispatchDriver 0 OLE_VT_DISPATCH to retVal
2549 Function_Return retVal
2550 End_Function
2551End_Class
2552
2553// CLSID: {00000503-0000-0010-8000-00AA006D2EA4}
2554Class cComProperty is a cComAutomationObject
2555
2556 { MethodType=Property DesignTime=False }
2557 Function ComValue Returns Variant
2558 Handle hDispatchDriver
2559 Variant retVal
2560 Get phDispatchDriver to hDispatchDriver
2561 Get InvokeComMethod of hDispatchDriver 0 OLE_VT_VARIANT to retVal
2562 Function_Return retVal
2563 End_Function
2564
2565 { MethodType=Property DesignTime=False }
2566 Procedure Set ComValue Variant value
2567 Handle hDispatchDriver
2568 Get phDispatchDriver to hDispatchDriver
2569 Send PrepareParams to hDispatchDriver 1
2570 Set ComProperty of hDispatchDriver 0 OLE_VT_VARIANT to value
2571 End_Procedure
2572
2573 { MethodType=Property DesignTime=False }
2574 Function ComName Returns String
2575 Handle hDispatchDriver
2576 String retVal
2577 Get phDispatchDriver to hDispatchDriver
2578 Get InvokeComMethod of hDispatchDriver 1610743810 OLE_VT_BSTR to retVal
2579 Function_Return retVal
2580 End_Function
2581
2582 { MethodType=Property DesignTime=False }
2583 Function ComType Returns OLEDataTypeEnum
2584 Handle hDispatchDriver
2585 OLEDataTypeEnum retVal
2586 Get phDispatchDriver to hDispatchDriver
2587 Get InvokeComMethod of hDispatchDriver 1610743811 OLE_VT_I4 to retVal
2588 Function_Return retVal
2589 End_Function
2590
2591 { MethodType=Property DesignTime=False }
2592 Function ComAttributes Returns Integer
2593 Handle hDispatchDriver
2594 Integer retVal
2595 Get phDispatchDriver to hDispatchDriver
2596 Get InvokeComMethod of hDispatchDriver 1610743812 OLE_VT_I4 to retVal
2597 Function_Return retVal
2598 End_Function
2599
2600 { MethodType=Property DesignTime=False }
2601 Procedure Set ComAttributes Integer value
2602 Handle hDispatchDriver
2603 Get phDispatchDriver to hDispatchDriver
2604 Send PrepareParams to hDispatchDriver 1
2605 Set ComProperty of hDispatchDriver 1610743812 OLE_VT_I4 to value
2606 End_Procedure
2607End_Class
2608
2609// CLSID: {00000500-0000-0010-8000-00AA006D2EA4}
2610Class cComError is a cComAutomationObject
2611
2612 { MethodType=Property DesignTime=False }
2613 Function ComNumber Returns Integer
2614 Handle hDispatchDriver
2615 Integer retVal
2616 Get phDispatchDriver to hDispatchDriver
2617 Get InvokeComMethod of hDispatchDriver 1 OLE_VT_I4 to retVal
2618 Function_Return retVal
2619 End_Function
2620
2621 { MethodType=Property DesignTime=False }
2622 Function ComSource Returns String
2623 Handle hDispatchDriver
2624 String retVal
2625 Get phDispatchDriver to hDispatchDriver
2626 Get InvokeComMethod of hDispatchDriver 2 OLE_VT_BSTR to retVal
2627 Function_Return retVal
2628 End_Function
2629
2630 { MethodType=Property DesignTime=False }
2631 Function ComDescription Returns String
2632 Handle hDispatchDriver
2633 String retVal
2634 Get phDispatchDriver to hDispatchDriver
2635 Get InvokeComMethod of hDispatchDriver 0 OLE_VT_BSTR to retVal
2636 Function_Return retVal
2637 End_Function
2638
2639 { MethodType=Property DesignTime=False }
2640 Function ComHelpFile Returns String
2641 Handle hDispatchDriver
2642 String retVal
2643 Get phDispatchDriver to hDispatchDriver
2644 Get InvokeComMethod of hDispatchDriver 3 OLE_VT_BSTR to retVal
2645 Function_Return retVal
2646 End_Function
2647
2648 { MethodType=Property DesignTime=False }
2649 Function ComHelpContext Returns Integer
2650 Handle hDispatchDriver
2651 Integer retVal
2652 Get phDispatchDriver to hDispatchDriver
2653 Get InvokeComMethod of hDispatchDriver 4 OLE_VT_I4 to retVal
2654 Function_Return retVal
2655 End_Function
2656
2657 { MethodType=Property DesignTime=False }
2658 Function ComSQLState Returns String
2659 Handle hDispatchDriver
2660 String retVal
2661 Get phDispatchDriver to hDispatchDriver
2662 Get InvokeComMethod of hDispatchDriver 5 OLE_VT_BSTR to retVal
2663 Function_Return retVal
2664 End_Function
2665
2666 { MethodType=Property DesignTime=False }
2667 Function ComNativeError Returns Integer
2668 Handle hDispatchDriver
2669 Integer retVal
2670 Get phDispatchDriver to hDispatchDriver
2671 Get InvokeComMethod of hDispatchDriver 6 OLE_VT_I4 to retVal
2672 Function_Return retVal
2673 End_Function
2674End_Class
2675
2676// CLSID: {00000501-0000-0010-8000-00AA006D2EA4}
2677Class cComErrors is a cComAutomationObject
2678
2679 { MethodType=Property DesignTime=False }
2680 Function ComCount Returns Integer
2681 Handle hDispatchDriver
2682 Integer retVal
2683 Get phDispatchDriver to hDispatchDriver
2684 Get InvokeComMethod of hDispatchDriver 1 OLE_VT_I4 to retVal
2685 Function_Return retVal
2686 End_Function
2687
2688 Function Com_NewEnum Returns Variant
2689 Handle hDispatchDriver
2690 Variant retVal
2691 Get phDispatchDriver to hDispatchDriver
2692 Get InvokeComMethod of hDispatchDriver -4 OLE_VT_UNKNOWN to retVal
2693 Function_Return retVal
2694 End_Function
2695
2696 Procedure ComRefresh
2697 Handle hDispatchDriver
2698 Get phDispatchDriver to hDispatchDriver
2699 Send InvokeComMethod to hDispatchDriver 2 OLE_VT_VOID
2700 End_Procedure
2701
2702 { MethodType=Property DesignTime=False }
2703 Function ComItem Variant llIndex Returns Variant
2704 Handle hDispatchDriver
2705 Variant retVal
2706 Get phDispatchDriver to hDispatchDriver
2707 Send PrepareParams to hDispatchDriver 1
2708 Send DefineParam to hDispatchDriver OLE_VT_VARIANT llIndex
2709 Get InvokeComMethod of hDispatchDriver 0 OLE_VT_DISPATCH to retVal
2710 Function_Return retVal
2711 End_Function
2712
2713 Procedure ComClear
2714 Handle hDispatchDriver
2715 Get phDispatchDriver to hDispatchDriver
2716 Send InvokeComMethod to hDispatchDriver 1610809345 OLE_VT_VOID
2717 End_Procedure
2718End_Class
2719
2720// CLSID: {00001564-0000-0010-8000-00AA006D2EA4}
2721Class cComFields is a cComAutomationObject
2722
2723 { MethodType=Property DesignTime=False }
2724 Function ComCount Returns Integer
2725 Handle hDispatchDriver
2726 Integer retVal
2727 Get phDispatchDriver to hDispatchDriver
2728 Get InvokeComMethod of hDispatchDriver 1 OLE_VT_I4 to retVal
2729 Function_Return retVal
2730 End_Function
2731
2732 Function Com_NewEnum Returns Variant
2733 Handle hDispatchDriver
2734 Variant retVal
2735 Get phDispatchDriver to hDispatchDriver
2736 Get InvokeComMethod of hDispatchDriver -4 OLE_VT_UNKNOWN to retVal
2737 Function_Return retVal
2738 End_Function
2739
2740 Procedure ComRefresh
2741 Handle hDispatchDriver
2742 Get phDispatchDriver to hDispatchDriver
2743 Send InvokeComMethod to hDispatchDriver 2 OLE_VT_VOID
2744 End_Procedure
2745
2746 { MethodType=Property DesignTime=False }
2747 Function ComItem Variant llIndex Returns Variant
2748 Handle hDispatchDriver
2749 Variant retVal
2750 Get phDispatchDriver to hDispatchDriver
2751 Send PrepareParams to hDispatchDriver 1
2752 Send DefineParam to hDispatchDriver OLE_VT_VARIANT llIndex
2753 Get InvokeComMethod of hDispatchDriver 0 OLE_VT_DISPATCH to retVal
2754 Function_Return retVal
2755 End_Function
2756
2757 Procedure ComDelete Variant llIndex
2758 Handle hDispatchDriver
2759 Get phDispatchDriver to hDispatchDriver
2760 Send PrepareParams to hDispatchDriver 1
2761 Send DefineParam to hDispatchDriver OLE_VT_VARIANT llIndex
2762 Send InvokeComMethod to hDispatchDriver 4 OLE_VT_VOID
2763 End_Procedure
2764
2765 Procedure ComAppend String llName OLEDataTypeEnum llType Integer llDefinedSize OLEFieldAttributeEnum llAttrib // Variant llFieldValue
2766 Handle hDispatchDriver
2767 Get phDispatchDriver to hDispatchDriver
2768 Send PrepareParams to hDispatchDriver 5
2769 Send DefineParam to hDispatchDriver OLE_VT_BSTR llName
2770 Send DefineParam to hDispatchDriver OLE_VT_I4 llType
2771 Send DefineParam to hDispatchDriver OLE_VT_I4 llDefinedSize
2772 Send DefineParam to hDispatchDriver OLE_VT_I4 llAttrib
2773 Send DefineParam to hDispatchDriver OLE_VT_Null
2774 Send InvokeComMethod to hDispatchDriver 3 OLE_VT_VOID
2775 End_Procedure
2776
2777 Procedure ComUpdate
2778 Handle hDispatchDriver
2779 Get phDispatchDriver to hDispatchDriver
2780 Send InvokeComMethod to hDispatchDriver 5 OLE_VT_VOID
2781 End_Procedure
2782
2783 Procedure ComResync OLEResyncEnum llResyncValues
2784 Handle hDispatchDriver
2785 Get phDispatchDriver to hDispatchDriver
2786 Send PrepareParams to hDispatchDriver 1
2787 Send DefineParam to hDispatchDriver OLE_VT_I4 llResyncValues
2788 Send InvokeComMethod to hDispatchDriver 6 OLE_VT_VOID
2789 End_Procedure
2790
2791 Procedure ComCancelUpdate
2792 Handle hDispatchDriver
2793 Get phDispatchDriver to hDispatchDriver
2794 Send InvokeComMethod to hDispatchDriver 7 OLE_VT_VOID
2795 End_Procedure
2796End_Class
2797
2798// CLSID: {00001569-0000-0010-8000-00AA006D2EA4}
2799Class cComField is a cComAutomationObject
2800
2801 { MethodType=Property DesignTime=False }
2802 Function ComProperties Returns Variant
2803 Handle hDispatchDriver
2804 Variant retVal
2805 Get phDispatchDriver to hDispatchDriver
2806 Get InvokeComMethod of hDispatchDriver 500 OLE_VT_DISPATCH to retVal
2807 Function_Return retVal
2808 End_Function
2809
2810 { MethodType=Property DesignTime=False }
2811 Function ComActualSize Returns Integer
2812 Handle hDispatchDriver
2813 Integer retVal
2814 Get phDispatchDriver to hDispatchDriver
2815 Get InvokeComMethod of hDispatchDriver 1109 OLE_VT_I4 to retVal
2816 Function_Return retVal
2817 End_Function
2818
2819 { MethodType=Property DesignTime=False }
2820 Function ComAttributes Returns Integer
2821 Handle hDispatchDriver
2822 Integer retVal
2823 Get phDispatchDriver to hDispatchDriver
2824 Get InvokeComMethod of hDispatchDriver 1114 OLE_VT_I4 to retVal
2825 Function_Return retVal
2826 End_Function
2827
2828 { MethodType=Property DesignTime=False }
2829 Function ComDefinedSize Returns Integer
2830 Handle hDispatchDriver
2831 Integer retVal
2832 Get phDispatchDriver to hDispatchDriver
2833 Get InvokeComMethod of hDispatchDriver 1103 OLE_VT_I4 to retVal
2834 Function_Return retVal
2835 End_Function
2836
2837 { MethodType=Property DesignTime=False }
2838 Function ComName Returns String
2839 Handle hDispatchDriver
2840 String retVal
2841 Get phDispatchDriver to hDispatchDriver
2842 Get InvokeComMethod of hDispatchDriver 1100 OLE_VT_BSTR to retVal
2843 Function_Return retVal
2844 End_Function
2845
2846 { MethodType=Property DesignTime=False }
2847 Function ComType Returns OLEDataTypeEnum
2848 Handle hDispatchDriver
2849 OLEDataTypeEnum retVal
2850 Get phDispatchDriver to hDispatchDriver
2851 Get InvokeComMethod of hDispatchDriver 1102 OLE_VT_I4 to retVal
2852 Function_Return retVal
2853 End_Function
2854
2855 { MethodType=Property DesignTime=False }
2856 Function ComValue Returns Variant
2857 Handle hDispatchDriver
2858 Variant retVal
2859 Get phDispatchDriver to hDispatchDriver
2860 Get InvokeComMethod of hDispatchDriver 0 OLE_VT_VARIANT to retVal
2861 Function_Return retVal
2862 End_Function
2863
2864 { MethodType=Property DesignTime=False }
2865 Procedure Set ComValue Variant value
2866 Handle hDispatchDriver
2867 Get phDispatchDriver to hDispatchDriver
2868 Send PrepareParams to hDispatchDriver 1
2869 Set ComProperty of hDispatchDriver 0 OLE_VT_VARIANT to value
2870 End_Procedure
2871
2872 { MethodType=Property DesignTime=False }
2873 Function ComPrecision Returns UChar
2874 Handle hDispatchDriver
2875 UChar retVal
2876 Get phDispatchDriver to hDispatchDriver
2877 Get InvokeComMethod of hDispatchDriver 1112 OLE_VT_UI1 to retVal
2878 Function_Return retVal
2879 End_Function
2880
2881 { MethodType=Property DesignTime=False }
2882 Function ComNumericScale Returns UChar
2883 Handle hDispatchDriver
2884 UChar retVal
2885 Get phDispatchDriver to hDispatchDriver
2886 Get InvokeComMethod of hDispatchDriver 1113 OLE_VT_UI1 to retVal
2887 Function_Return retVal
2888 End_Function
2889
2890 Procedure ComAppendChunk Variant llData
2891 Handle hDispatchDriver
2892 Get phDispatchDriver to hDispatchDriver
2893 Send PrepareParams to hDispatchDriver 1
2894 Send DefineParam to hDispatchDriver OLE_VT_VARIANT llData
2895 Send InvokeComMethod to hDispatchDriver 1107 OLE_VT_VOID
2896 End_Procedure
2897
2898 Function ComGetChunk Integer llLength Returns Variant
2899 Handle hDispatchDriver
2900 Variant retVal
2901 Get phDispatchDriver to hDispatchDriver
2902 Send PrepareParams to hDispatchDriver 1
2903 Send DefineParam to hDispatchDriver OLE_VT_I4 llLength
2904 Get InvokeComMethod of hDispatchDriver 1108 OLE_VT_VARIANT to retVal
2905 Function_Return retVal
2906 End_Function
2907
2908 { MethodType=Property DesignTime=False }
2909 Function ComOriginalValue Returns Variant
2910 Handle hDispatchDriver
2911 Variant retVal
2912 Get phDispatchDriver to hDispatchDriver
2913 Get InvokeComMethod of hDispatchDriver 1104 OLE_VT_VARIANT to retVal
2914 Function_Return retVal
2915 End_Function
2916
2917 { MethodType=Property DesignTime=False }
2918 Function ComUnderlyingValue Returns Variant
2919 Handle hDispatchDriver
2920 Variant retVal
2921 Get phDispatchDriver to hDispatchDriver
2922 Get InvokeComMethod of hDispatchDriver 1105 OLE_VT_VARIANT to retVal
2923 Function_Return retVal
2924 End_Function
2925
2926 { MethodType=Property DesignTime=False }
2927 Function ComDataFormat Returns Variant
2928 Handle hDispatchDriver
2929 Variant retVal
2930 Get phDispatchDriver to hDispatchDriver
2931 Get InvokeComMethod of hDispatchDriver 1115 OLE_VT_UNKNOWN to retVal
2932 Function_Return retVal
2933 End_Function
2934
2935 { MethodType=Property DesignTime=False }
2936 Procedure Set ComDataFormat Variant value
2937 Handle hDispatchDriver
2938 Get phDispatchDriver to hDispatchDriver
2939 Send PrepareParams to hDispatchDriver 1
2940 Set ComProperty of hDispatchDriver 1115 OLE_VT_UNKNOWN to value
2941 End_Procedure
2942
2943 { MethodType=Property DesignTime=False }
2944 Procedure Set ComPrecision UChar value
2945 Handle hDispatchDriver
2946 Get phDispatchDriver to hDispatchDriver
2947 Send PrepareParams to hDispatchDriver 1
2948 Set ComProperty of hDispatchDriver 1112 OLE_VT_UI1 to value
2949 End_Procedure
2950
2951 { MethodType=Property DesignTime=False }
2952 Procedure Set ComNumericScale UChar value
2953 Handle hDispatchDriver
2954 Get phDispatchDriver to hDispatchDriver
2955 Send PrepareParams to hDispatchDriver 1
2956 Set ComProperty of hDispatchDriver 1113 OLE_VT_UI1 to value
2957 End_Procedure
2958
2959 { MethodType=Property DesignTime=False }
2960 Procedure Set ComType OLEDataTypeEnum value
2961 Handle hDispatchDriver
2962 Get phDispatchDriver to hDispatchDriver
2963 Send PrepareParams to hDispatchDriver 1
2964 Set ComProperty of hDispatchDriver 1102 OLE_VT_I4 to value
2965 End_Procedure
2966
2967 { MethodType=Property DesignTime=False }
2968 Procedure Set ComDefinedSize Integer value
2969 Handle hDispatchDriver
2970 Get phDispatchDriver to hDispatchDriver
2971 Send PrepareParams to hDispatchDriver 1
2972 Set ComProperty of hDispatchDriver 1103 OLE_VT_I4 to value
2973 End_Procedure
2974
2975 { MethodType=Property DesignTime=False }
2976 Procedure Set ComAttributes Integer value
2977 Handle hDispatchDriver
2978 Get phDispatchDriver to hDispatchDriver
2979 Send PrepareParams to hDispatchDriver 1
2980 Set ComProperty of hDispatchDriver 1114 OLE_VT_I4 to value
2981 End_Procedure
2982
2983 { MethodType=Property DesignTime=False }
2984 Function ComStatus Returns Integer
2985 Handle hDispatchDriver
2986 Integer retVal
2987 Get phDispatchDriver to hDispatchDriver
2988 Get InvokeComMethod of hDispatchDriver 1116 OLE_VT_I4 to retVal
2989 Function_Return retVal
2990 End_Function
2991End_Class
2992
2993// CLSID: {0000150D-0000-0010-8000-00AA006D2EA4}
2994Class cComParameters is a cComAutomationObject
2995
2996 { MethodType=Property DesignTime=False }
2997 Function ComCount Returns Integer
2998 Handle hDispatchDriver
2999 Integer retVal
3000 Get phDispatchDriver to hDispatchDriver
3001 Get InvokeComMethod of hDispatchDriver 1 OLE_VT_I4 to retVal
3002 Function_Return retVal
3003 End_Function
3004
3005 Function Com_NewEnum Returns Variant
3006 Handle hDispatchDriver
3007 Variant retVal
3008 Get phDispatchDriver to hDispatchDriver
3009 Get InvokeComMethod of hDispatchDriver -4 OLE_VT_UNKNOWN to retVal
3010 Function_Return retVal
3011 End_Function
3012
3013 Procedure ComRefresh
3014 Handle hDispatchDriver
3015 Get phDispatchDriver to hDispatchDriver
3016 Send InvokeComMethod to hDispatchDriver 2 OLE_VT_VOID
3017 End_Procedure
3018
3019 Procedure ComAppend Variant llObject
3020 Handle hDispatchDriver
3021 Get phDispatchDriver to hDispatchDriver
3022 Send PrepareParams to hDispatchDriver 1
3023 Send DefineParam to hDispatchDriver OLE_VT_DISPATCH llObject
3024 Send InvokeComMethod to hDispatchDriver 1610809344 OLE_VT_VOID
3025 End_Procedure
3026
3027 Procedure ComDelete Variant llIndex
3028 Handle hDispatchDriver
3029 Get phDispatchDriver to hDispatchDriver
3030 Send PrepareParams to hDispatchDriver 1
3031 Send DefineParam to hDispatchDriver OLE_VT_VARIANT llIndex
3032 Send InvokeComMethod to hDispatchDriver 1610809345 OLE_VT_VOID
3033 End_Procedure
3034
3035 { MethodType=Property DesignTime=False }
3036 Function ComItem Variant llIndex Returns Variant
3037 Handle hDispatchDriver
3038 Variant retVal
3039 Get phDispatchDriver to hDispatchDriver
3040 Send PrepareParams to hDispatchDriver 1
3041 Send DefineParam to hDispatchDriver OLE_VT_VARIANT llIndex
3042 Get InvokeComMethod of hDispatchDriver 0 OLE_VT_DISPATCH to retVal
3043 Function_Return retVal
3044 End_Function
3045End_Class