处理数据库函数

最新推荐文章于 2025-12-15 21:10:21 发布

最新推荐文章于 2025-12-15 21:10:21 发布 · 78 阅读

文章标签：

本文介绍了一个用于执行SQL语句的VBA公共函数，该函数能够处理包括INSERT、DELETE、UPDATE在内的多种SQL操作，并能返回查询结果集。

处理数据库中数据常用的一个函数：

Public Function ExecuteSQL(ByVal sql As String, ByVal msgstring As String) As ADODB.Recordset

Dim cnn As ADODB.Connection （ 1 ） . 定义一个连接

Dim rst As ADODB.Recordset （ 2 ） . 定义一个记录集

Dim stokens() As String

Dim connectionstring As String

connectionstring = "filedsn=andy.dsn;UID=sa;pwd=123456"

On Error GoTo Executesql_error

stokens() = Split(sql) ' 将 sql 中字符串中的每个单词，分别赋给一维数组的每个单位

Set cnn = New ADODB.Connection （ 3 ） . 实例化连接

cnn.Open connectionstring （ 4 ） . 打开连接，让程序连接到特定的数据库

' 如果有 insert ， delete ， update 语句可以直接执行 sql 语句而不用去查询， connection ， command ， recordset 都可以执行 sql 语句

If InStr("INSERT,DELETE,UPDATE", UCase$(stokens(0))) Then

cnn.Execute sql （ 5 ） . 执行 sql 语句（ update ， delete ， insert ）

msgstring = stokens(0) & "query sucessfully!" ‘执行成功！

Else

' 查询记录集，并且返回记录集

Set rst = New ADODB.Recordset

rst.CursorLocation = adUseClient ' 远程数据服务用法当用于客户端 (ADOR) Recordset 或 Connection 对象时，只能将 CursorLocation 属性设置为 adUseClient 。

rst.Open Trim$(sql), cnn, adOpenKeyset, adLockOptimistic （ 6 ） .select 语句返回一个记录集 (rst) ， rst.open “select * from student _info”,cnn,adopenkeyset,adlockoptimistic

' 打开一个数据库元素，此元素可提供对表的记录、查询的结果或保存的 Recordset 的访问。

Set ExecuteSQL = rst

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

End If

Executesql_exit:

Set rst = Nothing

Set cnn = Nothing

Exit Function

Executesql_error:

msgstring = " 查询错误： " & Err.decription

Resume Executesql_exit