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

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

Как програмно создать алиас в BDE? [D6, dBase, FoxPro]

Whippi ©   (2002-12-09 15:01:00) 

Делаю так:

Session.AddStandardAlias("Kursovik","C:\Evdokimova\date","DBASE");
Session.SaveConfigFile;
Session.Close; // иначе он у меня не был сpазу виден
Session.Open;
но почему то не получается, подскажите так ли я действую?

---

asdf   (2002-12-09 15:09:00) [1]

begin
with Session do
begin
ConfigMode := cmSession;
try
AddStandardAlias("TEMPDB", ExtractFilePath(ParamStr(0)), "PARADOX");
finally
ConfigMode := cmAll;
end;
end;

---

asdf   (2002-12-09 15:07:00) [2]

ну глянь в help!

var
MyList: TStringList;
begin
MyList := TStringList.Create;
try
with MyList do
begin
Add("SERVER NAME=IB_SERVER:/PATH/DATABASE.GDB");
Add("USER NAME=MYNAME");
end;
Session1.AddAlias("NewIBAlias", "INTRBASE", MyList);
finally
MyList.Free;
end;
end;

---

Наверх