» Главная
eXcode.ru » Статьи » Delphi/Pascal » Большой FAQ по Delphi » Базы данных » Alias
» Новости
» Опросы
» Файлы
» Журнал



Пользователей: 0
Гостей: 11





Как добавить или изменить пользовательский ODBC DSN-источник для доступа к MS SQL-серверу




Автор: KSergey [s_wr@mail.ru]
WEB-сайт: http://delphibase.endimus.com


{ **** UBPFD *********** by delphibase.endimus.com ****
>> Добавляет (модифицирует) указанный пользовательский
ODBC DSN-источник для доступа к MS SQL-серверу

Модуль управления источниками DSN

Состоит из одной функции добавления (а при наличии - содержимое
модицицируется) пользовательского DSN-источника для доступа к MS
SQL-серверу. Кроме того в клиентских настройках прописывается протокол
TCP/IP и порт 1433 (за эту часть 100% уверенности нет в том смысле, что мне
не удалось найти документированного интерфейса для этих изменений).

Приведено в виде модуля для того, чтобы включить определение ф-ции
SQLConfigDataSource (т.к. не нашел этого описания в поставке Delphi).

Ссылки на источники:
http://www.rsdn.ru/qna/default.asp?db/datasrc.xml
http://www.bbd.net.ru/modules.php?op=modload&name=News&file=article&sid=16
http://www.firststeps.ru/mfc/odbc/r.php?14

Зависимости: Windows, Registry
Автор: KSergey, s_wr@mail.ru, ICQ:93229204, Новосибирск
Copyright: В качестве справки по работе с ф-цией
SQLConfigDataSource использовались источники, ссылки на которые есть в описании
Дата: 17 июня 2003 г.
***************************************************** }

interface

uses
Windows, Registry;

function AddDSNMSSQLSource(const ADSNName, AServer, ADataBase: string;
ADescription: string = ′′): Boolean;
function SQLConfigDataSource(
hwndParent: HWND; // Указатель на окно вызвавшее функцию
fRequest: WORD; // Тип запроса
lpszDriver: PChar; // Пользовательское имя драйвера
lpszAttributes: PChar // атрибуты
): Boolean; stdcall; external ′odbccp32.dll′ name ′SQLConfigDataSource′;

const
ODBC_ADD_DSN = 1; // Add data source
ODBC_CONFIG_DSN = 2; // Configure (edit) data source
ODBC_REMOVE_DSN = 3; // Remove data source

implementation

{******************************************************************************
* AddDSNMSSQLSource - добавляет (модифицирует) пользовательский DSN-источник
* для доступа к MS SQL серверу
* Дополнительно в клиентских настройках прописывается
* протокол TCP/IP и порт 1433
*
* Вход: ADSNName - имя DSN-источника
* AServer - имя сервера
* ADataBase - наименование БД на сервере по умолчанию
* ADescription - описание источника (необязательный параметр)
*
* Выход: TRUE - в случае успеха, FALSE - в противном случае
******************************************************************************}

function AddDSNMSSQLSource(const ADSNName, AServer, ADataBase: string;
ADescription: string = ′′): Boolean;
const
driver = ′SQL Server′;
var
params: string;

// эта ф-ция прописывает необходимые настройки для доступа к MS SQL по TCP/IP
// и на порт 1433
function SetNetLibParam: Boolean;
begin
Result := FALSE;
with TRegistry.Create do
try
RootKey := HKEY_LOCAL_MACHINE;
if OpenKey(′SoftwareMicrosoftMSSQLServerClient′, TRUE) then
if not KeyExists(′ConnectTo′) then
CreateKey(′ConnectTo′);
if OpenKey(′ConnectTo′, TRUE) then
begin
WriteString(AServer, ′DBMSSOCN,′ + AServer + ′,1433′);
Result := TRUE;
end;
finally
CloseKey;
Free;
end;
end;

begin
params := ′DSN=′ + ADSNName + #0′Server=′ + AServer + #0′DataBase= ′ +
ADataBase + #0′Description=′ + ADescription + #0#0;
Result := SQLConfigDataSource(0, ODBC_ADD_DSN, PChar(driver), PChar(params));
Result := Result and SetNetLibParam;
end;

end.


Пример использования:


if not AddDNSMSSQLSource(′ServerDSN′, ′big_server′, ′Clients′,
′Для программы работы с клиентами′) then
DoError;
К началу статьи





Добавил: LedWormДата публикации: 2005-08-07 18:25:54

Рейтинг статьи:0.00 [Голосов 0]Кол-во просмотров: 20635
Оцените статью:

Комментарии читателей

Всего комментариев: 2654

2017-10-19 00:23:31
trasutSr
Вы не правы. Я уверен. Могу отстоять свою позицию. Пишите мне в PM, пообщаемся.
, Замечательно, полезное сообщение

---

