Как-то можно запустить sql-скрипт из vbs/vba?
Формулировка задачи:
Как-то можно сами sql-скрипты запускать, которые в файле уже находятся?
А не писать на VB в скрипте огромную строку, кот-ю потом засовывать в ADO-шный Connection.Execute?
А не писать на VB в скрипте огромную строку, кот-ю потом засовывать в ADO-шный Connection.Execute?
Решение задачи: «Как-то можно запустить sql-скрипт из vbs/vba?»
textual
Листинг программы
msgbox ReadAllTextFile
Function ReadAllTextFile()
Const ForReading = 1, ForWriting = 2
Dim fso, ts
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile("d:\DevSample\vbs\Report82.sql", ForReading)
ReadAllTextFile = ts.ReadAll
End Function