Hallo,

ich habe leider keinen SQL Server, auf dem ich einige Testläufe durchführen kann. Daher kann ich nur Empfehlungen geben.

Vielleicht funktioniert ja dieser Code?

Sub TEST()
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
    
    Dim strFilename As String
    Dim iFile As Integer
    iFile = FreeFile
    strFilename = "C:\Schilder.svg"
    Open strFilename For Output As iFile
    
    If Not rs.EOF Then
        ' Testen, ob print die Daten korrekt schreibt:
        Print iFile, rs.Fields(1).Value
        
        ' Testen, ob put die Daten korrekt schreibt:
        ' Put iFile, , rs.Fields(1).Value
    End If
    ' Tidy up
    rs.Close
    Set rs = Nothing
    Cn.Close
    Set Cn = Nothing
End Sub

Im Code wird die print Befehl verwendet, um die Daten zu schreiben.

Falls die Daten nicht korrekt geschrieben werden sollten, muss der OPenBefehl und der print bzw. put Befehl erst angepasst werden.

Der Pfad der zu erstellenden Datei sollte noch angepasst werden. Im Code wird eine Datei im Pfad C:\ erstellt.

LG, BigBen