-Ïîèñê ïî äíåâíèêó

Ïîèñê ñîîáùåíèé â rss_sql_ru_access_programming

 -Ïîäïèñêà ïî e-mail

 

 -Ïîñòîÿííûå ÷èòàòåëè

 -Ñòàòèñòèêà

Ñòàòèñòèêà LiveInternet.ru: ïîêàçàíî êîëè÷åñòâî õèòîâ è ïîñåòèòåëåé
Ñîçäàí: 16.03.2006
Çàïèñåé:
Êîììåíòàðèåâ:
Íàïèñàíî: 4


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


 

Äîáàâèòü êîììåíòàðèé:
Òåêñò êîììåíòàðèÿ: ñìàéëèêè

Ïðîâåðêà îðôîãðàôèè: (íàéòè îøèáêè)

Ïðèêðåïèòü êàðòèíêó:

 Ïåðåâîäèòü URL â ññûëêó
 Ïîäïèñàòüñÿ íà êîììåíòàðèè
 Ïîäïèñàòü êàðòèíêó