?? module1.bas
字號:
Attribute VB_Name = "Module1"
Public Function ConnectString() _
As String
'returns a DB ConnectString
ConnectString = "FileDSN=學生公寓管理數據庫.dsn;UID=sa;PWD="
End Function
Public Function ExecuteSQL(ByVal SQL As String, MsgString As String) As ADODB.Recordset
Dim Cnn As ADODB.Connection '定義連接
Dim Rst As ADODB.Recordset
Dim sTokens() As String '定義字符串
On Error GoTo ExecuteSQL_Error '異常處理
sTokens = Split(SQL) '用Split函數產生一個包含各個子串的數組
Set Cnn = New ADODB.Connection '創建連接
Cnn.Open ConnectString
If InStr("INSERT,DELETE,UPDATE", LCase$(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
ExecuteSQL_Exit:
Set Rst = Nothing '清空數據集對象
Set Cnn = Nothing '中斷連接
Exit Function
ExecuteSQL_Error: '判斷錯誤類型
MsgString = "查詢錯誤:" & Err.Description
MsgBox MsgString
Resume ExecuteSQL_Exit
End Function
Public Sub EnterToTab(Keyasc As Integer)
If Keyasc = 13 Then
SendKeys "{TAB}"
End If
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -