Пятница, 24.10.2025, 00:02
Приветствую Вас
Гость
|
RSS
Главная
|
Статьи
|
Регистрация
|
Вход
Меню сайта
Главная
Информация о сайте
Файлы
Статьи
Форум
Чат
Техподдержка
Игры
Категории раздела
Базы данных
[11]
Мультимедиа
[2]
Графика
[2]
Защита
[0]
Математика
[0]
Сеть-интернет
[1]
Система
[4]
Разное
[4]
Поиск
Вход на сайт
Наш опрос
Оцените мой сайт
Отлично
Хорошо
Неплохо
Плохо
Ужасно
[
Результаты
·
Архив опросов
]
Всего ответов:
7
Статистика
Онлайн всего:
1
Гостей:
1
Пользователей:
0
Мой сайт
Главная
»
Статьи
»
Базы данных
[
Добавить статью
]
Программно создаем Alias
Открыть в отдельном окне
Копировать
Печать
?
procedure
TForm1
.
Button3Click(Sender: TObject);
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
;
Источник:
http://delphisources.at.ua/publ/bazy_dannykh/alias/programmno_sozdaem_alias/33-1-0-57#
1
2
3
4
5
Категория:
Базы данных
|
Добавил:
maxim-pogasim
(03.09.2015)
Просмотров:
221
|
Теги:
Алиас
|
Рейтинг:
0.0
/
0
Всего комментариев:
0
Войдите:
Отправить
Программистами не рождаются.
Copyright BPC Team © 2014 - 2025
Хочу сжечь на костре этот дебильный
Хостинг от
uCoz