|
Hallo
Ich möchte gerne beim öffnen eines Documents die Serienbrief-Informationen laden, sprich, via VBA die Datenquelle definieren - eine SQL Query.
Bei der Abfrage möchte ich nach dem Filename = Vorname suchen.
Mein Problem jedoch liegt darin, die Verbindung zum SQL Server überhaupt herzustellen.
Aktuell erhalte ich die Meldung, dass es das File 192.168.1.15 nicht findet, was auch logisch ist, jedoch verstehe ich nicht, warum ich zwingend ein File als Name angeben muss.
Der Name definiert ja anscheinend die Datenquelle (zB. eine XLS-Datei oder eine Access DB (die effektive DB-Datei -> xxxx.mdb). Was muss ich bei einer Verbindung zu einem SQL Server angeben?
Private Sub Document_Open()
Dim FileName As String
Dim ConString As String
FileName = Left(ThisDocument.Name, (InStrRev(ThisDocument.Name, ".", -1, vbTextCompare) - 1))
ConString = "Provider=SQLOLEDB.1;Password=123456;Persist Security Info=True;User ID=zhData;Initial Catalog=zhData1;Data Source=192.168.1.15"
ActiveDocument.MailMerge.OpenDataSource Name:="192.168.1.15", Connection:=ConString, SQLStatement:="SELECT * FROM Adressen WHERE Vorname LIKE '%" & FileName & "%'"
End Sub
|