Database Reference
In-Depth Information
Figure 4-65.
Designing a Visio diagram for test servers
right now, there is no data source configured. while your Visio diagram is open,
press Alt+F11 to open Microsoft Visual Basic for Applications. In the Project window,
double-click on ThisDocument under Visio Objects to open the code view. Paste the
code in Listing 4-8 into the code area.
Listing 4-8.
Using Visual Basic for applications to retreive data from SQL
Server data source
Sub LoadData()
Dim diagramServices As Integer
Dim vsoDataRecordset As Visio.dataRecordset
Dim connectionString As String
Dim commandText As String
diagramServices = ActiveDocument.DiagramServicesEnabled
ActiveDocument.DiagramServicesEnabled = visServiceVersion140
Application.ActiveWindow.Windows.ItemFromID(visWinIDExternalData)
.Visible = True
commandText = "SELECT ServerName, ServerIP, ServerStatus FROM
tblServerStatus"
connectionString = "Provider=SQLOLEDB;Data Source=<YourDataSource
Name>;Initial Catalog=VisioServices;Integrated Security=SSPI;"
Set vsoDataRecordset = ActiveDocument.DataRecordsets.
Add(connectionString, commandText, 0, "Server Status Details")
