Форум: "Базы";
Текущий архив: 2004.03.05;
Скачать: [xml.tar.bz2];
ВнизALIAS на другом компьютере Найти похожие ветки
← →
Draught (2004-02-09 14:00) [0]Как создать вручную ALIAS на другом компьютере, что именно и куда прописывать??? как установить BDE я знаю...
← →
Anatoly Podgoretsky (2004-02-09 14:03) [1]Вот после установки и создай алиас с помощью BDE Admin
← →
Draught (2004-02-09 14:11) [2]2Anatoly Podgoretsky вы немного не поняли, я имею ввиду без дополнительных программ, типа DBD или еще какой...
может что в реестр прописать нужно??? Может где какой файл подредактировать...
← →
Reindeer Moss Eater (2004-02-09 14:14) [3]А зачем твоей программе алиас?
Что, нет другого способа указать где у тебя файлы парадокса лежат?
← →
VLAD-MAL (2004-02-09 14:15) [4]BDE administrator в папке "Мой компьютер".
А вообще, пусть прога создает его динамически, на время работы приложения. Все (почти:) так делают.
← →
Draught (2004-02-09 14:17) [5]2VLAD-MAL как это сделать??? Маленький пример приведи, пжлста, если не сложно...
← →
Anatoly Podgoretsky (2004-02-09 14:19) [6]Draught © (09.02.04 14:00)
Ты как то БДЕ устанавливал, вот это входит в инсталяцию. DBD в инсталяцию не входит.
← →
Reindeer Moss Eater (2004-02-09 14:21) [7].......
MyDatabase.Params.Values["PATH"] := MyDatabaseDir;
.......
← →
VLAD-MAL (2004-02-09 14:23) [8]Ща (так медленно, по - барски...) покопаюсь в старых проектах, найду...
← →
VLAD-MAL (2004-02-09 14:39) [9]В общем, так:
В модуле (fDM, например) добавляем компонент TDataBase (пусть называется dbSales, например). Дабл - клик, появляется редактор. Пишем в
Name - имя алиаса, по которому будем подключаться, например, IB_Sales. Alias name = Ничего; Driver Name = STANDARD (у Вас Paradox, да?)
Клацаем по клавише Defaults, появляется:
BLOB SIZE=32
WAIT ON LOCKS=FALSE
COMMIT RETAIN=FALSE
ROLE NAME=
PASSWORD=
Если надо, заполняем чем-нибудь PASSWORD= и т.п.
В Options снимаем чекбокс Login prompt, и, если хотим, Keep_Inactive_connection (это для возможности отладки).
Теперь делаем так, чтобы во всех модулях, где есть ваши TTable/TQuery, был виден этот модуль с размещенным TDataBase (uses ...).
При запуске программы выполняем открытие базы, например:
procedure TfMain.actSocketInExecute(Sender: TObject);
begin
if not FileExists(WorkedFileName) then begin
ShowMessage("Необходимо выбрать базу для работы");
exit;
end;
try
with fDM.dbSales do begin
if Connected then Close;
LoginPrompt := false;
Params.Values["PASSWORD"] := Password;
Params.Values["LANGDRIVER"] := "ancyrr"; // или что там у нас?
Params.Values["SERVER NAME"] := WorkedFileName; // Имя файла/директория, гда база
Open;
LastWorkedDataBaseFileName := WorkedFileName;
// Разрешаем все Browsers"ы
for i:=0 to actlstMain.ActionCount - 1 do
if actlstMain.Actions[i].Category = "Browsers" then
(actlstMain.Actions[i] as TAction).Enabled := true;
// Разрешаем сохранялку
actSaveAs.Enabled := true;
end;
Self.Caption := ApplicationName + " - " + ExtractFileName(WorkedFileName);
Application.Title := Self.Caption;
stbarMain.Panels[0].Text := "Соединение выполнено.";
actSocketOut.Enabled := true;
actBeginTransaction.Enabled := true;
except
stbarMain.Panels[0].Text := "Ошибка подключения к БД.";
Self.Caption := ApplicationName + " - " + "База не подключена";
Application.Title := Self.Caption;
end;
end;
Все. Удачи.
Ах, да: во всех TTable/TQuery в качестве алиаса используешь тот самый IB_Sales. Он появится в свойстве-списке этих компонентов, как только сделаешь Uses fDM.
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2004.03.05;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.007 c