VB+ACCESS2003 求剩余运算写法

Question

查询出来的  
如: 我要查询 1组 ST009 黑色 L 500 460  结果集显示
    
  组号 款式 颜色 尺寸 领到 完成 剩余
  1组 ST009 黑色 L     500   460
  1组 ST009 白色 m    300   200
如果把 领到 减去 完成 写入 剩余  
 
如何把剩余自动完成 并写入

Answer 1

Dim cn As New ADODB.Connection
     Dim SqlStr As String
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Mode=ReadWrite;Persist Security Info=False;Jet OLEDB:Database Password=111"
    SqlStr = "UPDATA 表名 SET 剩余 = 领到 - 完成" 
cn.Excute SqlStr 

Answer 2

在另外一个帖子回复你了，你竟然把update当做vb语句，其实是sql语句，执行sql语句：
Update diaodou set 剩余=领到 - 完成这里的“剩余、领到 、 完成”三个字段必须是数字型的，如果是字符型的会报错。http://www.w3school.com.cn/sql/sql_update.asp

Answer 3

cn.Excute SqlStr我运行好是出错!上面写: microsoft jet数据库引擎找不到输入表或查询'Excute'.确定它是否存在,以及它的名称的拼写是否正确

Answer 4

Private Sub Command9_Click()
Dim cn As New ADODB.Connection
  Dim SqlStr As String
  cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\huwu.mdb;Mode=ReadWrite;Persist Security Info=False;Jet OLEDB:Database Password=111"
  SqlStr = "UPDATA biaodou SET 剩余 = 领到 - 完成"
  cn.Excute SqlStrEnd Sub

Answer 5

SqlStr = "UPDATE biaodou SET 剩余 = 领到 - 完成"
我的错误，拷贝了别人的没仔细看

Answer 6

cn.Excute SqlStr
  这是这个地方错呀!现在就是这样的!! UPDATE 这个地方我也改了

Answer 7

SqlStr = "UPDATE biaodou SET 剩余 = 领到 - 完成 where 编号 > 0"

Answer 8

SqlStr = "UPDATE biaodou SET 剩余 = 领到 - 完成 where 编号 > 0"也加上了 还是出现这个错误

Answer 9

EXECUTE
提示不是写了么？
再说了，不能一味复制别人的
conn后面打个逗号就出来了