在VBA中，可以使用OleDbConnection对象连接到各种数据库，包括Microsoft Access、Microsoft SQL Server、Oracle等。以下是一些OleDbConnection对象的常见用法：
- 建立连接：
Dim conn As New OleDbConnection
conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\path\to\database.accdb"
conn.Open
- 执行SQL查询：
Dim cmd As New OleDbCommand
cmd.Connection = conn
cmd.CommandText = "SELECT * FROM TableName"
Dim reader As OleDbDataReader
Set reader = cmd.ExecuteReader
While reader.Read
' 处理返回的数据
Wend
reader.Close
- 执行SQL插入、更新或删除操作：
Dim cmd As New OleDbCommand
cmd.Connection = conn
cmd.CommandText = "INSERT INTO TableName (Column1, Column2) VALUES ('Value1', 'Value2')"
cmd.ExecuteNonQuery
- 关闭连接：
conn.Close
需要注意的是，使用OleDbConnection对象需要引用Microsoft ActiveX Data Objects库。可以通过在VBA编辑器中选择"工具"菜单下的"引用"选项，然后勾选"Microsoft ActiveX Data Objects x.x Library"来添加引用。
版权声明：除特别声明外，本站所有文章皆是本站原创，转载请以超链接形式注明出处！
