leader820424 2007-11-23 09:42
主題：如何动态新增、移除 ODBC DSN
版本：VB6 / VB5 / VB4-32
一般我们建立 Client 端 DSN 都是在使用者的机器上进入【控制面板】【ODBC 数据源(32位)】去建立，但是如果我们开发的 APP 使用者很多时，这就有点累人了，所以我们可以將这个动作放在程序中！
新增 DSN 的方法有二种：
1、使用 DBEngine 控件的 RegisterDatabase 方法
2、呼叫 SQLConfigDataSource API
不管使用以上任何一种方法新增 DSN，一共会写入二个地方，一个是注册表，一个是 ODBC.INI。
而刪除 DSN 的方法同上面的第二种方法，呼叫 SQLConfigDataSource API。
以下之模块以 Oracle73 Ver 2.5 为例，在 Form 的声明区中加入以下声明及模块：
** Const ODBC_ADD_DSN = 1 ' Add data source
** Const ODBC_CONFIG_DSN = 2 ' Configure (edit) data source
** Const ODBC_REMOVE_DSN = 3 ' Remove data source
** Const vbAPINull As Long = 0