Hallo,
ich komm einfach nicht weiter mit meinem Code. Mein Code sieht momentan so aus:
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 " & _
"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
Open Cn For Output As #1
' Tidy up
rs.Close
Set rs = Nothing
Cn.Close
Set Cn = Nothing
End Sub
Das Passwort und den rest habe ich etwas geändert. Nun kommt aber beim Befehl
Open Cn For Output As #1
Immer die Fehlermeldung "Laufzeitfehler 55 Datei bereits geöffnet". Ich bekomme die Rückgabe des SQL-Servers einfach nicht in ein SVG-Datei geschrieben. Benutze ich den falschen Befehl oder stimmt sonst irgendetwas nicht bzw. habe ich etwas vergessen?
Ich wäre euch echt dankbar wenn Ihr mir nochmal weiterhelfen könnt. Muss es dann per Schleife auch noch schaffen das Ergebnis des Excel-Filters durchlaufen zu lassen um alle Bild-Dateien zu bekommen (momentan ist dieser Wert ja noch statisch). Ich denke aber dass mir schon sehr geholfen ist wenn ich zumindest diese eine zurückgegebene Datei abspeichern kann.
Vielen dank für die Unterstützung.
Gruß
Dominik
|