分析函数 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