有个VB问题，请高人指点。

下面这个题运行的时候为什么会提示少了IF？

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) Set cnn = New ADODB.Connection cnn.Open ConnectString If InStr("INSERT,DELETE,UPDATE,EXECUTE",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 ExecuteSQL_Exit: Set rst = Nothing Set cnn = Nothing Exit Function ExecuteSQL_Error: MsgString = "查询错误:" & Err.Description Resume ExecuteSQL_Exit End Function

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!