SQL-DMO MSACCESS-2000

Dim sqlserver As New SQLDMO.sqlserver
Set markDB = sqlserver.Databases("name_base")
sql_fname = "name_base.sql"

'----------------- Создание базы
st1 = SQLDMOScript_Default
st2 = SQLDMOScript2_AnsiFile

sql_script = markDB.Script(st1, sql_fname, st2)

'----------------- Создание таблиц с индексами, триггерами и т. д.
If markDB.Tables.Count <> 0 Then
For i = 1 To markDB.Tables.Count
st1 = SQLDMOScript_AppendToFile Or SQLDMOScript_Default Or SQLDMOScript_Triggers
st2 = SQLDMOScript2_AnsiFile
If Not markDB.Tables(i).SystemObject Then
sql_script = markDB.Tables(i).Script(st1, sql_fname, , st2)
End If
Строка_состояния = markDB.Tables(i).name
DoEvents
Next i
End If

'----------------- Создание VIEWS
If markDB.Views.Count <> 0 Then
For i = 1 To markDB.Views.Count
st1 = SQLDMOScript_AppendToFile Or SQLDMOScript_Default
st2 = SQLDMOScript2_AnsiFile
If Not markDB.Views(i).SystemObject Then
sql_script = markDB.Views(i).Script(st1, sql_fname, st2)
End If
Строка_состояния = markDB.Views(i).name
DoEvents
Next i
End If

'----------------- Создание процедур
If markDB.StoredProcedures.Count <> 0 Then
For i = 1 To markDB.StoredProcedures.Count
If Not markDB.StoredProcedures(i).SystemObject Then
st1 = SQLDMOScript_AppendToFile Or SQLDMOScript_Default
st2 = SQLDMOScript2_AnsiFile
sql_script = markDB.StoredProcedures(i).Script(st1, sql_fname, st2)
End If
Строка_состояния = markDB.StoredProcedures(i).name
DoEvents
Next i
End If


и т. д.