VPF::Как автоматически создать базу MS Access?

Voyager

Дата 30.10.2010, 13:07 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 532
Регистрация: 8.2.2005

Репутация: нет
Всего: 18

Проблема: Необходимо развернуть базу из скрипта в 1 клик (запуск *.bat, *.cmd).
Вопрос. Как автоматически создать базу через запуск cmd-файла (или vba)?

Есть скрипт script.sql, в котором структура базы (create table, insert, etc.), нужно создать файл базы base.mdb и вкатить в нее скрипт script.sql. Каждый раз запускать MS Access для создания файла затратно, хочется автоматизировать этот процесс.

Voyager

Дата 30.10.2010, 14:18 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 532
Регистрация: 8.2.2005

Репутация: нет
Всего: 18

Дошел до этого шага, файл *.vbs

Код


Function ReadFile(ByVal FilePath)
Const ForReading = 1, TristateUseDefault = -2
Dim fso, file
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(FilePath) Then
Set file = fso.OpenTextFile(FilePath, ForReading, _
False, TristateUseDefault)
If file.AtEndOfStream = False Then ReadFile = file.ReadAll
file.Close
End If
End Function

dim provider : provider = "microsoft.jet.oledb.4.0"
dim db : db = "c:\DB\work.mdb"
dim ds : ds = "provider=" & provider & "; data source=" & db

dim fso : set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(db) Then
    fso.DeleteFile(db)
End If

dim catalog : set catalog = createobject("adox.catalog")
catalog.create ds

set catalog = nothing

'Сам скрипт
dim script: script = ReadFile("script.sql")

If IsEmpty(script) Then 
    WScript.Quit
End If

dim conn : set conn = createobject("adodb.connection")
conn.open ds
'Как выполнить весь скрипт, а не один запрос?
conn.Execute "CREATE TABLE tblSample ([Name] text(50) WITH Compression, " & _
                 "[Address] text(150) WITH Compression, " & _
                 "[City] text(50) WITH Compression, " & _
                 "[ProvinceState] text(2) WITH Compression, " & _
                 "[Postal] text(6) WITH Compression, " & _
                 "[Account] decimal(6))"

conn.close
set conn = nothing

Файл базы создается, как теперь в нее вкатить весь скрипт?

Это сообщение отредактировал(а) Voyager - 30.10.2010, 14:58

bopoha

Дата 30.10.2010, 16:01 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1283
Регистрация: 10.5.2006
Где: Беларусь, Минск

Репутация: 21
Всего: 21

Вот утилита:
http://rsdn.ru/article/files/progs/BatchAccess.xml

--------------------

Как создавать приложения на MS Access

Voyager

Дата 30.10.2010, 23:41 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 532
Регистрация: 8.2.2005

Репутация: нет
Всего: 18

Спасибо, эту я уже видел, она сейчас используется. Интересует, можно ли такое сделать "стандартными" средствами.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| MS Access \| Следующая тема »