?? moddatabase.bas
字號:
Attribute VB_Name = "ModDatabase"
'****************************************************************************
'人人為我,我為人人
'枕善居收藏整理
'發布日期:2007/09/25
'描 述:江蘇大學網絡信息中心網絡管理系統 - v1.0 Beta
'網 站:http://www.Mndsoft.com/ (VB6源碼博客)
'網 站:http://www.VbDnet.com/ (VB.NET源碼博客,主要基于.NET2005)
'e-mail :Mndsoft@163.com
'e-mail :Mndsoft@126.com
'OICQ :88382850
' 如果您有新的好的代碼別忘記給枕善居哦!
'****************************************************************************
Public cnn As ADODB.Connection
Public ConnectString As String
Public Function BeginTrans()
cnn.BeginTrans
End Function
Public Function CommitTrans()
cnn.CommitTrans
End Function
Public Function RollbackTrans()
cnn.RollbackTrans
End Function
Public Function Connect()
Set cnn = New ADODB.Connection
cnn.Open ConnectString
End Function
Public Function Disconnect()
cnn.Close
Set cnn = Nothing
End Function
Public Function ExecuteSQL(ByVal sql As String, MsgString As String, HasError As Boolean) As ADODB.Recordset
Dim rst As ADODB.Recordset
Dim sTokens() As String
On Error GoTo ExcuteSQL_Error
sTokens = Split(sql)
If InStr("INSERT,DELETE,UPDATE", UCase$(sTokens(0))) Then
cnn.Execute sql
MsgString = sTokens(0) & "query successful"
Else
Set rst = New ADODB.Recordset
rst.Open Trim$(sql), cnn, adOpenKeyset, adLockOptimistic
Set ExecuteSQL = rst
MsgString = "查詢到" & rst.RecordCount & " 條記錄 "
End If
HasError = False
Exit Function
ExcuteSQL_Error:
MsgString = "查詢錯誤:" & Err.Description
Set rst = Nothing
HasError = True
End Function
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -