Datei zeilenweise in MS SQL hochladen

Dieses Beispiel nutzt nicht VBA sondern VBScript um den Inhalt einer Textdatei zeilenweise in einen MS SQL Server hoch zu laden. Der Verbindungsaufbau erfolgt dabei per Trusted Connection. Das Skript lädt problemlos auch sehr große Dateien mit mehreren GB und > 1 Mio. Zeilen.

 

dateiPfad = "E:\importfiles\UAFiles\uat5_Worker_137542-1_FULL_20190412092040.txt"
Const ForReading = 1
Const adOpenStatic = 3
Const adLockOptimistic = 3


Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.OpenTextFile(dateiPfad, ForReading)

Set objConnection = CreateObject("ADODB.Connection")

objConnection.Open _
    "Provider=SQLOLEDB;Data Source=IhreServerAdresse;" & _
        "Trusted_Connection=Yes;Initial Catalog=IhreDatenbank;"

Do While f.AtEndOfStream <> True 
     org_zeile = f.Readline 
     org_zeile = Replace(org_zeile, "'", "''")
     objConnection.Execute "INSERT INTO dbo.tblJSON(ImportID, JSON) VALUES (63, '" + org_zeile + "')"
Loop

f.Close
objConnection.Close

Schreibe einen Kommentar

Deine E-Mail-Adresse wird nicht veröffentlicht. Erforderliche Felder sind mit * markiert