moddata.bas

Fix通用外接报表程序,读取fix中的实时数据 生成相关报表曲线

Attribute VB_Name = "ModData"
'--------------------------------------------------------------------
'
'ADO对象的常量定义
'
'--------------------------------------------------------------------

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

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

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

'---- ExecuteOptionEnum Values ----
Const adAsyncExecute = &H10
Const adAsyncFetch = &H20
Const adAsyncFetchNonBlocking = &H40
Const adExecuteNoRecords = &H80

'---- ConnectOptionEnum Values ----
Const adAsyncConnect = &H10

'---- ObjectStateEnum Values ----
Const adStateClosed = &H0
Const adStateOpen = &H1
Const adStateConnecting = &H2
Const adStateExecuting = &H4
Const adStateFetching = &H8

'---- 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 adError = 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
Const adChapter = 136
Const adFileTime = 64
Const adPropVariant = 138
Const adVarNumeric = 139
Const adArray = &H2000

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

'---- EditModeEnum Values ----
Const adEditNone = &H0
Const adEditInProgress = &H1
Const adEditAdd = &H2
Const adEditDelete = &H4

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

'---- GetRowsOptionEnum Values ----
Const adGetRowsRest = -1

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

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

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

'---- AffectEnum Values ----
Const adAffectCurrent = 1
Const adAffectGroup = 2
Const adAffectAllChapters = 4

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

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

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

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

'---- PersistFormatEnum Values ----
Const adPersistADTG = 0
Const adPersistXML = 1

'---- StringFormatEnum Values ----
Const adClipString = 2

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

'---- ConnectModeEnum Values ----
Const adModeUnknown = 0
Const adModeRead = 1
Const adModeWrite = 2
Const adModeReadWrite = 3
Const adModeShareDenyRead = 4
Const adModeShareDenyWrite = 8
Const adModeShareExclusive = &HC
Const adModeShareDenyNone = &H10
Const adModeRecursive = &H400000

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

'---- RecordOpenOptionsEnum Values ----
Const adOpenRecordUnspecified = -1
Const adOpenSource = &H800000
Const adOpenAsync = &H1000
Const adDelayFetchStream = &H4000
Const adDelayFetchFields = &H8000

'---- IsolationLevelEnum Values ----
Const adXactUnspecified = &HFFFFFFFF
Const adXactChaos = &H10
Const adXactReadUncommitted = &H100
Const adXactBrowse = &H100
Const adXactCursorStability = &H1000
Const adXactReadCommitted = &H1000
Const adXactRepeatableRead = &H10000
Const adXactSerializable = &H100000
Const adXactIsolated = &H100000

'---- XactAttributeEnum Values ----
Const adXactCommitRetaining = &H20000
Const adXactAbortRetaining = &H40000

'---- PropertyAttributesEnum Values ----
Const adPropNotSupported = &H0
Const adPropRequired = &H1
Const adPropOptional = &H2
Const adPropRead = &H200
Const adPropWrite = &H400

