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=ais"
End Sub