ExecuteSQL函数

'传递参数SQL传递查询语句，MsgString传递查询信息。自身以一个数据集对象的形式返回

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) '用Split函数产生一个包含各个子串的数组

Set Cnn = New ADODB.Connection '创建连接对象

Cnn.Open ConnectString '打开连接对象

If InStr("INSERT,DELETE,UPDATE", 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 '打开记录集，返回查询结果 。Trim$(SQL)为所执行的sql命令字符串。Cnn为Recordset对象的ActiveConnection属性值，即数据源的活动链接，即设定连接的是哪个数据库。后面两个参数为“键集游标”和“乐观锁”。

Set ExecuteSQL = Rst '返回记录集对象

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

End If

ExecuteSQL_Exit:

Set Rst = Nothing '清空数据集对象

Set Cnn = Nothing '中断连接

Exit Function

ExecuteSQL_Error: '错误处理

MsgString = "查询错误:" & Err.Description

MsgBox MsgString

Resume ‘在错误处理程序结束后，恢复到'ExecuteSQL_Exit' 行继续执行

End Function