Как программно сосздать базу Access в требуемом формате? |
Public Sub Test1() CreateDataBaseDAO ("Test1") End Sub Sub CreateDataBaseDAO(newDB As String) 'Данная процедура создает новую базу данных с использованием возможностей DAO. Dim dbNew As Database ' создаваемая база On Error GoTo Proc_Err ' создание новой базы данных Set dbNew = DBEngine.CreateDatabase(newDB, dbLangCyrillic) MsgBox "Database Created!" Proc_Exit: Exit Sub Proc_Err: MsgBox Err.Description Resume Proc_Exit End Sub
http://www.sql.ru/forum/1129998/kak-programmno-soszdat-bazu-access-v-trebuemom-formate
Комментировать | « Пред. запись — К дневнику — След. запись » | Страницы: [1] [Новые] |