Я уже публиковал вопрос по этой проблеме, и, поскольку в Интернете есть все больше и больше ссылок на нее, я хотел узнать, сталкивался ли кто-нибудь здесь с подобной проблемой. У меня есть два компьютера под управлением Windows 10 и Office 365. Я получаю сообщение об ошибке на рабочем столе, когда запускаю следующий код:
Dim Colcon As ADODB.Connection
Set Colcon = CurrentProject.Connection
Dim ColRs As New ADODB.Recordset
ColRs.ActiveConnection = Colcon
Dim ColSQL As String
ColSQL = "SELECT ColTbl.LastDate, ColTbl.ColCode"
ColSQL = ColSQL + " FROM ColTbl"
ColRs.Open ColSQL, Colcon, adOpenStatic, adLockReadOnly
Последняя строка выдает «Класс не зарегистрирован», но тот же код отлично работает на моем Surface, используя ту же среду. Пробовали разные решения, полученные в Интернете, ни одно из которых не работает. Просто интересно, есть ли у кого-нибудь еще такая проблема в ACCESS. (Согласно информации из Интернета, эта ошибка может быть связана с чем угодно, когда вы читаете сообщения от людей, у которых возникла проблема)
Спасибо
Mitch' вот debug.print Colcon. Не вижу, какое это имеет отношение к проблеме, но вот оно. Кстати, я не знаю, что это значит.
Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=U:\SSP Supervisor_Log\SSp_LogBook -Ver 11.accdb;
Mode=Share Deny None;Extended Properties="";
Jet OLEDB:System database=C:\Users\admin\AppData\Roaming\Microsoft\Access\System1.mdw;
Jet OLEDB:Registry Path=Software\Microsoft\Office\16.0\Access\Access Connectivity Engine;
Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=6;Jet OLEDB:Database Locking Mode=1;
Jet OLEDB:Global Partial Bulk Ops=2;
Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";
Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;
Jet OLEDB:Don't Copy Locale on Compact=False;
Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False;
Jet OLEDB:Support Complex Data=True;Jet OLEDB:Bypass UserInfo Validation=False;
Jet OLEDB:Limited DB Caching=False;Jet OLEDB:Bypass ChoiceField Validation=False
debug.print colCon
скопировать/вставить его в свой вопрос? - person dbmitch   schedule 19.08.2016Dim daoRS as DAO.Recordset SET daoRS = Currentdb.OpenRecordset(ColSQL)
- person dbmitch   schedule 19.08.2016Microsoft.ACE.OLEDB.12.0
и с 64-битной системой. Если вы действительно хотите сохранить ADODB, вы можете попробовать установить распространяемый компонент среды выполнения Access 2013 и посмотреть, установлены ли правильные драйверы. Я склонен держаться подальше от ADO, если только меня не подталкивают к этому. - person dbmitch   schedule 19.08.2016