'---- ErrorValueEnum Values ----
Const adErrProviderFailed = &HBB8
Const adErrInvalidArgument = &HBB9
Const adErrOpeningFile = &HBBA
Const adErrReadFile = &HBBB
Const adErrWriteFile = &HBBC
Const adErrNoCurrentRecord = &HBCD
Const adErrIllegalOperation = &HC93
Const adErrCantChangeProvider = &HC94
Const adErrInTransaction = &HCAE
Const adErrFeatureNotAvailable = &HCB3
Const adErrItemNotFound = &HCC1
Const adErrObjectInCollection = &HD27
Const adErrObjectNotSet = &HD5C
Const adErrDataConversion = &HD5D
Const adErrObjectClosed = &HE78
Const adErrObjectOpen = &HE79
Const adErrProviderNotFound = &HE7A
Const adErrBoundToCommand = &HE7B
Const adErrInvalidParamInfo = &HE7C
Const adErrInvalidConnection = &HE7D
Const adErrNotReentrant = &HE7E
Const adErrStillExecuting = &HE7F
Const adErrOperationCancelled = &HE80
Const adErrStillConnecting = &HE81
Const adErrInvalidTransaction = &HE82
Const adErrUnsafeOperation = &HE84
Const adwrnSecurityDialog = &HE85
Const adwrnSecurityDialogHeader = &HE86
Const adErrIntegrityViolation = &HE87
Const adErrPermissionDenied = &HE88
Const adErrDataOverflow = &HE89
Const adErrSchemaViolation = &HE8A
Const adErrSignMismatch = &HE8B
Const adErrCantConvertvalue = &HE8C
Const adErrCantCreate = &HE8D
Const adErrColumnNotOnThisRow = &HE8E
Const adErrURLIntegrViolSetColumns = &HE8F
Const adErrURLDoesNotExist = &HE8F
Const adErrTreePermissionDenied = &HE90
Const adErrInvalidURL = &HE91
Const adErrResourceLocked = &HE92
Const adErrResourceExists = &HE93
Const adErrCannotComplete = &HE94
Const adErrVolumeNotFound = &HE95
Const adErrOutOfSpace = &HE96
Const adErrResourceOutOfScope = &HE97
Const adErrUnavailable = &HE98
Const adErrURLNamedRowDoesNotExist = &HE99
Const adErrDelResOutOfScope = &HE9A
Const adErrPropInvalidColumn = &HE9B
Const adErrPropInvalidOption = &HE9C
Const adErrPropInvalidValue = &HE9D
Const adErrPropConflicting = &HE9E
Const adErrPropNotAllSettable = &HE9F
Const adErrPropNotSet = &HEA0
Const adErrPropNotSettable = &HEA1
Const adErrPropNotSupported = &HEA2
Const adErrCatalogNotSet = &HEA3
Const adErrCantChangeConnection = &HEA4
Const adErrFieldsUpdateFailed = &HEA5
Const adErrDenyNotSupported = &HEA6
Const adErrDenyTypeNotSupported = &HEA7

'---- ParameterAttributesEnum Values ----
Const adParamSigned = &H10
Const adParamNullable = &H40
Const adParamLong = &H80

'---- ParameterDirectionEnum Values ----
Const adParamUnknown = &H0
Const adParamInput = &H1
Const adParamOutput = &H2
Const adParamInputOutput = &H3
Const adParamReturnValue = &H4

'---- CommandTypeEnum Values ----
Const adCmdUnknown = &H8
Const adCmdText = &H1
Const adCmdTable = &H2
Const adCmdStoredProc = &H4
Const adCmdFile = &H100
Const adCmdTableDirect = &H200

'---- EventStatusEnum Values ----
Const adStatusOK = &H1
Const adStatusErrorsOccurred = &H2
Const adStatusCantDeny = &H3
Const adStatusCancel = &H4
Const adStatusUnwantedEvent = &H5

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

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

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

'---- SeekEnum Values ----
Const adSeekFirstEQ = &H1
Const adSeekLastEQ = &H2
Const adSeekAfterEQ = &H4
Const adSeekAfter = &H8
Const adSeekBeforeEQ = &H10
Const adSeekBefore = &H20

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

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

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

'---- ADCPROP_UPDATERESYNC_ENUM Values ----

'---- ADCPROP_UPDATERESYNC_ENUM Values ----

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

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

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

'---- LineSeparatorEnum Values ----
Const adLF = 10
Const adCR = 13
Const adCRLF = -1

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

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

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

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

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

'---- RecordTypeEnum Values ----
Const adSimpleRecord = 0
Const adCollectionRecord = 1
Const adStructDoc = 2
'==========================================
'结束

'Public pubConn As New ADODB.Connection
'Public rsPub As New ADODB.Recordset
Public isSql As Boolean
Public pubConn  As Object
Public rsPub As Object
Const dbUser As String = "sa"
Const dbPass As String = ""
Const dbName As String = "Test"
Const dbServer As String = "127.0.0.1"
Const dbFile As String = "report.mdb"
Dim strConn As String

Function MyPath() As String
    If Right(App.path, 1) <> "\" Then
        MyPath = App.path & "\"
    Else
        MyPath = App.path
    End If
End Function

Sub openConn()
    Set pubConn = CreateObject("ADODB.Connection")
    Set rsPub = CreateObject("ADODB.Recordset")
    
    If isSql Then
        strConn = "Provider=sqloledb;user id=" & dbUser & ";password=" & dbPass & ";initial catalog=" & dbName & ";data source=" & dbServer & ";"
    Else
        strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & MyPath & dbFile & ";Persist Security Info=False" '& "Jet OLEDB