Question

vb如何设置同时操作多个数据库

Answer 1

我教你怎么跨数据库（跨服务器都可以）操作多数据表：
用ACCESS，就用他的一个ODBC功能做桥接，在VB中连接ACCESS数据库照常
我就给个ADO连接ACCESS连接SQL多数据库连接表联合查询三个数据库数据表的例子：
Private Sub 控件名称_事件过程(变量)
Dim A, B, C as String
'-----------------定义变量来存字符串
Adodc1.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.path & "\ACCESS数据库.后缀"
'-----------------连接ACCESS数据库照常
A="Select 字段1 AS 名称1, 字段2 as 名称2 From 表1 IN [ODBC] [ODBC;Server=SQL Server;uid=用户名;PWD=密码;Server=服务器IP;DataBase=数据库名1] Where 字段3 LIKE %'5555'%"

B="Select 字段8 AS 名称1, 字段9 as 名称2 From 表2 IN [ODBC] [ODBC;Server=SQL Server;uid=2用户名;PWD=密码;Server=服务器IP;DataBase=数据库名2]"

C="Select 字段3 AS 名称1, 字段4 as 名称2 From 表3 IN [ODBC] [ODBC;Server=SQL Server;uid=3用户名;PWD=密码;Server=服务器IP;DataBase=数据库名3]"

Adodc1.recordsoure= A & "Unoin" & B & "Unoin" & C
Adodc1.Refresh
Set 电子表格.DataSource=Adodc1
End Sub

Answer 2

你在这里没有说是什么数据库！我默认你是ACCESS的数据库！假设你这个时候要同时控制2个数据库

dim connstr,conn1,conn2
connstr="driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.MapPath("wubo.mdb")
set conn1=server.CreateObject("adodb.connection")
conn1.open connstr
'上面是连接一个数据库wubo.mdb

connstr="driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.MapPath("wubo1.mdb")
set conn2=server.CreateObject("adodb.connection")
conn2.open connstr
'上面是连接一个数据库wubo1.mdb

以后想控制那个数据库 就直掉用CONN1,conn2 就可以了
下面是代码

set rs=server.CreateObject("adodb.recordset")
sql="select count(*) from kh "
rs.open sql,conn1,1,1 这个是控制conn1的

set rs=server.CreateObject("adodb.recordset")
sql="select count(*) from kh "
rs.open sql,conn1,1,1 这个是控制conn2的

Answer 3

用SQL。