Скачать: CL | DM;

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)

---

← →
sniknik ©   (2004-03-18 11:15) [2]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: -0.978 c