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



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





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

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

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

2017-06-26 16:28:13
dating website
Клубные вечеринки знакомств, анкеты мужчин и женщин с фото и без, советы по соблазнению, сексу и психотехнологии http://milochka.girlspics.pro/

2017-06-26 13:11:39
malinarof
Ведущая компания в России и странах СНГ по продаже авиабилетов «Airline»

Крупнейшая международная компания по продаже А/В билетов
срочно набирает сотрудников на постоянную основу для несложной
работы через интернет, с ежедневными выплатами от 11 000 руб.

Работая в нашей компании Вы получаете:

- Соблюдение трудового кодекса
- Полный соцпакет, оплачиваемый отпуск, больничный, санаторий.
- Каждый наш сотрудник на дому гарантированно получает высокий доход. руб. в день.
- Гарантированные стабильные выплаты заработанных денег.
- Выплаты происходят ежедневно на банковские карты или электронные кошельки.

Пройдите регистрацию у нас на сайте. > www.Airline-Rabota.tk <

Без вложений, опыт и профессиональные навыки не требуются!

2017-06-26 10:40:40
Charlesref
Ну а снизу необходимо будет предусматривать надежный пароизоляционный барьер – из специальной пленки или фольгированного рулонного утеплителя, о котором речь пойдет чуть ниже <a href="http://www.sibear.ru/information/stoly-so-stekljannoj-stoleshnicej.htm">отсюда.</a>.

2017-06-26 03:33:04
Jasonteert
Вкуснейший экзотический плод - мангустин, стал настоящим открытием в диетологии!
Он содержит РЕКОРДНОЕ количество полезных веществ, стимулирующих активное жиросжигание и снижающих вес!
Сироп мангустина растопит до 10 кг жира за 2 недели!
Спаситесь от ожирения и сократите риск инфаркта, диабета и гипертонии на 89%.

Но ее не следует выбрасывать, ведь именно на эту кожуру приходится максимальное количество его питательных веществ. Но в етой диете как же похудеть, если есть такие салатики можно? Йогурт можно сделать самому: при помощи аптечной закваски, или же взбив и кефир, из простокваши. Он начинает действовать мгновенно, сразу же после поступления в организм. Он стал победителем в номинации «Лучшее средство для коррекции веса». Однако, если девушка решила купить мангустин, она должна изучить отзывы и результаты похудевших, которые уже приобретали средство у данного продавца. Еще одним подтверждением того, что сироп для похудения MANGOSTEEN эффективно выполняет свою работу, является то, что он не имеет никаких противопоказаний и не может вызвать побочных эффектов. По понедельникам в бассейне проводятся бесплатные уроки дайвинга, организованные одним их лучших в Таиланде дайвинг-центром Sea Bees. Все эти компоненты, антиоксиданты, витамины, экстракты, минералы помогают устранить проблему растяжек в комплексе, успешно усиливая действие друг друга в составе крема. Такое поразительное действие на кожу обусловлено его составомMangosteen.

[b]Перейти на сайт:[/b] http://mangjoo77.mangoosteen.com/

2017-06-26 02:09:47
free dating
Про знакомства, база анкет с рейтингами, статьи о знакомствах http://messalina.fubar.pro/

2017-06-26 00:10:34
Nathangob
Курсы фармацевтов и провизоров.

Все работники сфер фармацевтики и здравоохранения, особенно занятые на работах по производству, хранению и реализации медицинских препаратов, обязательно должны проходить курсы повышения квалификации каждые 5 лет.

Это связано со многими факторами: изменением лекарств, их форм выпуска, назначением и дозировками, а также с ознакомлением с новыми технологиями и возможными изменениями в правовой базе фармацевтики. Обязательным условием получения сертификата фармацевта является успешная сдача экзаменов по окончании обучения. Курсы фармацевта, как и курсы провизора, дают возможность продолжить работу в этой сфере без претензий со стороны контролирующих органов, которые в обязательном порядке проверяют все сертификаты при ревизии медицинского учреждения.

[url=http://нцмо.рф/page/promo-2]сертификат провизора в москве[/url] , включая специалистов фармацевтических компаний, могут осуществляться как государственными, так и частными центрами по переподготовке кадров, которые имеют аккредитацию министерства и вправе выдавать лицензированные сертификаты провизоров, фармацевтов и остальных специалистов. Но, в отличие от государственных учреждений, частные центры предоставляют гораздо большие возможности для прохождения курсов фармацевтов.

2017-06-25 19:17:54
KolenbyRaf
Хороший софт для телефона и сериалы HD на одном интернет-портале

Русские фильмы и иностранные сериалы в высоком качестве, недавно вышедшие учебники и клёвые заставки на рабочий стол — все это вы можете найти, если заглянете на сайт [b]ste-pashka.ru[/b]

Журналисты-файловики портала постоянно проверяют утилиты, размещаемые в указанной категории сайта, чтобы трояны случайно не проникли на ноутбук пользователя.

На данном сайте вы найдете как свободно распространяемые программы, так и отдельные версии коммерческих дистрибутивов программ, которые были вылечены программистами. Дорогостоящие программы для android пока не нуждаются в в модификациях, даже если вы скачали [url=http://ste-pashka.ru/]популярные книги 2018 epub через торрент[/url] : они без особых проблем функционируют на современных приборах. А вот программки для iPhone смогут устанавливать только хозяева смартфонов с «джейлбреком».

2017-06-25 18:06:57
walinarof
Предлагаем Вам работу без вложений, на системе автоматического приёма и обработки заказов.

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

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

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

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

2017-06-25 15:15:46
sElenarof
Наш сервис предоставляет настоящие лайки на фото заказчиков, которые готовы платить за качество.

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

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

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

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

2017-06-25 12:13:11
dating website
Все о знакомствах с девушками, анкеты мужчин и женщин с фото. поиск анкет, статистика, рейтинги, тесты, гадания, астрология http://lahudra.fubar.pro/
Ваше имя: *
Текст записи: *
Имя:

Пароль:



Регистрация

Каким языком программирования вы чаще пользуйтесь?
C++
27% (108)
Delphi
47% (190)
PHP
8% (34)
Basic
3% (13)
Assembler
3% (11)
ASP
1% (6)
Perl
3% (11)
JAVA
3% (14)
Другой
4% (17)

Проголосовало: 404
Другой кибернетик придумал робота-андроида и настроил его на оптимальное выполнение задач. В качестве теста приказал ему принести 5 тысяч долларов. Робот вернулся через 2 минуты со страховкой маленького сына кибернетика.
Рейтинг: 1.8/10 (5)
Посмотреть все анекдоты