cdataminingserver.cls

Decision 算法

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "cDataMiningServer"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
Attribute VB_Ext_KEY = "Member0" ,"colOneRule_Numeric"
Attribute VB_Ext_KEY = "Member1" ,"cOneRule"
Attribute VB_Ext_KEY = "Member2" ,"cOneRule_NonNumeric"

Private mvarAlgorithmSelected As String
Private mvarDataSourceChoice As String
Private mvarConnectionStringUsed As String
Private mvarTableSelected As String
Private mvarClassSelected As String
Private mvarAttributesSelected As Variant
Private mvarNumericAttributes As Variant
Private mvarNonNumericAttributes As Variant
Private mvarSQLStatementUsed As String
Private mvarUseView As UseView
Private mvarWriteToXMLPath As String
Private mvarReadFromXMLPath As String
Private mvarCountOfNumericAttributes As Long
Private mvarCountOfNonNumericAttributes As Long
Private mvarNodeIndex As Long

Public Property Get NodeIndex() As Long

    mvarNodeIndex = mvarNodeIndex + 1
    
    NodeIndex = mvarNodeIndex
    
End Property

Public Property Let CountOfNonNumericAttributes(ByVal vData As Long)

    mvarCountOfNonNumericAttributes = vData
    
End Property

Public Property Get CountOfNonNumericAttributes() As Long

    CountOfNonNumericAttributes = mvarCountOfNonNumericAttributes
    
End Property

Public Property Let CountOfNumericAttributes(ByVal vData As Long)

    mvarCountOfNumericAttributes = vData
    
End Property

Public Property Get CountOfNumericAttributes() As Long

    CountOfNumericAttributes = mvarCountOfNumericAttributes
    
End Property

Public Property Let ReadFromXMLPath(ByVal vData As String)
    
    mvarReadFromXMLPath = vData
    
End Property

Public Property Get ReadFromXMLPath() As String
    
    ReadFromXMLPath = mvarReadFromXMLPath
    
End Property
Public Property Let WriteToXMLPath(ByVal vData As String)
    
    mvarWriteToXMLPath = vData
    
End Property

Public Property Get WriteToXMLPath() As String
    
    WriteToXMLPath = mvarWriteToXMLPath
    
End Property

Public Property Let UseView(ByVal vData As UseView)
    
    mvarUseView = vData
    
End Property

Public Property Get UseView() As UseView

    UseView = mvarUseView
    
End Property

Public Property Let SQLStatementUsed(ByVal vData As String)

    mvarSQLStatementUsed = vData
    
End Property

Public Property Get SQLStatementUsed() As String

    SQLStatementUsed = mvarSQLStatementUsed
    
End Property

Public Property Let NonNumericAttributes(ByVal vData As Variant)

    mvarNonNumericAttributes = vData
    
End Property

Public Property Get NonNumericAttributes() As Variant

     NonNumericAttributes = mvarNonNumericAttributes
     
End Property

Public Property Let NumericAttributes(ByVal vData As Variant)

    mvarNumericAttributes = vData
    
End Property

Public Property Get NumericAttributes() As Variant

    NumericAttributes = mvarNumericAttributes
    
End Property

Public Property Let AttributesSelected(ByVal vData As Variant)

    mvarAttributesSelected = vData
    
End Property

Public Property Get AttributesSelected() As Variant

    AttributesSelected = mvarAttributesSelected
    
End Property

Public Property Let ClassSelected(ByVal vData As String)

    mvarClassSelected = vData
    
End Property

Public Property Get ClassSelected() As String

    ClassSelected = mvarClassSelected
    
End Property

Public Property Let TableSelected(ByVal vData As String)

    mvarTableSelected = vData
    
End Property

Public Property Get TableSelected() As String

    TableSelected = mvarTableSelected
    
End Property

Public Property Let ConnectionStringUsed(ByVal vData As String)

    mvarConnectionStringUsed = vData
    
End Property

Public Property Get ConnectionStringUsed() As String

    ConnectionStringUsed = mvarConnectionStringUsed
    
End Property

Public Property Let DataSourceChoice(ByVal vData As String)

    mvarDataSourceChoice = vData
    
End Property

Public Property Get DataSourceChoice() As String

    DataSourceChoice = mvarDataSourceChoice
    
End Property

Public Property Let AlgorithmSelected(ByVal vData As String)

    mvarAlgorithmSelected = vData
    
End Property

Public Property Get AlgorithmSelected() As String

    AlgorithmSelected = mvarAlgorithmSelected
    
End Property

Public Function OptimizeField(ByVal rstSource As ADODB.Recordset, ParamArray varField() As Variant) As ADODB.Recordset
    'Optimizes a recordset based on its field
    'Uses the ADO Engine to build a Client Side Index on a field
    'This speeds up operations based on the field just like a database index
    
    Dim Count
    Dim strField As String
    
    
    For Count = LBound(varField) To UBound(varField)
        
        strField = varField(Count)
        rstSource.Fields(strField).Properties("OPTIMIZE") = True
        
    Next
    
    
    Set OptimizeField = rstSource
    
    
End Function