VB *** 作两个数据库，从A数据库表中查询，然后写入B数据库表中！

这个不难

我教你怎么跨数据库（跨服务器都可以） *** 作多数据表：

新建一个ACCESS，放在VB工程目录下，什么都不要去做，就用到他的一个ODBC功能做桥接，在VB中连接ACCESS数据库照常

我就给个ADO连接ACCESS连接SQL多数据库连接表联合查询两个数据库数据表的例子：

Private Sub 控件名称_事件过程(变量)

Dim A, B as String

'-----------------定义变量来存字符串

Adodc1.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0Data Source=" &App.path &"\ACCESS数据库.后缀"

'-----------------连接ACCESS数据库照常

A="Select 字段1 AS 名称1, 字段2 as 名称2 From 表1 IN [ODBC] [ODBCServer=SQL Serveruid=用户名PWD=密码Server=服务器IPDataBase=数据库名1] Where 字段3 LIKE %'5555'%"

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

Adodc1.recordsoure= A &"Unoin" &B

Adodc1.Refresh

Set 电子表格.DataSource=Adodc1

End Sub

看到没有？跨了数据库，服务器都可以跨，SQL语句没多大问题吧？我相信，推荐答案那么简单的语句只能解决SQL *** 作问题。

VB读取数据库并显示出来的方法可参考下面用控件的实现方法：

ACCESS数据库，用VB6里的Data控件，选中它，设置属性：

DatabaseName 属性：连接到数据库文件

RecordSource 属性：连接数据表（可以用Select语句返回记录集）

然后使用它的：data1.Recordset.Fields(“字段名”)，就可以返回获得你说的内容了。

第一步：你要知道那台电脑的计算机名或者ip地址；

第二步：共享数据库所在的文件夹，要将共享权限设置为能够读写的权限；

第三步：在你的电脑上运行一下那个共享路径：\\计算机名\

共享文件夹

，看能不能打开，如果能

打开，说明共享成功，才能调用代码连接，如果需要用户名和密码你要输入那台电脑的一组用户名和密码；

第四步：在第三步成功的情况下，调用以下代码：

dim

数据库路径

as

string

dim

数据库密码

as

string

数据库路径="\\计算机名\共享文件夹\数据库.mdb"

数据库密码=你的数据库密码（如果没设密码，就为空）

adodc1.ConnectionString="provider=Microsoft.Jet.OLEDB.4.0Data

source

="

_

&

数据库路径0

&

"Jet

OLEDB:Database

Password="

&

数据库密码

adodc1.recordsource="select

*

from

user"

adodc1.Refresh

---