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

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

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

Ошибочка... [D5, MSSQL]

Vikuksa © (2002-11-12 11:53:00)
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".

И чё теперь делать!?

sniknik (2002-11-12 12:28:00) [1]
Vikuksa © (12.11.02 12:16)
везде где видел CoInitialize(nil); в пару идет (в конце)CoUnInitialize();
может и вам поставить?

Vikuksa (2002-11-12 12:16:00) [2]
stone © (12.11.02 12:07)

Спасибо, работает!

stone (2002-11-12 12:07:00) [3]
в uses главной формы добавь ActiveX

в OnCreate главной формы допиши CoInitialize(nil);

хер....... (2002-11-12 12:01:00) [4]
ADOConn := TADOConnection.Fuck.Create(nil);

Наверх

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