将 Visio 文档连接到 Access 数据库

Question

我想将 Access 数据库添加到我的 Visio 文档中。 MSN 示例显示了连接到 Excel 文档的字符串。我将使用什么来连接到 Access 数据库？

我正在使用：

Microsoft Visio 2013
Microsoft Access 2013
Microsoft Windows 7 Enterprise.

数据库位置：

C:\Users\j.Smith\Desktop\access_file.mdb

我的脚本：

Public Sub AddDataRecordset_Example() 

    Dim strConnection As String 
    Dim strCommand As String 
    Dim strOfficePath As String 
    Dim vsoDataRecordset As Visio.DataRecordset 

    strOfficePath = Visio.Application.Path     
    strConnection = "Provider=Microsoft.ACE.OLEDB.12.0;" _ 
                   & "User ID=Admin;" _ 
                   & "Data Source=" + strOfficePath + "SAMPLES33\ORGDATA.XLS;" _ 
                   & "Mode=Read;" _ 
                   & "Extended Properties=""HDR=YES;IMEX=1;MaxScanRows=0;Excel 12.0;"";" _ 
                   & "Jet OLEDB:Engine Type=34;" 

    strCommand = "SELECT * FROM [Sheet1$]" 

    Set vsoDataRecordset = ActiveDocument.DataRecordsets.Add(strConnection, strCommand, 0, "Org Data") 

End Sub

Answer 1

应该这样做：

strConnection = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
    "User ID=Admin;" & _
    "Data Source=" & accessFileName & ";" & _
    "Mode=Read;" & _
    "Extended Properties="""";" & _
    "Jet OLEDB:System database="""";" & _
    "Jet OLEDB:Engine Type=6;" & _
    "Jet OLEDB:Database Locking Mode=0;"
strCommand = "SELECT * FROM `tablename`"

注意 table 名称周围的单引号。

此外，仅供参考，我一直发现以下网站非常有用：ConnectionStrings

将 Visio 文档连接到 Access 数据库

Connect Visio document to Access database

vba

ms-access

visio