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

jxj8038 2004-10-03 11:41:07
如何通过程序在系统ODBC数据源中自动增加一条odbc连接。
...全文
76 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
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

1,217

社区成员

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