Готика 2 одиссея [url=http://www.palla.gr/index.php?option=com_k2&view=itemlist&task=user&id=115772http://yellowdevilz.com/index.php?option=com_k2&view=itemlist&task=user&id=1099203http://impanagiotopoulos.gr/index.php/component/users/?option=com_k2&view=itemlist&task=user&id=23088]тут[/url]

2017-10-16 11:54:02
Kpxmgct
Мы платим за лайки! - Выплаты ежедневно!

Наш сервис предоставляет настоящие лайки на фотографии заказчиков, которые готовы платить за качество.

Именно для этого мы и набираем удалённых сотрудников, которые будут выполнять работу, то есть ставить лайки и получить за это деньги.

Чтобы стать нашим удалённым сотрудником и начать ставить лайки, зарабатывая при этом 45 рублей за 1 поставленный лайк,

достаточно просто зарегистрироваться на нашем сервисе. > oplata-vklike.tk <

Вывод заработанных средств ежедневно в течении нескольких минут.

2017-10-16 09:52:17
Nsixjxe
Платим за лайки! - Ежедневные выплаты!

Наш сервис предоставляет настоящие лайки на фотографии заказчиков, которые готовы платить за качество.

Именно для этого мы и набираем удалённых сотрудников, которые будут выполнять работу, то есть ставить лайки и зарабатывать за это деньги.

Чтобы стать нашим удалённым сотрудником и начать ставить лайки, зарабатывая при этом 45 рублей за 1 поставленный лайк,

достаточно просто зарегистрироваться на нашем сервисе. > http://oplata-vklike.tk/ <

Вывод заработанных средств ежедневно в течении нескольких минут.

2017-10-15 15:27:50
Gomelps
Пройдите 1 регистрацию, сделайте 2 действия
и получайте от 8950 рублей каждые сутки в автоматическом режиме.

Мы гарантируем:
- Первый заработок в течении 60 минут.
- Стабильный доход 24 часа в сутки.
- Поступление денег без задержек.
- Для России, стран СНГ и Европы.
- Без вложений и установки ПО.
- Специально для новичков и людей без опыта.

Ознакомтесь с условиями на нашем сайте. ( http://prosto-dengi.tk/ )

2017-10-15 13:24:09
Ycyabry
Предлагаем Вам работу без вложений, на системе автоматического приёма и обработки заказов.

Мы предоставляем:

- Наш лицезионный софт.
- документы со всей необходимой доп. информацией.
- постоянная техническая поддержка.

Оплата от 5500 в день. Выплаты ежедневно.

Более подробная информация на нашем сайте >> www.obrabotka-zakazow.tk <<

2017-10-15 12:22:06
Iuhoddw
Заработок на просмотре видеороликов

Новинка интернет заработка видео-просмотры, которые приносят реальные деньги!

1 просмотр видео от 80 рублей! Все просто, понятно и доступно!

Оплата за просмотр моментально. На счёт который Вы укажите при регистрации.

Для начала работы пройдите несложную регистрацию на сайте: www.moneygrup.tk

2017-10-15 11:16:02
Zhamlcn
Интересная работа с обучением, зарплата ежедневно!

Вы работаете дома! Полностью честно и прозрачно;
Доступно для всех - неважно кто вы и какой у вас опыт работы в интернете!
Вы будете зарабатывать: свыше четырёх тысяч рублей в день!
Сложность: Несложно!
Оплата: - уже на следующий деньги у вас на счету!

Ознакомтесь с условиями у нас на сайте. > www.realno-money.tk < Скопируйте и вставьте в адресную строку Вашего браузера.

2017-10-15 10:20:54
Bfodvft
Платим за лайки! - Оплата сдельная!

Наш сервис предоставляет настоящие лайки на фото заказчиков, которые готовы платить за качество.

Именно для этого мы и набираем удалённых сотрудников, которые будут выполнять работу, то есть ставить лайки и получить за это деньги.

Чтобы стать нашим удалённым сотрудником и начать ставить лайки, зарабатывая при этом 45 рублей за 1 поставленный лайк,

Вам достаточно просто зарегистрироваться на нашем сервисе. > www.oplata-vklike.tk <

Вывод заработанных средств ежедневно в течении нескольких минут.

2017-10-14 13:16:19
Amxrzen
Высокооплачиваемая работа в интернете. Предлагаем: бесплатное обучение, страховые взносы в Пенсионный фонд, карьерный рост, официальный договор, свободный график, справка 2-НДФЛ,
Ваш возраст и образование значения не имеют. Обязательные условия: наличие компьютера и интернета. Скачайте и ознакомьтесь с нашими условиями и договором по ссылке -> http://q32.pw/bhYp <-
Важно!!! Вам ничего не нужно оплачивать, все расходы по обучению мы берём на себя.

2017-10-14 10:21:34
AlbertDer
Производство всех видов электромонтажного
оборудования для прокладки кабеля
[url=http://astra-electric.ru/index.php?id_product=71&controller=product]перфошвеллер[/url]

[URL=http://astra-electric.ru/index.php?controller=product&amp;id_product=86]кабельный лоток металлический перфорированный[/URL]

[URL=http://astra-electric.ru/index.php?id_category=40&amp;controller=category]лестничный лоток[/URL]

[URL=http://astra-electric.ru/index.php?id_product=56&amp;controller=product]короб кабельный[/URL]

[URL=http://astra-electric.ru/index.php?id_category=40&amp;controller=category]лоток кабельный нл[/URL]

[URL=http://astra-electric.ru/index.php?controller=category&amp;id_category=43]короб дкс[/URL]

[URL=http://astra-electric.ru/index.php?controller=product&amp;id_product=63]стойка кабельная[/URL]

[URL=http://astra-electric.ru/index.php?id_category=40&amp;controller=category]лоток кабельный нл[/URL]

[URL=http://astra-electric.ru/index.php?id_category=47&amp;controller=category]короба кабельные блочные[/URL]

[URL=http://astra-electric.ru/index.php?controller=product&amp;id_product=64]стойки для кабельных лотков[/URL]

[URL=http://astra-electric.ru/index.php?controller=product&amp;id_product=73]перфорированные уголки[/URL]

[URL=http://astra-electric.ru/index.php?id_product=27&amp;controller=product]короб кп[/URL]




[URL=http://astra-electric.ru/index.php?controller=category&amp;id_category=43]короб дкс[/URL]

[URL=http://astra-electric.ru/index.php?id_product=22&amp;controller=product]лоток лестничный нл40[/URL]

[URL=http://astra-electric.ru/index.php?controller=product&amp;id_product=64]полка кабельная к1162[/URL]

[URL=http://astra-electric.ru/index.php?controller=product&amp;id_product=73]уголок перфорированный[/URL]

[URL=http://astra-electric.ru/index.php?id_category=42&amp;controller=category]лоток кабельный[/URL]

[URL=http://astra-electric.ru/index.php?id_product=56&amp;controller=product]короб кабельный[/URL]

[URL=http://astra-electric.ru/index.php?controller=product&amp;id_product=64]полка кабельная к1163[/URL]

[URL=http://astra-electric.ru/index.php?id_product=56&amp;controller=product]короб металлический с крышкой[/URL]

[URL=http://astra-electric.ru/index.php?controller=product&amp;id_product=86]кабельный лоток металлический перфорированный[/URL]

[URL=http://astra-electric.ru/index.php?controller=product&amp;id_product=63]стойка кабельная к1150[/URL]

[URL=http://astra-electric.ru/index.php?id_product=56&amp;controller=product]короба кабельные[/URL]

[URL=http://astra-electric.ru/index.php?controller=product&amp;id_product=64]полки для кабельных лотков[/URL]

[URL=http://astra-electric.ru/index.php?id_product=37&amp;controller=product]металлические лотки[/URL]

[URL=http://astra-electric.ru/index.php?controller=product&amp;id_product=86]лоток металлический перфорированный цена[/URL]

[URL=http://astra-electric.ru/index.php?id_product=56&amp;controller=product]короба кабельные[/URL]

[URL=http://astra-electric.ru/index.php?id_product=56&amp;controller=product]короб кабельный кп[/URL]

[URL=http://astra-electric.ru/index.php?controller=product&amp;id_product=63]стойка кабельная[/URL]



[URL=http://astra-electric.mcdir.ru/kabelnye-koroba/742-korob-kabelnyj-zamkovyj-kzp-100h80.html]Короб кабельный замковый КЗП 100х80[/URL]

[URL=http://astra-electric.mcdir.ru/perfoprofili/347-perfougolok-2.html]Перфоуголок[/URL]

[URL=http://astra-electric.mcdir.ru/kabelnye-koroba/742-korob-kabelnyj-zamkovyj-kzp-100h80.html]Короб кабельный замковый КЗП 100х80[/URL]

[URL=http://astra-electric.mcdir.ru/kabelnye-koroba/page/4/]Кабельные короба &raquo; Страница 4 &raquo; Производство всех видов электромонтажного оборудования для прокладки кабеля[/URL]

[URL=http://astra-electric.mcdir.ru/kabelnye-koroba/740-korob-kabelnyj-zamkovyj-kzp-500h65.html]Короб кабельный замковый КЗП 500х65[/URL]
Ваше имя: *
Текст записи: *
Имя:

Пароль:



Регистрация

Как вы относитесь к интернет-магазинам?
Не доверяю
18% (16)
Ни разу не пользовался и не буду
16% (15)
Пользовался единожды
12% (11)
Пользуюсь регулярно
26% (24)
Пользовался бы, но нет денег
18% (16)
А что такие бывают?
2% (2)
Обычные магазины лучше!
8% (7)

Проголосовало: 91
У молодого хакера спрашивают:
- Максим, ну что тебе нравится, кроме женщин и компьютеров?
- Как что? Девушки и калькуляторы.
Рейтинг: 1.8/10 (5)
Посмотреть все анекдоты