‘定義全局變量知道已登錄信息
Public username as string
這是類型變量
Public fmainform as frmmain
傳遞參數SQL傳遞查詢語句,MsgString傳遞查詢信息,自身以一個數據集對象的形式返回
Public Function executeSQL(ByVal SQL As String, msgstring As String) As ADODB.Recordset
異常處理
On Error GoTo ExecuteSQL_error
'用Split函數生產一個包含各個字串的數組
Split 函數返回一個下標從0開始的一位數組 本身split也有分開的意思
把SQL語句拆分爲一個數據
'判斷字符串中是否含有制定內容
If InStr("INSERT,DELETE,UPDATE", UCase$(sTokens(0))) Then
$ 表示返回類型 爲字符型
Instr函數:返回字符或字符串在另一個字符串中第一次出現的位置查找SQL語句第一個單詞,能找到就繼續執行。找不到就執行else
msgstring 不是返回值,傳遞方式採用傳址,與實參地址相同
這是單個退出點
Set rst = Nothing '清空數據集對象
Set cnn = Nothing '中斷連接
Exit Function
當執行正確的時候就直接退出了Exit Function,如果出錯了才執行錯誤處理語句。單個退出點的作用就是確保出錯時才執行錯誤處理語句。