Есть приложение, использующее TADOQuery и TADOConnection для доступа к базе данных (создание базы и запросы).
В качестве провайдера автоматически выбирается один из списка: jet4.0, ACE 12 или ACE 14 в зависимости от того, какой имеется на машине.
Проблема в том, что на некоторых машинах (Windows7, Win8) что-то происходит и это не работает. Самая большая загвоздка что я не знаю ошибки, и поспроивести её не могу на всех доступных все машинах.
Раньше я создавал базу данных с помощью кода:
| Код |
procedure CreateMSAccessDatabase(FileName: string);
var
DAO,
WS: Variant;
I,
Code: Integer;
ErrorString: string;
const Engines: array[0..3] of string = ('DAO.DBEngine.120', 'DAO.DBEngine.36', 'DAO.DBEngine.35', 'DAO.DBEngine');
function CheckClass(OLEClassName: string): Boolean;
var
HR: HResult;
G: TGUID;
I: IInterface;
begin
HR := CLSIDFromProgID(PWideChar(WideString(OLEClassName)), G);
if Failed(HR) then
Exit(False);
HR := CoCreateInstance(G, nil, CLSCTX_INPROC_SERVER or CLSCTX_LOCAL_SERVER, IDispatch, I);
Result := HR = S_OK;
end;
begin
Code := 0;
for I := Low(Engines) to High(Engines) do
if CheckClass(Engines[I]) then
begin
try
DAO := CreateOleObject(Engines[I]);
Code := 1;
WS := DAO.Workspaces[0];
Code := 2;
WS.CreateDatabase(FileName, ';LANGID=0x0409;CP=1252;COUNTRY=0', 64);
Exit;
except
on E: Exception do
begin
ErrorString := 'Error creating database! Engine: ' + Engines[I] + ', ERROR: ' + E.message + ', file: ' + FileName + ', code = ' + IntToStr(Code);
EventLog(ErrorString);
TThread.Synchronize(nil,
procedure
begin
MessageBoxDB(0, ErrorString, TA('Error'), TD_BUTTON_OK, TD_ICON_ERROR);
end
);
end;
end;
end;
raise Exception.Create('DAO engine could not be initialized');
end;
|
В результате пользователь получал ошибку с кодом 1, E.message = "Ошибка загрузки библиотеки" (русская винда была у пользователя). Т.е. падала строка WS := DAO.Workspaces[0];
Было решено отказаться от такого "сложного" кода и для создания базы просто копировать заготовку из ресурсов.
Но это видно не решило проблему (судя по небольшим отчётам программы, деталей нету).
Нашёл статьи про проблему с ADO в SP1:
http://social.msdn.microsoft.com/Forums/en-US/windowsgeneraldevelopmentissues/thread/3a4ce946-effa-4f77-98a6-34f11c6b5a13
Кто-нибудь сталкивался с проблемой? Посоветуйте что-нибудь, пожалуйста  |