конфигурация ODBC

← →
Sir John © (2004-07-08 13:33) [0]

Коллеги, возможно ли программно отконфигурировать ODBC? Или существуют ли инсталяторы, которые делают это на этапе установки програмы?

← →
Курдль © (2004-07-08 13:45) [1]

Существуют. Install Shield

← →
Sir John © (2004-07-08 13:51) [2]

версия?

← →
Курдль © (2004-07-08 13:53) [3]

Да любая! Причем, я думаю, это любой инсталлер делать может - прописать в реестр нужные данные.

← →
Sir John © (2004-07-08 13:54) [4]

знать бы еще куда их прописывать - написал бы свою собственную программу-кнфигуратор.

← →
Ильш © (2004-07-08 13:57) [5]

отконфигурировать ODBC - Сэру Johnу поможет Лорд РЕЕСТР !!!

Вот рабочий скрипт установки Sybase ASA + ODBC - разбирайся (лень разжевывать)

function SetupRegistry() NUMBER nResult, nvInfo, nvType, nvSize; STRING key, tempPath, asaDir, sharedDir, szComponent, svInfo; STRING szDriverName, szDriverDLL, szDsnName, szDsnNameClient, szDsnNameUltraLite, szTransName, szTransDLL; begin szComponent = "ХЗХЗ\\Interfaces"; // Проверить в случае выборочной инсталляции установку клиента ComponentGetData (MEDIA, szComponent, COMPONENT_FIELD_SELECTED, nvInfo, svInfo); if (nvInfo != 1) then return 0; endif; nResult = CreateRegistrySet( "" ); RegDBSetDefaultRoot( HKEY_LOCAL_MACHINE ); asaDir = TARGETDIR ^ "ASA"; sharedDir = asaDir ^ "shared"; key = "SOFTWARE\\Sybase\\Adaptive Server Anywhere\\8.0"; if (RegDBGetKeyValueEx ( key, "Location", nvType, asaDir, nvSize) < 0) then // Клиент ставится на чистую машину asaDir = TARGETDIR ^ "ASA"; RegDBSetKeyValueEx( key, "Location", REGDB_STRING, asaDir, -1 ); RegDBSetKeyValueEx( key, "Shared Location", REGDB_STRING, sharedDir, -1 ); endif; // Setup a DSN for your database. szDriverName = "Adaptive Server Anywhere 8.0"; szDsnName = "LEAgent"; szDsnNameClient = "LEAgent"; szDsnNameUltraLite = "LEAgent"; szDriverDLL = TARGETDIR ^ "win32" ^ ODBC_DRIVER; RegDBSetKeyValueEx( "SOFTWARE\\ODBC\\ODBC.INI\\ODBC Data Sources", szDsnName, REGDB_STRING, szDriverName, -1 ); RegDBSetKeyValueEx( "SOFTWARE\\ODBC\\ODBC.INI" ^ szDsnName, "Driver", REGDB_STRING, szDriverDLL, -1 ); RegDBSetKeyValueEx( "SOFTWARE\\ODBC\\ODBC.INI" ^ szDsnName, "Description", REGDB_STRING, "Insurance agent", -1 ); // RegDBSetKeyValueEx( "SOFTWARE\\ODBC\\ODBC.INI" ^ szDsnName, // "UID", REGDB_STRING, "dba", -1 ); // RegDBSetKeyValueEx( "SOFTWARE\\ODBC\\ODBC.INI" ^ szDsnName, // "PWD", REGDB_STRING, "sql", -1 ); RegDBSetKeyValueEx( "SOFTWARE\\ODBC\\ODBC.INI" ^ szDsnName, "DatabaseName", REGDB_STRING, "LEAgent", -1 ); RegDBSetKeyValueEx( "SOFTWARE\\ODBC\\ODBC.INI" ^ szDsnName, "EngineName", REGDB_STRING, "LEAgent", -1 ); RegDBSetKeyValueEx( "SOFTWARE\\ODBC\\ODBC.INI" ^ szDsnName, "AutoStop", REGDB_STRING, "yes", -1 ); RegDBSetKeyValueEx( "SOFTWARE\\ODBC\\ODBC.INI" ^ szDsnName, "Compress", REGDB_STRING, "NO", -1 ); RegDBSetKeyValueEx( "SOFTWARE\\ODBC\\ODBC.INI" ^ szDsnName, "Debug", REGDB_STRING, "NO", -1 ); RegDBSetKeyValueEx( "SOFTWARE\\ODBC\\ODBC.INI" ^ szDsnName, "Integrated", REGDB_STRING, "NO", -1 ); RegDBSetKeyValueEx( "SOFTWARE\\ODBC\\ODBC.INI" ^ szDsnName, "DisableMultiRowFetch", REGDB_STRING, "NO", -1 ); RegDBSetKeyValueEx( "SOFTWARE\\ODBC\\ODBC.INI" ^ szDsnName, "CommLinks", REGDB_STRING, "SharedMemory, TCPIP{}", -1 ); return nResult; end;

Проблема до ужаса простая оказалась. Экспортируем нужные настройки ODBC в reg файл и запихиваем в инсталятор. Уносим на "чистую" машину. При установке инсталятор прописывает все сам.
Спасибо за приведеный код. ПОложил в архивчик. В жизни оно все пригодится :)

конфигурация ODBC Найти похожие ветки