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

jxj8038 2004-10-03 11:41:07
如何通过程序在系统ODBC数据源中自动增加一条odbc连接。
...全文
42 点赞 收藏 2
写回复
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
lxcc 2004-10-04
或者利用SQLConfigDataSource
http://community.csdn.net/Expert/FAQ/FAQ_Index.asp?id=196656
回复
lxcc 2004-10-04
'先在“引用"对话框中设置一个到 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
回复
发动态
发帖子

1180

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
社区公告
暂无公告