如何通过程序在系统ODBC数据源中自动增加一条odbc连接。

[jxj8038]

如何通过程序在系统ODBC数据源中自动增加一条odbc连接。

[lxcc]

'先在“引用"对话框中设置一个到 Microsoft Remote Data Object 2.0 对象库的引用
private sub RegisterDataSource()
Dim strAttribs As String
'建造关键字字符串。
'e:\card.mdb数据库文件名（包含路径）
strAttribs = "DBQ=" _
& "e:\card.mdb" _
& Chr$(13) & "OemToAnsi=No" _
& Chr$(13) & "SERVER=SEQUEL" _
& Chr$(13) & "Network=DBNMPNTW" _
& Chr$(13) & "Database=WorkDB" _
& Chr$(13) & "Address=\\SEQUEL\PIPE\SQL\QUERY"
'建立新的注册的 DSN。
rdoEngine.rdoRegisterDataSource "mydatasource", "Microsoft Access Driver (*.mdb)", True, strAttribs
End Sub

Private Sub Command1_Click()
RegisterDataSource
End Sub

[lxcc]

或者利用SQLConfigDataSource
http://community.csdn.net/Expert/FAQ/FAQ_Index.asp?id=196656