Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

ADOConnection & Service Application [D5, D7, Access]

sheriff © (2004-03-18 10:55:00)
Добрый день.
помогите решить проблему.

в ServiceStart вызывается процедура соединения с БД Access:
procedure TLogService.StartADODataBase;
var s: String;
begin
ADOConn.Connected:=false;
s:=ExtractFilePath(ParamStr(0))+'db.mdb;';
ADOConn.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;'+
'User ID=Admin;'+
'Data Source='+s+
'Mode=ReadWrite;'+
'Extended Properties="";'+
'Persist Security Info=False;'+
'Jet OLEDB:System database="";'+
'Jet OLEDB:Registry Path="";'+
'Jet OLEDB:Database Password="pd";'+
'Jet OLEDB:Engine Type=5;'+
'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';
ADOConn.Open;
if ADOConn.Connected then begin
tbData1.Open;
tbData2.Open;
end;
end;

если в Design time указать Connected=true, то соединение происходит нормально, но при попытке соединиться в Run time
(см. процедуру выше) сервис не стартует.

evet viewer пишет: Не был произведен вызов CoInitialize

sniknik (2004-03-18 11:15:00) [1]
не забудь закрыть (CoUnInitialize) вызовы должны быть строго парные.

Vlad (2004-03-18 10:57:00) [2]
Так нужно его вызвать :-)
CoInitialize(nil)

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »