VBA/Excel/Access/Word/Access/Database Create

Материал из VB Эксперт

Перейти к: навигация, поиск

Create a new database

 
Sub exaCreateDb()
    Dim dbNew As Database
    Dim tbl As TableDef
    Set dbNew = CreateDatabase("c:\", dbLangGeneral)
    For Each tbl In dbNew.TableDefs
       Debug.Print tbl.Name
    Next
    dbNew.Close
End Sub