, 01 2019 . 14:57
+
, . .
.
Sub createACDBBase(path As String)
Dim cat As New ADOX.Catalog
cat.Create "Microsoft.ACE.OLEDB.12.0;Data Source=" & path
Set cat = Nothing
End Sub
Sub t()
'DAO.CreateDatabase ActiveWorkbook.path & "\TST.ACCDB", DAO.dbLangCyrillic
createACDBBase "C:\users\......\documents\TST.ACCDB"
End Sub
. . - " " ( ).
cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;;Data Source=" & path
. ( , , ?); Standard Jet DB Standard ACE DB ? 2010 PROGRAMM FILES (X86) - 32 .... .
https://www.sql.ru/forum/1309739/access-i-ego-ado-drayvera