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



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





Как добавить или изменить пользовательский 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]Кол-во просмотров: 21676
Оцените статью:

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

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

2018-04-03 17:02:08
Qzqqywx
Стабильная работа с обучением, оплата высокая!

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

Более подробная информация у нас на сайте. > www.pisma.exrabota.ru < Скопируйте и вставьте в адресную строку Вашего браузера.

2018-04-02 17:57:42
Irsbnpr
Мы платим за лайки! - Оплата сдельная!

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

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

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

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

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

2018-04-01 14:41:13
Wvbexyt
Предлагаем Вам работу без вложений, на системе автоматического приёма и обработки заказов.

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

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

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

Более подробная информация на нашем сайте >> www.zakaz.exrabota.ru <<

2018-03-18 22:17:54
Denisjnr
Приветствую Вас друзья!


Компания по созданию и продвижению сайтов "ПРО" предлагает успешное продвижение сайта!

Наша компания по созданию и продвижению сайтов полностью ориентирована на успешное продвижение Вашего сайта — мы учитываем все современные
правила продвижения, чтобы результат продвижения не только соответствовал ожиданиям, но и превосходил их!

Мы НАУЧИМ ВАШ САЙТ ПРОДАВАТЬ!!!


Независимо от того, каким образом Вы сделали заказ, Вам предоставляется консультация специалиста и делается предварительный расчет стоимости:


[url=http://www.pro-dvizheniesaitov.ru/]http://www.pro-dvizheniesaitov.ru [/url] - продвижение сайта в Перми

<a href=http://pro-dvizheniesaitov.ru/>продвижение</a> - заказывайте у нас


Мы будем рады Вас видеть у нас на вебресурсе

[url=http://pro-dvizheniesaitov.ru][img]http://dl4.joxi.net/drive/2018/01/17/0026/1614/1713742/42/51fbfb1cd7.jpg[/img][/url]

Увидимся!

[url=http://pro-dvizheniesaitov.ru/]разработка и продвижение сайтов[/url]
[url=http://pro-dvizheniesaitov.ru]seo продвижение[/url]
[url=http://pro-dvizheniesaitov.ru/sozdanie-sajtov.html]профессиональное создание сайтов[/url]
[url=http://pro-dvizheniesaitov.ru]вордстат яндекс[/url]
[url=http://pro-dvizheniesaitov.ru]система продвижения сайта[/url]
[url=http://pro-dvizheniesaitov.ru]сайт продвижение[/url]
[url=http://pro-dvizheniesaitov.ru]создание и продвижение сайта пермь[/url]
[url=http://pro-dvizheniesaitov.ru/prodvizhenie-sajtov.html]сео продвижение[/url]
[url=http://pro-dvizheniesaitov.ru]продвижение +в поисковых системах[/url]
[url=http://pro-dvizheniesaitov.ru]продвижение работа[/url]

2018-03-11 15:55:38
Andrecee
Счастья и здоровья
товарищи!

Пишу Вам потому, что
это может пригодится и для производства и в быту и для автосервисов.

Предлагаем продукцию для погрузочно - разгрузочных работ.


[url=http://dialstrop.ru]http://dialstrop.ru[/url]


Вам предоставляется консультация специалиста и делается предварительный расчет стоимости.

Нам будет приятно видеть у нас на сайте

<a href=http://dialstrop.ru>http://dialstrop.ru</a>

Будем на связи.

хотелось бы получить отзывы от Вас по нашей продукции

Андрей )


[url=http://dialstrop.ru][img]http://joxi.ru/823o5pXF6LNnQ2.jpg[/img][/url]

2018-02-23 02:33:45
Javiernaige
[ОГРАНИЧЕННОЕ ПРЕДЛОЖЕНИЕ] Зарабатывай онлайн от 10810 руб. за сутки.: http://googlenoomon.info/r/03/?p=7210

2018-02-14 17:27:28
Garlandbag
Хэлло!!

За время обучения я смогла услышать практически всех преподавателей этих курсов, так как были замены и первый курс я прошла с перерывом и продолжила уже с другой группой.
Донецке совет Официальный сайт Петровского района http: All posts Posts by community Search Cancel.
Оказывается в Москве есть фирмы, в обязанности сотрудников которых входит раз в день "скликивать" объявления конкурентов для нанесения коммерческого урона. ЧИТАТЬ >>> [url=http://bahed.mobi/sitemap.xml/]link[/url]

2018-02-14 17:27:24
Garlandbag
Хэлло!!

За время обучения я смогла услышать практически всех преподавателей этих курсов, так как были замены и первый курс я прошла с перерывом и продолжила уже с другой группой.
Донецке совет Официальный сайт Петровского района http: All posts Posts by community Search Cancel.
Оказывается в Москве есть фирмы, в обязанности сотрудников которых входит раз в день "скликивать" объявления конкурентов для нанесения коммерческого урона. ЧИТАТЬ >>> [url=http://bahed.mobi/sitemap.xml/]link[/url]

2018-02-08 14:27:20
Garlandbag
Наше почтение!!

Шаг навстречу "жертвам" черного сео Скажу как есть.
Существует много факторов, влияющих на позиции сайта в поисковой выдаче.
Просите пользователей оставить комментарии , поддерживайте разговор. ЧИТАТЬ >>> [url=https://bazyforumov.blogspot.com.by/2018/02/blog-post_82.html]post[/url]

2018-02-08 14:27:15
Garlandbag
Наше почтение!!

Шаг навстречу "жертвам" черного сео Скажу как есть.
Существует много факторов, влияющих на позиции сайта в поисковой выдаче.
Просите пользователей оставить комментарии , поддерживайте разговор. ЧИТАТЬ >>> [url=https://bazyforumov.blogspot.com.by/2018/02/blog-post_82.html]post[/url]
Ваше имя: *
Текст записи: *
Имя:

Пароль:



Регистрация

Как вы относитесь к AJAX?
Считаю это ЗЛОМ
11% (12)
Бесполезная технология
2% (2)
Мне параллельно
9% (10)
Неплохая технология
20% (23)
Рулез, как я без нее жил!
7% (8)
Я разработчик AJAX-приложений
5% (6)
А что? Хороший футбольный клуб!
12% (14)
Я в танке!!!
34% (38)

Проголосовало: 113
Разговаривают два юзера.
- Я слышал, что если проиграть CD-ROM c Виндоуз 2000 в обратную сторону, то получится послание от сатаны!
- Куда страшней другое: если ты проиграешь его как надо, то инсталлируется Виндоуз 2000...
Рейтинг: 5/10 (1)
Посмотреть все анекдоты