| Dimon.Ru |
| Отправлено: 27.10.2004, 09:44 |
|
Станционный диспетчер
Группа: Участник
Сообщений: 92
|
Здавствуйте!
Плдскажите, как программно создать алиас базы данных?
Моя программа работает через Borland Database Engine с сервером IB6.
ставлю на комп (пустой) свою программу, IB6, BDE. Для работы необходимо создать алиас. почему-то при помощи BDEAdministrator не получается подцепить файл базы данных.
Сделал утилиту для этого. но почему-то она отказывается создавать алиас, когда еще ни одного нет. Когда есть хотя бы один алиас — все создается без проблем.
Спасибо. |
|
| RVN |
| Отправлено: 09.10.2005, 12:26 |
|
Ученик-кочегар
Группа: Участник
Сообщений: 17
|
{ // Создание псевдонима для PARADOX
if (Session->IsAlias("AU"))
{
Application->MessageBox("Псевдоним базы уже существует!",
"ВНИМАНИЕ!",MB_OK+MB_ICONWARNING);
BitBtnSelect->Enabled=false;
BitBtnCrAlias->Enabled=false;
}
else
{
StatusBar1->SimpleText="Создание псевдонима базы данных...";
AnsiString asDir;
try
{
Save_Cursor = Screen->Cursor;
Screen->Cursor = crHourGlass; // Show hourglass cursor
asDir=Label2->Caption;
Session->AddStandardAlias("AU", asDir, "PARADOX");
Session->SaveConfigFile();
}
__finally
{
BitBtnSelect->Enabled=false;
BitBtnCrAlias->Enabled=false;
BitBtnExport->Enabled=true;
StatusBar1->SimpleText="Псевдоним базы данных создан.";
Screen->Cursor = Save_Cursor;
}
}
} |
|
|
