|
'==============================================================
' ADOX. Создание базы данных
Private Sub butADO_Click()
Dim cat As New ADOX.Catalog, strmdb As String
' Определение файла
strmdb = Application.CurrentProject.Path & "\temp.mdb" ' Путь базы
If Dir(strmdb) <> "" Then Kill strmdb 'Уничтожаем старую базу данных
' ADOX. Создание базы
cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strmdb
Set cat = Nothing
MsgBox "База создана (ADOX)!", vbExclamation, "Лидер Access"
' Удаление базы
If Dir(strmdb) <> "" Then Kill strmdb 'Уничтожаем старую базу данных
End Sub
'==============================================================
' DAO. Открытие базы данных
Private Sub butDAO_Click()
Dim dbs As DAO.Database, strmdb As String
' Определение файла
strmdb = Application.CurrentProject.Path & "\temp.mdb" ' Путь базы
If Dir(strmdb) <> "" Then Kill strmdb 'Уничтожаем старую базу данных
' DAO. Открываем на чтение
DBEngine.CreateDatabase strmdb, dbLangCyrillic
MsgBox "База создана (DAO)!", vbExclamation, "Лидер Access"
' Удаление базы
If Dir(strmdb) <> "" Then Kill strmdb 'Уничтожаем старую базу данных
End Sub
|
|