connectdb.bas

vb apriori algorithm

Attribute VB_Name = "ConnectDB"
Public Function ConnectDMDB1000()
'strCnn = "driver={SQL Server};server=YANLIANG;uid=;pwd=;database=Gendata"
strCnn = "driver={SQL Server};server=HSC-NK5VRBZL47D;uid=;pwd=;database=Gendata"

Set Gendata_cnn = New ADODB.Connection
    Gendata_cnn.Open strCnn
    Dim a As Long
    a = Gendata_cnn.Errors.count
    'If (a <> 0 And a <> 2) Then
    'MsgBox Gendata_cnn.Errors(a).Description
    'End If
Set Gendata_rs = New ADODB.Recordset
    Gendata_rs.CursorType = adOpenKeyset
    Gendata_rs.LockType = adLockOptimistic
    Gendata_rs.Open "y_t_Gendata1000_100", Gendata_cnn, , , adCmdTable
Dim i, b, upbound, lowbound As Long
    If (Gendata_rs.BOF Or Gendata_rs.EOF) Then
    Else
        Gendata_rs.MoveLast
    End If
End Function
Public Function ConnectDMDB10000()
strCnn = "driver={SQL Server};server=YANLIANG;uid=;pwd=;database=Gendata"
'strCnn = "driver={SQL Server};server=HSC-NK5VRBZL47D;uid=;pwd=;database=Gendata"

Set Gendata_cnn = New ADODB.Connection
    Gendata_cnn.Open strCnn
    Dim a As Long
    a = Gendata_cnn.Errors.count
    'If (a <> 0 And a <> 2) Then
    'MsgBox Gendata_cnn.Errors(a).Description
    'End If
Set Gendata_rs = New ADODB.Recordset
    Gendata_rs.CursorType = adOpenKeyset
    Gendata_rs.LockType = adLockOptimistic
    Gendata_rs.Open "y_t_Gendata10000_1000", Gendata_cnn, , , adCmdTable
Dim i, b, upbound, lowbound As Long
    If (Gendata_rs.BOF Or Gendata_rs.EOF) Then
    Else
        Gendata_rs.MoveLast
    End If
End Function
Public Function ConnectDMDB100000()
strCnn = "driver={SQL Server};server=YANLIANG;uid=;pwd=;database=Gendata"
'strCnn = "driver={SQL Server};server=HSC-NK5VRBZL47D;uid=;pwd=;database=Gendata"

Set Gendata_cnn = New ADODB.Connection
    Gendata_cnn.Open strCnn
    Dim a As Long
    a = Gendata_cnn.Errors.count
    'If (a <> 0 And a <> 2) Then
    'MsgBox Gendata_cnn.Errors(a).Description
    'End If
Set Gendata_rs = New ADODB.Recordset
    Gendata_rs.CursorType = adOpenKeyset
    Gendata_rs.LockType = adLockOptimistic
    Gendata_rs.Open "y_t_Gendata_2_100000_1000", Gendata_cnn, , , adCmdTable
'Set Gendata_rs_2 = New ADODB.Recordset
    'Gendata_rs_2.CursorType = adOpenKeyset
    'Gendata_rs_2.LockType = adLockOptimistic
    'Gendata_rs_2.Open "y_t_Gendata_2_100000_1000", Gendata_cnn, , , adCmdTable

    If (Gendata_rs.BOF Or Gendata_rs.EOF) Then
    Else
        Gendata_rs.MoveLast
    End If
    'If (Gendata_rs_2.BOF Or Gendata_rs_2.EOF) Then
    'Else
        'Gendata_rs_2.MoveLast
    'End If
End Function
Public Function ConnectDMDB100000_250()
strCnn = "driver={SQL Server};server=YANLIANG;uid=;pwd=;database=Gendata"
'strCnn = "driver={SQL Server};server=HSC-NK5VRBZL47D;uid=;pwd=;database=Gendata"

Set Gendata_cnn = New ADODB.Connection
    Gendata_cnn.Open strCnn
    Dim a As Long
    a = Gendata_cnn.Errors.count
    'If (a <> 0 And a <> 2) Then
    'MsgBox Gendata_cnn.Errors(a).Description
    'End If
Set Gendata_rs = New ADODB.Recordset
    Gendata_rs.CursorType = adOpenKeyset
    Gendata_rs.LockType = adLockOptimistic
    Gendata_rs.Open "y_t_Gendata100000_250", Gendata_cnn, , , adCmdTable
'Set Gendata_rs_2 = New ADODB.Recordset
    'Gendata_rs_2.CursorType = adOpenKeyset
    'Gendata_rs_2.LockType = adLockOptimistic
    'Gendata_rs_2.Open "y_t_Gendata_2_100000_250", Gendata_cnn, , , adCmdTable

    If (Gendata_rs.BOF Or Gendata_rs.EOF) Then
    Else
        Gendata_rs.MoveLast
    End If
    'If (Gendata_rs_2.BOF Or Gendata_rs_2.EOF) Then
    'Else
        'Gendata_rs_2.MoveLast
    'End If
End Function