A Little Macro To Automate Creating Connection Strings
I've created a little macro that automatically creates a connection string and inserts it in your code. It pops up the infamous "Data Links" dialog for you, saving you, the poor programmer, from having to remember all those pesky little syntax details.... :)
No references needed for this. Thank god for CreateObject :)
Public Sub InsertConnectionString()
Dim links As Object = CreateObject("DataLinks")
Dim cn As Object = CreateObject("ADODB.Connection")
links.PromptEdit(cn)
If cn.connectionstring = "" Then Exit Sub
Dim sel As TextSelection = ActiveDocument().Selection
sel.Text = cn.connectionstring
End Sub
Now just add a shortcut for it and you're ready to roll...