Hallo BigBen,
hier ist nochmal der Code den ich momentan verwende und der bis zu den beschriebenden Punkten in Nachrricht von 05.04.2017 durchläuft.
Sub Beispiel_Anfrage_SQL_Server() 'Code von https://social.msdn.microsoft.com/Forums/de-DE/a73a838b-ec3f-419b-be65-8b1732fbf4d0/connect-to-a-remote-sql-server-db?forum=isvvba
Dim Cn As New ADODB.Connection
Dim Server_Name As String
Dim Database_Name As String
Dim User_ID As String
Dim Password As String
Dim SQLStr As String
Dim rs As New ADODB.Recordset
Set rs = New ADODB.Recordset
Set Cn = New ADODB.Connection
Server_Name = "Server_XYZ" ' Servername hier eingeben
Database_Name = "Schilder" ' Datenbankname hier eingeben
User_ID = "XYZ" ' User_ID hier eingeben
Password = "abc" ' Passwort hier eingeben
SQLStr = "SELECT Schilder.SVG as Bild " & _
"FROM Sprachen INNER JOIN Schilder ON Sprachen.ID = Schilder.SprachenID" & _
" WHERE (Sprachen.Sprache = N'DE_DE') AND (Schilder.MasterID = 10005)"
Cn.Open "Driver={SQL Server};Server=" & Server_Name & ";Database=" & Database_Name & ";user id=" & User_ID & ";pwd=" & Password & ";"
rs.Open SQLStr, Cn, adOpenStatic
Dim strFilename As String
Dim iFile As Integer
iFile = FreeFile()
strFilename = "C:\Schild.svg"
Open strFilename For Output As iFile
If Not rs.EOF Then
' Testen, ob print die Daten korrekt schreibt:
Print iFile, rs.Fields("Bild").Value
' Testen, ob put die Daten korrekt schreibt:
'Put iFile, , rs.Fields("Bild").Value
End If
' Tidy up
rs.Close
Set rs = Nothing
Cn.Close
Set Cn = Nothing
End Sub
Vielen Dank für die wirklich super Hilfe ohne dich wäre ich nie soweit gekommen. Wenn wir das nun mit dem schreiben der Datei hinbekommen bin ich schon wirklich zufrieden.
Gruß
Dominik
|