Question

vb 写入和修改系统控制面板中的odbc数据源管理器

编写vb程序 让程序能通过text1中的地址 在系统odbc数据源管理 Microsoft access driver（*.mdb）中添加一个不固定的数据库
也就是说 程序运行的时候检测系统中有没有text1.text中的数据库 如果没有则弹出form2
form2中有一个text1和一个浏览按钮和保存按钮 点浏览按钮找到数据库的地址确定后将地址显示在text1.text中 点击保存 就能将系统odbc数据源中的Microsoft access driver（*.mdb）数据源更换成刚刚输入的 数据库
数据库没有密码
数据库是存在与局域网内的其他计算机上的
能运行者加分
谢谢了

Answer 1

如果要达到你的使用效果，不能用odbc数据源(修改数据源是需要修改系统设置的)，可以在你的form2中修改连接数据库的代码，在text2中输入所连接数据库的路径和数据库文件名，点击保存，就可以连接到你需要连接的数据库了。
但是我不清楚你的目的是什么，由于数据库不同，其数据表也会不同，那么不仅仅修改数据库连接就可以，数据表的连接以及程序中由于数据表不同其界面和代码同样不同，那么修改数据库后其应用程序同样需要修改，这样是不是太繁琐？
你为何不能将不同的数据库中的数据表放在同一个数据库中？

Answer 2

为什么用 odbc数据源 那么麻烦
直接用代码连接 不就行了

text1中是数据库的地址
strDSN = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & text1.text & ";Persist Security Info=False;Jet OLEDB:Database Password=''" 'Access2003
ssql="select * from 表1 "
On Error Resume Next
If rst.State = 1 Then rst.Close
rst.CursorLocation = adUseClient
rst.Open ssql, strDSN, adOpenDynamic, adLockOptimistic

Answer 3

数据库不同，其数据表也会不同