ADOConnection & Service Application

← →
sheriff (2004-03-18 10:55) [0]

Добрый день.
помогите решить проблему.

в 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

← →
Vlad © (2004-03-18 10:57) [1]

Так нужно его вызвать :-)
CoInitialize(nil)

не забудь закрыть (CoUnInitialize) вызовы должны быть строго парные.

ADOConnection &amp; Service Application Найти похожие ветки

ADOConnection & Service Application Найти похожие ветки