Форум: "Базы";
Текущий архив: 2003.07.24;
Скачать: [xml.tar.bz2];

Вниз

Директория алиаса   Найти похожие ветки 

← →
Devourer   (2003-06-30 16:36) [0]

Как программно узнать путь к таблицам БД, имея алиас?

---

← →
Жук   (2003-06-30 16:44) [1]

А что такое "алиас" ?

---

← →
Devourer   (2003-06-30 16:48) [2]

псевдоним БД

---

← →
Жук   (2003-06-30 16:50) [3]

Угу. Значит это одно из свойств БД, но там есть и другие свойства. Али нет ?

---

← →
VAleksey   (2003-06-30 18:41) [4]

> Жук © (30.06.03 16:50)

Не в наезд, а просто интересно... Зачем отвечаешь если не знаешь?


> Devourer (30.06.03 16:36)

Лови.

function GetPhNameByAlias(sAlias: string): string;
var
Database: TDatabase;
pszDir: PChar;
begin
Database := TDatabase.Create(nil); {allocate memory}
pszDir := StrAlloc(255);
try
Database.AliasName := sAlias;
Database.DatabaseName := "TEMP"; {requires a name -- is ignored}
Database.Connected := True; {connect without opening any table}
DbiGetDirectory(Database.Handle, True, pszDir); {get the dir.}
Database.Connected := False; {disconnect}
Result := StrPas(pszDir); {convert to a string}
finally
Database.Free; {free memory}
StrDispose(pszDir);
end;
end;

---

Страницы: 1 вся ветка

Форум: "Базы";
Текущий архив: 2003.07.24;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.008 c