| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Директория алиаса [D6]
Devourer © (2003-06-30 16:36:00)Как программно узнать путь к таблицам БД, имея алиас?
VAleksey (2003-06-30 18:41:00) [1]
> Жук © (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;
Жук (2003-06-30 16:50:00) [2]Угу. Значит это одно из свойств БД, но там есть и другие свойства. Али нет ?
Devourer (2003-06-30 16:48:00) [3]псевдоним БД
Жук (2003-06-30 16:44:00) [4]А что такое "алиас" ?
| |
