Форум: "Базы";
Текущий архив: 2002.11.28;
Скачать: [xml.tar.bz2];
Вниз
Ошибочка... Найти похожие ветки
← →
Vikuksa (2002-11-12 11:53) [0]var
str : string;
ini : TInifile;
Connstr : string;
f : boolean;
pop : integer;
ADOConn: TADOConnection;
begin
DBFL := false;
ADOConn := TADOConnection.Create(nil);
ADOConn.LoginPrompt := false;
str := ExtractFileDir(Application.ExeName);
if FileExists(str+"\"+"rkcb.ini")= true then begin
ini := TInifile.Create(str+"\"+"registr.ini");
Connstr := ini.ReadString("COMMON","CONN_STR","");
if Connstr <> "" then ADOConn.ConnectionString := Connstr;
ini.Free;
f:=true;
pop := 0;
while (f=true)and(pop<2) do begin
try
ADOConn.Connected := true;
f:=false;
DBFL := true;
StrConn := Connstr;
ADOConn.Connected := false;
except
RusMessageDlg("Ошибка подключения к Базе данных!",mtError,[mbYes],0);
f:=false;
end;
end;
end
else RusMessageDlg("Не найден файл параметров!",mtError,[mbYes],0);
ADOConn.Destroy;
Result:= DBFL;
end;
Вот есть така ф-я проверки подключения к БД.
На строке ADOConn := TADOConnection.Create(nil); возникает ошибка "Не был произведен вызов CoInitialize".
И чё теперь делать!?
← →
хер....... (2002-11-12 12:01) [1]ADOConn := TADOConnection.Fuck.Create(nil);
← →
stone (2002-11-12 12:07) [2]в uses главной формы добавь ActiveX
в OnCreate главной формы допиши CoInitialize(nil);
← →
Vikuksa (2002-11-12 12:16) [3]stone © (12.11.02 12:07)
Спасибо, работает!
← →
sniknik (2002-11-12 12:28) [4]Vikuksa © (12.11.02 12:16)
везде где видел CoInitialize(nil); в пару идет (в конце)CoUnInitialize();
может и вам поставить?
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2002.11.28;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.006 c