Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Базы";
Текущий архив: 2002.07.25;
Скачать: [xml.tar.bz2];

Вниз

Народ, подскажите пожалуйста: Как динамически создавать алиас ?   Найти похожие ветки 

 
nitro313   (2002-07-03 14:52) [0]

Народ, подскажите пожалуйста: Как динамически создавать алиас к базе данных Paradox. И что нужно, чтобы
перенести эту базу данных на другой компьютер, чтобы она там запустилась? :)

Заранее благодарен.


 
VAleksey   (2002-07-03 14:58) [1]

по моему так
Session.AddStandartAlias
скопировать файлы> создать алиас


 
ArhAngel2   (2002-07-03 15:05) [2]

Как создавать псевдонимы здесь:
http://www.cydsoft.com/vr-online/12_2000/delphi1.htm
Для того, что бы работало без на другой машине брось эти файлы в каталог вместе с прогой:
BANTAM.DLL
IDAPI32.DLL
IDBAT32.DLL
IDPDX32.DLL
IDR20009.DLL
IDSQL32.DLL



 
MsGuns   (2002-07-03 16:34) [3]

procedure TMainForm.btCreateAliasClick(Sender: TObject);
var
i,j: integer;
begin
// Проверить наличие алиаса с таким же именем
ls.Clear;
Session.GetAliasNames(ls); // Получить список всех алиасов
for i := 0 to ls.Count-1 do
if CompareText(ls[i],MainForm.edNewAliasName.Text)=0 then break;
if i<=ls.Count-1 then // Алиас есть в IDAPI.Cfg
begin
if Session.GetAliasDriverName(ls[i]) = "STANDARD" then
// Алиас типа Paradox -> Найти его в списке Алиасов
for j := 0 to MainForm.lsbAliases.Count-1 do
if CompareText(MainForm.lsbAliases.Items[j],ls[i])=0 then
begin
MainForm.lsbAliases.ItemIndex := j;
ShowAliasInfo(ls[i]);
break;
end;
MainForm.edNewAliasName.Text := ls[i];
ShowMessage("Алиас с таким именем уже есть в IDAPI.cfg");
exit;
end;
sAliasName := MainForm.edNewAliasName.Text;
sAliasDir := MainForm.lbDirPath.Caption;
rmfNewAlias.edNewAlName.Text := sAliasName;
rmfNewAlias.edNewAlDir.Text := sAliasDir;
rmfNewAlias.ShowModal;
if sAliasName="" then exit;
// Создание нового алиаса
Session.AddStandardAlias(sAliasName,sAliasDir,"PARADOX");
Session.SaveConfigFile;
LoadAliasesList;
ShowAliasInfo(sAliasName);
end;




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

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

Наверх





Память: 0.45 MB
Время: 0.006 c
6-81395
demona
2002-05-15 17:25
2002.07.25
Как можно отслеживать и передавать сообщение через netsend


8-81387
Devid
2002-03-12 18:00
2002.07.25
Как заисать


14-81441
shubin
2002-06-27 16:24
2002.07.25
Нужен компонентик


14-81468
Александр
2002-06-26 22:55
2002.07.25
Опрос


3-81188
Фикус
2002-07-03 08:42
2002.07.25
торможу, помогите пожалуйста





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский