Access è åãî ADO äðàéâåðà
|
|
Ïÿòíèöà, 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
-
Çàïèñü ïîíðàâèëàñü
-
0
Ïðîöèòèðîâàëè
-
0
Ñîõðàíèëè
-