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