Dim cnn As ADODB.Connection'定義鏈接Dim rst As ADODB.Recordset'定義字符串'Dim sTokens() As String'異常處理Public Function ExecuteSQL(ByVal SQL As String, MsgString As String) As ADODB.RecordsetOn Error GoTo ExecuteSQL_Error'用Split函數產生一個包含各個子串的數組sTokens = Split(SQL)'創建鏈接Set cnn = New ADODB.Connection'打開鏈接cnn.Open connectString'判斷字符串中是否含有指定內容If InStr("INSERT,DELETE.UPDATE", UCase$(sTokens(0))) Then'執行查詢語句cnn.Execute SQL'返回查詢信息'MsgString = sTpkens(0) & "query successful"ElseSet rst = New ADODB.Recordset'返回查詢結果rst.Open Trim$(SQL), cnn, _anOpenKeysset, _adLLockOptimistic'rst.MoveLast 'getRecordCount & _"條記錄"End IfExecuteSQL_Exit
1 回答
德瑪西亞99
TA貢獻1770條經驗 獲得超3個贊
第2行的函數f(x)是不能從鍵盤輸入的必須用函數定義來描述PrivateFunctionf(x)EndFunction看你的代碼可知你沒有運行過程序還有很多錯誤呢
- 1 回答
- 0 關注
- 106 瀏覽
添加回答
舉報
0/150
提交
取消