VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 如何动态新增、移除 ODBC DSN?
发表评论(0)作者:, 平台:, 阅读:10377, 日期:2000-04-02
主題:如何动态新增、移除 ODBC DSN?

來源:VB Square

版本:VB6 / VB5 / VB4-32

资料整理:影子 VB爱好者乐园 yingzi007.126.com






一般我们建立 Client 端 DSN 都是在使用者的机器上进入【控制面板】【ODBC 数据源(32位)】去建立,但是如果我们开发的 APP 使用者很多时,这就有点累人了,所以我们可以將这个动作放在程序中!


新增 DSN 的方法有二种:

1、使用 DBEngine 控件的 RegisterDatabase 方法

2、呼叫 SQLConfigDataSource API


不管使用以上任何一种方法新增 DSN,一共会写入二个地方,一个是注册表,一个是 ODBC.INI。


而刪除 DSN 的方法同上面的第二种方法,呼叫 SQLConfigDataSource API。


以下之模块以 Oracle73 Ver 2.5 为例,在 Form 的声明区中加入以下声明及模块:


Private Const ODBC_ADD_DSN = 1 ' Add data source

Private Const ODBC_CONFIG_DSN = 2 ' Configure (edit) data source

Private Const ODBC_REMOVE_DSN = 3 ' Remove data source

Private Const vbAPINull As Long = 0& ' NULL Pointer


Private Declare Function SQLConfigDataSource Lib "ODBCCP32.DLL" _

(ByVal hwndParent As Long, ByVal fRequest As Long, _

ByVal lpszDriver As String, ByVal lpszAttributes As String) As Long


Public Sub CreateDSN(sDSN As String)

Dim nRet As Long

Dim sDriver As String

Dim sAttributes As String

sDriver = "Oracle73 Ver 2.5"

sAttributes = "Server=Oracle8" & Chr$(0)

sAttributes = sAttributes & "DESCRIPTION=" & sDSN & Chr$(0)

'sAttributes = sAttributes & "DSN=" & sDSN & Chr$(0)

sAttributes = sAttributes & "DATABASE=DBFinance" & Chr$(0)

sAttributes = sAttributes & "Userid=Scott" & Chr$(0)

'sAttributes = sAttributes & "PWD=myPassword" & Chr$(0)

DBEngine.RegisterDatabase sDSN, sDriver, True, sAttributes '注一

'nRet = SQLConfigDataSource(vbAPINull, ODBC_ADD_DSN, sDriver, sAttributes) '注二

End Sub


Public Sub DeleteDSN(sDSN As String)

Dim nRet As Long

Dim sDriver As String

Dim sAttributes As String

sDriver = "Oracle73 Ver 2.5"

sAttributes = sAttributes & "DSN=" & sDSN & Chr$(0)

nRet = SQLConfigDataSource(vbAPINull, ODBC_REMOVE_DSN, sDriver, sAttributes)

End Sub

'假设要产生的 DSN 为 Test,实际使用示例如下:


Private Sub Command1_Click()

CreateDSN "Test"

End Sub


Private Sub Command2_Click()

DeleteDSN "Test"

End Sub

'而写到系統的数据如下:

1、ODBC.INI


[ODBC 32 bit Data Sources]

Test=Oracle73 Ver 2.5 (32 bit)


[Test]

Driver32=C:\ORAWIN95\ODBC250\sqo32_73.dll

2、注册表


机码:HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\ODBC Data Sources

名称:Test 数据:Oracle73 Ver 2.5


机码:HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\Test

名称:Description 数据:Test

名称:Driver 数据:C:\ORAWIN95\ODBC250\sqo32_73.dll

名称:Server 数据:Oracle8

名称:UserId 数据:Scott

※注一及注二可任选一种,只要將不使用的方法 Mark 起來即可!

※若您想使用其他之数据库,只要將以上模块稍作修改即可!