Establishing a data connection from within Access to Visio

[Opa Horst]

I have a VBA program in Visio which loads data from an Access database, works
perfectly.
Now rather then working from Visio, I would like to start from Access and
then open Visio and generate a drawing based on the Access data. Starting the
same VBA script in Access throws an error – database locked – which is
understandable as the database is open. Opening as read only doesn’t work.
Is there any workaround for this?
Secondly I would like to use the runtime version of Visio and hide the user
interface. Here I get an error which seems to indicate that data access is
not supported in the runtime version.
Is that correct or do I something wrong?

 

[David Parker]

What data linking methodology are you employing?
What version Access and Visio?
What do you mean "runtime version" of Visio?

 

[Opa Horst]

Thank you for your reply!
Here the answers:
1. Data link methodology – ADO, code snippet:
Set RecSet = CurrentDoc.DataRecordsets.Add( ADOConnectionString,
SelectionString, 0, Name)
Where ADOConnectionString is:
Provider=Microsoft.ACE.OLEDB.12.0;" & _
"User ID=Admin;" & _
"Data Source=" & AccessDb & ";" & _
"Mode=Read;" & _
"Extended Properties="""";" & _
"Jet OLEDB:System database="""";" & _
"Jet OLEDB:Registry Path="""";" & _
"Jet OLEDB:Engine Type=6;" & _
"Jet OLEDBatabase Locking Mode=1;" & _
"Jet OLEDB:Global Partial Bulk Ops=2;" & _
"Jet OLEDB:Global Bulk Transactions=1;" & _
"Jet OLEDB:New Database Password="""";" & _
"Jet OLEDB:Create System Database=False;" & _
"Jet OLEDB:Encrypt Database=False;" & _
"Jet OLEDBon't Copy Locale on Compact=False;" & _
"Jet OLEDB:Compact Without Replica Repair=False;" & _
"Jet OLEDB:SFP=False;Jet OLEDB:Support Complex Data=False"

With AccessDb a constant pointing to the database.

2. Access and Visio version is 2007
3. With the runtime Visio I meant the MS ActiveX Visio Drawing Control

 

[Opa Horst]

Thank you for your reply!
Here the answers:
1. Data link methodology – ADO, code snippet:
Set RecSet = CurrentDoc.DataRecordsets.Add( ADOConnectionString,
SelectionString, 0, Name)
Where ADOConnectionString is:
Provider=Microsoft.ACE.OLEDB.12.0;" & _
"User ID=Admin;" & _
"Data Source=" & AccessDb & ";" & _
"Mode=Read;" & _
"Extended Properties="""";" & _
"Jet OLEDB:System database="""";" & _
"Jet OLEDB:Registry Path="""";" & _
"Jet OLEDB:Engine Type=6;" & _
"Jet OLEDBatabase Locking Mode=1;" & _
"Jet OLEDB:Global Partial Bulk Ops=2;" & _
"Jet OLEDB:Global Bulk Transactions=1;" & _
"Jet OLEDB:New Database Password="""";" & _
"Jet OLEDB:Create System Database=False;" & _
"Jet OLEDB:Encrypt Database=False;" & _
"Jet OLEDBon't Copy Locale on Compact=False;" & _
"Jet OLEDB:Compact Without Replica Repair=False;" & _
"Jet OLEDB:SFP=False;Jet OLEDB:Support Complex Data=False"

With AccessDb a constant pointing to the database.

2. Access and Visio version is 2007
3. With the runtime Visio I meant the MS ActiveX Visio Drawing Control