Word宏连接到访问数据库 [英] Word macros connect to access database

问题描述

您好
我正在尝试使用Word中的宏，并在Word文档中编程。

是否可以将数据库连接到此文档？

---

annee

解决方案

您好，

<我们可以使用ADO连接数据库。请访问连接对象（ADO） 请访问  https://www.connectionstrings.com/access/ 与
查找有效的连接字符串访问。 

例如

 Sub ADO_Conn（）
 Dim conn As Object 
 Dim rs As Object 
 Dim strcon As String 
 Set conn = CreateObject（" ADODB.Connection"）
 Set rs = CreateObject（" ADODB.Recordset"）
 strcon =" Provider = Microsoft.ACE.OLEDB.12.0; Data Source = D：\DB.accdb; Persist Security Info = False;" 
 conn.Open（strcon）
 rs.Open" SELECT * FROM Table1"，conn，3 
 rs.Close 
 conn.Close 
 End Sub 

您可以访问以下链接查看更多有用的信息。

如何将ADO与Visual Basic或VBA中的Excel数据一起使用

ExcelADO演示了如何使用ADO在Excel工作簿中读写数据

如何打开ADO连接和记录集对象

如果收到"无法找到提供商"等错误ot ;,请安装
Microsoft Access数据库引擎2010可再发行组件 < a href ="https://support.microsoft.com/en-us/help/278973/excelado-demonstrates-how-to-use-ado-to-read-and-write-data-in-excel-w" >

问候，

Celeste

Hi
I'm trying to work with Macros in Word, and programm in Word document.
Is it possible to connect database into this document?

---

annee

解决方案

Hello,

We could use ADO to connect database. Please visit Connection Object (ADO) Please visit https://www.connectionstrings.com/access/ to find valid connection strings for Access. 

E.g.

Sub ADO_Conn()
Dim conn As Object
Dim rs As Object
Dim strcon As String
Set conn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
    strcon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\DB.accdb;Persist Security Info=False;"
    conn.Open (strcon)
    rs.Open "SELECT * FROM Table1", conn, 3
    rs.Close
    conn.Close
End Sub

You could visit the links below to see more helpful information.

How To Use ADO with Excel Data from Visual Basic or VBA

ExcelADO demonstrates how to use ADO to read and write data in Excel workbooks

How To Open ADO Connection and Recordset Objects

If you get error like "Provider cannot be found", please install Microsoft Access Database Engine 2010 Redistributable

Regards,

Celeste

这篇关于Word宏连接到访问数据库的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！