大家好，又见面了，我是你们的朋友全栈君。
‘传递参数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
发布者：全栈程序员-用户IM，转载请注明出处：https://javaforall.cn/143185.html原文链接：https://javaforall.cn
【正版授权，激活自己账号】： Jetbrains全家桶Ide使用，1年售后保障，每天仅需1毛
【官方授权 正版激活】： 官方授权 正版激活 支持Jetbrains家族下所有IDE 使用个人JB账号...