Текущий архив: 2003.02.06;
Скачать: CL | DM;

Вниз

Ошибка в IB   Найти похожие ветки 

← →
lejik   (2003-01-20 11:16) [0]

Доброе время суток господа!
Помогите решить проблему. Есть клиент-серверное приложение. Клиент подключаясь к базе первый раз изредка получает сообщение 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) [1]

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

---

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

Текущий архив: 2003.02.06;
Скачать: CL | DM;

Наверх

Память: 0.44 MB
Время: 0.01 c