sql语句问题,我觉得没有错误,但是始终就是出错,还请帮忙看看.

Question

sql语句问题,我觉得没有错误,但是始终就是出错,还请帮忙看看.
dim cn as new adodb connection
cn.proder="driver....jet4.0"这里没有错误.这样写没有问题,就是同一个数据库里面的表:
cn.execute "update (select * from tbl1 inner join tbl2 on tbl1.代码=tbl2.代码) set tbl1.数量=tbl2.库存量"但是如果两个表不在同一个数据库,就不行了,不知道应该怎么解决:
cn.execute "update (select * from tbl1 inner join tbl2 in 'd:\sjk2.mdb' on tbl1.代码=tbl2.代码) set tbl1.数量=tbl2.库存量"
改成下面这样也不行:
cn.execute "update (select * from tbl1 as t1 inner join tbl2 in 'd:\sjk2.mdb' as t2 on t1.代码=t2.代码) set t1.数量=t2.库存量"我实在不知道应该怎么写了还请高手帮忙.谢谢.
要求就是把不同的两个数据库里的表,按照代码相同的条件,进行修改.请大家帮忙 .

Answer 1

两个数据库用两个连接来进行修改：
dim cn1 as new adodb connection
cn1.proder="driver....jet4.0"'连接数据库1dim cn2 as new adodb connection
cn2.proder="driver....jet4.0"'连接数据库2cn1.Execute("update ....")
cn2.Execute("update ....")

Answer 2

那么具体如何把第二个数据库中表的值通过sql语句设置给第一个数据库中的表呢?

Answer 3

dim cn1 as new adodb connection,rs1 as new adodb.recordset
cn1.proder="driver....jet4.0"'连接数据库1
cn1.CursorLocation=adUseClient
cn1.Open
dim cn2 as new adodb connection,rs2 as new adodb.recordset
cn2.proder="driver....jet4.0"'连接数据库2
cn2.CursorLocation=adUseClient
cn2.Openrs1.Open "select top 1 * from 表",cn1,3,2
rs2.Open "select * from 表 where ....",cn2,3,2 '从库2中取出记录，准备用来更新库1的表
dim strTemp as String,i%
For i=0 to rs1.Fields.Count-1
    strTemp=strTemp & rs1.fields(i).Name & "='" & rs2.fields(i).value & "','"
Next
strTemp=left(strTemp,len(strTemp)-2)'去掉后面多余的逗号和引号
cn1.Execute("update 表 set " & strTemp)

Answer 4

cn.execute "update tbl1 Set tbl1.数量=tbl2.库存量 From tbl1 Inner Join tbl2 In 'd:\sjk2.mdb' on tbl1.代码=tbl2.代码"

Answer 5

试试“
cn.execute "update (select * from tbl1 inner join [d:\sjk2.mdb].tbl2 as t on tbl1.代码=t.代码) set tbl1.数量=t.库存量"d:\sjk2.mdb有密码的话：
cn.execute "update (select * from tbl1 inner join [d:\sjk2.mdb;pwd=123].tbl2 as t on tbl1.代码=t.代码) set tbl1.数量=t.库存量"

Answer 6

to 家人：不行呀。我试了，提示：from字句语法错误。怎么办？

Answer 7

提示：join操作语法错误，难道就没有办法把一个数据库表中的数据导入到另一个数据库表中去？

Answer 8

我直接在ACCESS中建立了查询试过了，没问题：
select * 
from tbl1 as s inner join [d:\sjk2.mdb].tbl2 as t 
on s.代码=t.代码update (select * 
       from tbl1 as s inner join [d:\sjk2.mdb].tbl2 as t 
       on s.代码=t.代码) as q
set s.数量=t.库存量