第七章(简化的)部例子.docVIP

第七章(简化的)全部例子 例7-3，--ADOVBS.INC也可换成文件名ADOVBS.TXT包含时也使用这个名字。 ============================= % Const adOpenForwardOnly = 0 Const adOpenKeyset = 1 Const adOpenDynamic = 2 Const adOpenStatic = 3 CursorOptionEnum Values Const adHoldRecords = Const adMovePrevious = Const adAddNew = Const adDelete = Const adUpdate = Const adBookmark = Const adApproxPosition = Const adUpdateBatch = Const adResync = Const adNotify = LockTypeEnum Values Const adLockReadfnly = 1 Const adLockPessimistic = 2 Const adLockOptimistic = 3 Const adLockBatchOptimistic = 4 ExecuteOptionEnum Values Const adRunAsync = ObjectStateEnum Values Const adStateClosed = Const adStateOpen = Const adStateConnecting = Const adStateExecuting = CursorLocationEnum Values Const adUseServer = 2 Const adUseClient = 3 DataTypeEnum Values Const adEmpty = 0 Const adTinyInt = 16 Const adSmallInt = 2 Const adInteger = 3 Const adBigInt = 20 Const adUnsignedTinyInt = 17 Const adUnsignedSmallInt = 18 Const adUnsignedInt = 19 Const adUnsignedBigInt = 21 Const adSingle = 4 Const adDouble = 5 Const adCurrency = 6 Const adDecimal = 14 Const adNumeric = 131 Const adBoolean = 11 Const adEnrror = 10 Const adUserDefined = 132 Const adVariant = 12 Const adIDispatch = 9 Const adIUnknown = 13 Const adGUID = 72 Const adDate = 7 Const adDBDate = 133 Const adDBTime = 134 Const adDBTimeStamp = 135 Const adBSTR = 8 Const adChar = 129 Const adVarChar = 200 Const adLongVarChar = 201 Const adWChar = 130 Const adVarWChar = 202 Const adLongVarWChar = 203 Const adBinary = 128 Const adVarBinary = 204 Const adLongVarBinary = 205 EditModeEnum Values Const adEditNone = H0000 Const adEditInProgress = H0001 Const adEditAdd = H0002 Const adEditDelete = H0004 SearchDirection Values Const adSearchForward = 1 Const adSearchBackward = -1 ConnectPromptEnum Values Const adPromptAlways = 1 Const adPromp