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



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





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

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

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

2017-08-16 18:54:45
Adrianglona
джой казино сом официальный сайт
[url=http://cmkl.ru/]joycasino[/url] проблемы с доступом к joycasino com
<a href="http://cmkl.ru/">казино джойказино</a>

2017-08-16 08:03:48
Adrianglona
joycasino x
[url=http://cmkl.ru/]joycasino[/url] joycasino играть сейчас
<a href="http://cmkl.ru/">казино джойказино</a>

2017-08-15 18:08:43
Ruzanajek
[url=http://interpultstudio.blogspot.ru]НАБОР УСЛУГ ФОРУМЫ[/url]

2017-08-13 18:21:25
Craigjeoms
джойказино выплаты
[url=http://joycasino7ntl.ru/]http://joycasino7ntl.ru/[/url]
<a href="http://joycasino7ntl.ru/">джойказино</a>
доступ joycasino

2017-08-13 12:55:02
Craigjeoms
зина что за джойказино
[url=http://joycasino7ntl.ru/]joycasino[/url]
<a href="http://joycasino7ntl.ru/">джой казино официальный сайт</a>
джой казино зеркало вход

2017-08-13 06:50:00
Craigjeoms
joycasino зеркало
[url=http://joycasino7ntl.ru/]казино джойказино[/url]
<a href="http://joycasino7ntl.ru/">онлайн казино joycasino</a>
joycasino приложение на андроид

2017-08-12 01:38:55
Craigjeoms
138 joycasino com
[url=http://joycasino7ntl.ru/]джой казино официальный сайт[/url]
<a href="http://joycasino7ntl.ru/">джойказино</a>
joycasino скачать на андроид

2017-08-10 17:06:03
OlgaRyk


Без бумажки - ты букашка! [url=http://you-diplom.net/]купить аттестат[/url]

2017-08-10 10:15:05
Jeffreyhep
[url=http://vest-best.vsemaykishop.ru]Все майки[/url]

2017-08-10 05:37:13
Semens74
Праздники и события, которые мы отмечаем, обычно не проходят без цветов. Цветы оставляют красочные воспоминания о каждой дате. У любого человека имеется цветок, которому он отдаёт предпочтение из общего разнообразия. В нашем большом цветочном ассортименте можно найти цветы на любой вкус.
Если вы не уверены в точных предпочтениях того, кому хотите купить цветы, можете остановиться на красивых букетах. Наши букеты собраны опытными флористами. Букет из алых роз, красивых орхидей, утонченных хризантем и других, поражающих своей красотой цветов, будет чудесным подарком, как даме, так и джентльмену. Если вы хотите доставить радость девушке, то купите к букетук примеру мягкую игрушку. Подобный сюрприз станет по душе любой представительнице слабого пола.
Розы являются самыми популярными представителями флоры. Даря розы, вы наверняка угодите каждому человеку. Эти красивые цветы имеют неповторимый аромат, который может радовать продолжительное время. У нас на складе имеется огромный выбор сортов роз различной высоты и цветовой гаммы.

[url=http://sale-flowers.org/]купить розы спб[/url]

На вопросы касающиеся выбора букета или создания его по своему заказу могут ответить наши флористы.
КУПОН СКИДКИ: FORUM
Ваше имя: *
Текст записи: *
Имя:

Пароль:



Регистрация

Каким браузером вы пользуйтесь?
MS Internet Explorer
22% (66)
Mozilla
3% (8)
Mozilla Firefox
26% (77)
Opera
43% (130)
Konqueror
1% (3)
Netscape
0% (0)
Lynx
0% (0)
Galeon
0% (0)
Другим
5% (15)

Проголосовало: 299
Hardware это та часть компьютора, которую можно пнуть, если Shareware отказывается работать.
Рейтинг: 3/10 (1)
Посмотреть все анекдоты