Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

ODBC. Программно создать системный DSN. [D6, MSSQL]


Pyton ©   (2004-08-30 10:29:00) 

Вот в принципе и вопрос: как можно программно создать системный DSN?

Заранее спасибо.


KSergey   (2004-08-30 11:59:00) [1]

http://delphibase.endimus.com/?action=viewfunc&topic=basemssql&id=10442


Pyton   (2004-08-30 11:58:00) [2]

Пасиба разобрался :)


DiamondShark   (2004-08-30 11:45:00) [3]

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

 ODBC_ADD_SYS_DSN     = 4; // add a system DSN
 ODBC_CONFIG_SYS_DSN  = 5; // Configure a system DSN
 ODBC_REMOVE_SYS_DSN  = 6; // remove a system DSN

 ODBC_REMOVE_DEFAULT_DSN = 7;   // remove the default DSN

function SQLConfigDataSource(
 hwndParent: HWND;
 fRequest: WORD;
 lpszDriver: LPCSTR;
 lpszAttributes: LPCSTR
): BOOL; stdcall; external 'odbccp32.dll';

lpszDriver -- Имя драйвера
lpszAttributes -- Пары Key=Value разделённые #0.
Должно содержать ключ DSN=имя_источника и любое количество определяемых драйвером ключей.
Строка кончается двумя #0.

Если hwndParent <> 0, драйвер может показать диалоговое окно в случае если lpszAttributes содержит недостаточно информации для создания источника. Если hwndParent = 0, то функция в этом случае просто вернёт FALSE.


Наверх

Титульная страница Поиск, карта сайта Написать письмо