?? 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=ais"
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -