分析函数 ExecuteSQL

在学生管理系统中，执行sql语句时，我们用到这个函数，当时有几点不明，现在说说我的理解。

---

 

Public Function ExecuteSQL(ByVal SQL As String, MsgString As String) As Recordset

   ……

   sTokens = Split(SQL)

'Split返回一个下标从0开始的一维数组，包含指定数目的子字符串。”Select”+”*”+”from”+”user_Info”+”where”+”…”

  

'函数执行时，首先判断SQL语句中包含的内容:

Select和insert,delete,update分开，原因：

select时，ExecuteSQL函数返回一个与函数同名的RecordSet，所有满足条件的记录包含在对象中；

insert,delete,update时，不返回记录集对象RecordSet。

   If InStr("insert,delete,update", UCase$(sTokens(0))) Then

'sTokens(0)——由Split产生的第一个数组元素，即select/insert/update/delete

      cnn.Execute SQL

      MsgString = sTokens(0) & "Query Successful!"

   Else

      Set rst = New Recordset

      rst.CursorLocation = adUseClient

      rst.Open Trim$(SQL), cnn, adOpenKeyset, adLockOptimistic

      Set ExecuteSQL = rst

      MsgString = "查询到" & rst.RecordCount & "条记录"

   End If

……

End Function