MyTetra Share
Делитесь знаниями!
CreateDb
16.03.2019
23:43
Раздел: !Закладки - VBA - Access - DAO



Dim DB As DAO.Database

    Dim TB As DAO.TableDef
    Set DB = DBEngine.Workspaces(0).CreateDatabase(ПУТЬ & "tmp", dbLangCyrillic)
    
    'присоединю базы dbf к tmp.mdb
    Set TB = DB.CreateTableDef(имя_базы_без_DBF)
    TB.Connect = "dBase IV;DataBase=" & ПУТЬ
    TB.SourceTableName = имя_базы_без_DBF   ' или другое, например Таблица1
    DB.TableDefs.Append TB
    Set TB = Nothing
    
    DB.Close:   Set DB = Nothing



Так же в этом разделе:
 
MyTetra Share v.0.52
Яндекс индекс цитирования