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

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

Как программно можно создать Alias ??? [D6, Paradox]

Maniak ©   (2003-01-16 16:18:00) 

Мастера! Помогите пожалуйста! Как можно программно создать Alias?

---

Reindeer Moss Eater   (2003-01-16 20:57:00) [1]

Тем, что не пересечешься с возможно уже сущестующюим алиасом

---

MsGuns   (2003-01-16 20:35:00) [2]

>Reindeer Moss Eater (16.01.03 20:14)
>А все же лучше без Alias

Чем же конкретно-то лучше ?

---

Reindeer Moss Eater   (2003-01-16 20:14:00) [3]

А все же лучше без Alias

---

Reindeer Moss Eater   (2003-01-16 19:42:00) [4]

Для всего (не только для Paradox) лучше без Alias

---

gsu   (2003-01-16 19:42:00) [5]

procedure TSession.AddStandardAlias(const Name, Path, DefaultDriver: string);
var
AliasParams: TStringList;
begin
AliasParams := TStringList.Create;
try
AliasParams.Add(Format("%s=%s", [szCFGDBPATH, Path]));
AliasParams.Add(Format("%s=%s", [szCFGDBDEFAULTDRIVER, DefaultDriver]));
AddAlias(Name, szCFGDBSTANDARD, AliasParams);
finally
AliasParams.Free;
end;
end;

но есть зависимость.

---

MsGuns   (2003-01-16 19:30:00) [6]

Для Paradox лучше AddStandardAlias

---

gsu   (2003-01-16 16:58:00) [7]

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;

---

Maniak   (2003-01-16 16:37:00) [8]

Ага, спасибо. А где указывать путь к БД и название Alias"a?

---

gsu   (2003-01-16 16:26:00) [9]

procedure TSession.AddAlias(const Name, Driver: string; List: TStrings);

---

Наверх