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

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

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

Ошибка в IB [D6, IB6.x]

lejik © (2003-01-20 11:16:00)
Доброе время суток господа!
Помогите решить проблему. Есть клиент-серверное приложение. Клиент подключаясь к базе первый раз изредка получает сообщение DB is not open. Потом все работае нормально. Сервер при этом включен и работает. Вот кусок кода подключения:

If LoginData.ModalResult=mrOk then
begin
try
try
sFile:=ExtractFilePath(Application.ExeName)+"config.ini";
LoginIni:=TIniFile.Create(sFile);
if DataBase.Connected then Database.Close;
DataBase.DBName:=LoginIni.ReadString("DATABASE","SERVER","")+
":"+ LoginIni.ReadString("DATABASE","PATH"," ");

Database.UseLoginPrompt:=false;
DataBase.ConnectParams.Password:=Trim(LoginData.password);
DataBase.ConnectParams.UserName:=Trim(LoginData.user_id);
DataBase.ConnectParams.RoleName:=Trim(LoginData.user_role);
DataBase.Open;
finally
LoginIni.UpdateFile;
LoginIni.Free;
end;

Digitman (2003-01-20 11:43:00) [1]

if DataBase.Connected then
DataBase.Connected := False;
...
DataBase.Connected := True;

Наверх

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