在线等，谁来答？

Question

我要将一个表中的某字段值更新到另一个表中，代码如下：
Dim db As Database
Set db = Workspaces(0).OpenDatabase(App.Path & "\luo") '打开数据库
Dim sql1 As String
sql = "update luo2 set  luo2.sl=luo2.sl+luo1.sl where luo2.num=luo1.num"
db.Execute sql
总是提示参数不足，为什么？？此SQL语句如何用？SQL测试也提示参数

Answer 1

试试:
update luo2 set luo2.sl=luo2.sl+ (select sl from luo1 where luo2.num=luo1.num)

Answer 2

update luo2 set  luo2.sl=a.sl+b.sl from luo2 a , luo1 b where a.num=b.num

Answer 3

update luo2 set  luo2.sl=luo2.sl+luo1.sl where luo2.num=luo1.num SQL 语句通不过！
楼上的语句可以解决！另外也可以用
update luo2 set  luo2.sl=luo2.sl+luo1.sl from luo2 left join luo1 on  luo2.num=luo1.num

Answer 4

两个形式，你自己选择Me.BorderStyle=2         '可自由改变
Me.Moveable=Falseme.BorderStyle=5         '不能最大最小化，但可以改变大小
Me.Moveable=False

Answer 5

to 楼主：
      SQL语句错误，更新1个表，牵扯2个表，是不能那样写的~~      上面的兄弟已经提供答案了，我只是没事说说，看能不能混到分而已，哈哈~

Answer 6

我要将一个表中的某字段值更新到另一个表中，代码如下：
Dim db As Database
Set db = Workspaces(0).OpenDatabase(App.Path & "\luo") '打开数据库
Dim sql1 As String
sql = "update luo2 set  luo2.sl=luo2.sl+luo1.sl from luo2 left join luo1 on  luo2.num=luo1.num"
db.Execute sql
总是提示语法错，为什么？？此SQL语句如何用？

Answer 7

aql="update luo2 set  luo2.sl=luo2.sl+luo1.sl where luo2.num=luo1.num"
db.execute (sql)

Answer 8

不好意思，笔误！
sql="update luo2 set  luo2.sl=luo2.sl+luo1.sl where luo2.num=luo1.num"
db.execute sql

Answer 9

sql = "select luo1.sl+luo2.sl as sl, luo1.num into tmp where luo1.num = luo2.num"
db.execute sqldb.execute "delete from luo2"
db.execute "insert into lou2 select * from tmp"
db.execute "drop table tmp"

Answer 10

correction:sql = "select luo1.sl+luo2.sl as sl, luo1.num into tmp from luo1,luo2 where luo1.num = luo2.num"
db.execute sqldb.execute "delete from luo2"
db.execute "insert into lou2 select * from tmp"
db.execute "drop table tmp"

Answer 11

试试这个!
update luo2 set luo2.sl=luo2.sl+(select sl from luo1 where luo1.num=luo2.num)