databases.cls

其主要功能是对生产的一些监控

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "DataBases"
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"
Public SqlConn As ADODB.Connection
Public sConn As String

Public Sub OpenConn()
    If SqlConn Is Nothing = True Then
        '建立数据库连接对象
        Set SqlConn = New ADODB.Connection
    End If
    If SqlConn.State <> 1 Then
        '打开数据库连接
        SqlConn.Open sConn
    End If
End Sub


Public Sub CloseConn()
    '如果数据库连接对象不为空则关闭数据库连接
    If SqlConn.State = 1 Then
        SqlConn.Close
    End If
End Sub

Public Function RunSelectSQL(ByVal sSQLString As String) As ADODB.Recordset
    Dim rs As New Recordset
    '打开数据库连接
    Me.OpenConn
    '执行SQL操作
    rs.Open sSQLString, SqlConn, adOpenStatic, adLockReadOnly
    Set RunSelectSQL = rs
End Function

Public Function RunSelectSQLUpdatable(ByVal sSQLString As String) As ADODB.Recordset
    Dim rs As New Recordset
    '打开数据库连接
    Me.OpenConn
    '执行SQL操作
    rs.Open sSQLString, SqlConn, adOpenStatic, adLockBatchOptimistic
    Set RunSelectSQLUpdatable = rs
End Function

Private Sub Class_Initialize()
    sConn = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=mrplink"
End Sub