VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 1  'vbDataSource
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "Cls_Connect"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit

Dim Mycn As ADODB.Connection          '聲明一個連接
Dim MyRs As ADODB.Recordset             '聲明一個記錄集
Dim myRecordsetName As String         '聲明一個表示“表名”的字符串
Dim MyQr1 As ADODB.Recordset
Dim MyQr2 As ADODB.Recordset
Dim MyCom As ADODB.Command
Dim MyPra As ADODB.Parameter
Dim MyPrb As ADODB.Parameter
Dim MyPrcName As String
Dim MyPrcPra As String
Dim MyPrcPrb As String
Dim MyQueryName As String

Private Sub Class_GetDataMember(DataMember As String, Data As Object)
    Set Data = MyRs
End Sub

Private Sub Class_Initialize()
    Set Mycn = New ADODB.Connection
    '實例一個連接
    Dim str As String
    str = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=SIMS;Data Source=yongping"
    Mycn.Open str
End Sub

Public Property Get RcdName() As String
'傳遞表名
    RcdName = myRecordsetName
End Property

Public Property Let RcdName(ByVal vNewValue As String)
'傳遞表名
    myRecordsetName = vNewValue
End Property
Public Function openRcd()
'按傳遞的表名打開表
    Set MyRs = New ADODB.Recordset
'實例該連接
    MyRs.Open myRecordsetName, Mycn, adOpenStatic, adLockOptimistic, adCmdTable
End Function
Public Property Get MRecordset() As ADODB.Recordset
'將該記錄集傳出
    Set MRecordset = MyRs
End Property

Public Property Get PrcName() As Variant
'傳遞存儲過程名
    PrcName = MyPrcName
End Property

Public Property Let PrcName(ByVal vNewValue As Variant)
    MyPrcName = vNewValue
End Property

Public Property Get PrcPra() As Variant
'傳遞參數(shù)名
    PrcPra = MyPrcPra
End Property

Public Property Let PrcPra(ByVal vNewValue As Variant)
    MyPrcPra = vNewValue
End Property

Public Property Get PrcPrb() As Variant
'傳遞參數(shù)名
    PrcPrb = MyPrcPrb
End Property

Public Property Let PrcPrb(ByVal vNewValue As Variant)
    MyPrcPrb = vNewValue
End Property


Public Function OpenPrc(ByVal pra As String)
'按傳入的參數(shù)調(diào)用存儲過程
Set MyQr1 = New ADODB.Recordset
Set MyCom = New ADODB.Command
With MyCom
     .ActiveConnection = Mycn
     .CommandType = adCmdStoredProc
     .CommandText = MyPrcName
     Set MyPra = .CreateParameter(PrcPra, adVarChar, adParamInput, 255, pra)
     .Parameters.Append MyPra
     Set MyQr1 = .Execute
End With
End Function
Public Function OpenPrc2(ByVal pra As String, ByVal prb As String)
'使用2個參數(shù)調(diào)用存儲過程
Set MyQr1 = New ADODB.Recordset
Set MyCom = New ADODB.Command
With MyCom
     .ActiveConnection = Mycn
     .CommandType = adCmdStoredProc
     .CommandText = MyPrcName
     Set MyPra = .CreateParameter(PrcPra, adVarChar, adParamInput, 255, pra)
     Set MyPrb = .CreateParameter(PrcPrb, adVarChar, adParamInput, 255, prb)
     .Parameters.Append MyPra
     .Parameters.Append MyPrb
     Set MyQr1 = .Execute
End With
End Function

Public Property Get MStoreProcRS() As ADODB.Recordset
'將該記錄集傳出
    Set MStoreProcRS = MyQr1
End Property


'根據(jù)查詢語句查詢
Public Property Get QryName() As Variant
'獲得查詢語句
    QryName = MyQueryName
End Property

Public Property Let QryName(ByVal vNewValue As Variant)
'賦予查詢語句
    MyQueryName = vNewValue
End Property
Public Function openQry()
'按傳入的查詢語句打開相應(yīng)的表
Set MyQr2 = New ADODB.Recordset
    MyQr2.Open MyQueryName, Mycn, adOpenStatic, adLockOptimistic, adCmdText

End Function

Public Property Get MQueryRs() As ADODB.Recordset
'將該記錄集傳出
Set MQueryRs = MyQr2
End Property