| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Почему нет коннекта [D6, IB5.x]

GIL ©   (2003-06-17 22:10:00) 

Все создаю динамически, но при коннекте ничего не происходит, даже не выводится окно для пароля!! Что не так?
DataBase.AliasName:=Aliases[i];
DataBase.DataBaseName:=ExtractFileName(OpenDialog.FileName);
DataBase.Connected:=True;

---

Zacho   (2003-06-18 08:11:00) [1]

> GILforever (18.06.03 08:04)

Ну тогда сразу и делай на компонентах, обеспечивающих полноценную работу с IB. И проблем будет гораздо меньше, и есть вещи которые с BDE сделать просто невозможно. IBX входит в Дельфи, FIBPlus получше, но стоит денег. Правда, недорого.
И такое замечание:

> DataBase.DataBaseName:=ExtractFileName(OpenDialog.FileName);

Нельзя так делать. А если сервер не локальный ?

---

GILforever   (2003-06-18 08:04:00) [2]

Нет, это новый проэкт-эксперимент в личных целях - есть пустая форма, пользователь открывает ф-л gdb, оттуда все считывается и динамически создается более-менее приличная форма(ы) для редактирования, поиска, и т.д. Если пользователь хочет он производит кое-какие ассоциации и настройки, которые потом сохраняются в файл конфигурации и далше для этой БД будут браться из него. Нечто подобное я уже писал но не все динамическое.

---

Alexandr   (2003-06-18 07:22:00) [3]

мало того, при доработках старого проекта на BDE можно использовать компоненты IBX (или FIBPlus, что лучше)
при этом обеспечить плавный переход...

---

Zacho   (2003-06-18 07:17:00) [4]

Если это новый проект, а не поддержка старого, то настоятельно рекомендую выкинуть BDE и перейти на что-нибудь другое, хотя бы IBX.

---

GILforever   (2003-06-18 07:11:00) [5]

А если чере простой DataBase?

---

_Narayan_   (2003-06-17 23:33:00) [6]


......
var IBDatabase1: TIBDatabase;
IBTransaction1: TIBTransaction;
IBSQL1: TIBSQL;
begin
IBTransaction1:=TIBTransaction.Create(nil);
With IBTransaction1 Do
Begin
AutoStopAction:=saNone;
DefaultAction:=TACommit;
IdleTimer:=0;
end;

IBDatabase1:=TIBDatabase.Create(nil);
With IBDatabase1 Do
Begin
AllowStreamedConnected:=True;
DatabaseName:="C:\1.gdb"; // полный путь и имя файла
DefaultTransaction:=IBTransaction1;
IdleTimer:=0;
LoginPrompt:=False;
Params.Append("user_name=SYSDBA"); // пользователь
Params.Append("password=masterkey"); // и его пароль
SQLDialect:=3;
end;

IBSQL1:=TIBSQL.Create(nil);
With IBSQL1 Do
Begin
Database:=IBDatabase1;
GoToFirstRecordOnExecute:=True;
ParamCheck:=True;
Transaction:=IBTransaction1;
end;

Try IBDatabase1.Open Except Exit end;
IBTransaction1.Active:=True;
......


---

Наверх