Как-то можно запустить sql-скрипт из vbs/vba?

Узнай цену своей работы

Формулировка задачи:

Как-то можно сами sql-скрипты запускать, которые в файле уже находятся?
А не писать на 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

5   голосов , оценка 4.2 из 5
Похожие ответы