Текущий архив: 2004.04.18;
Скачать: 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 вся ветка
Текущий архив: 2004.04.18;
Скачать: CL | DM;
Память: 0.45 MB
Время: 0.035 c
