Форум: "Базы";
Текущий архив: 2003.02.06;
Скачать: [xml.tar.bz2];
Вниз
Ошибка в 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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.009 c
