VB6.0中 adodc 修改sql数据语句怎么写？？？

Question

[size=10px]Adodc1.RecordSource = "update 图书信息  set  库存总量 = 库存总量 + Val(Text1(6).Text)  where 图书编号 =  Text1(0).Text "
提示错误是Text1是不可识别的函数名

Answer 1

Adodc1.RecordSource = "update 图书信息  set  库存总量 = 库存总量 + Val(Text1(6).Text)  where 图书编号 =  Text1(0).Text " 
提示错误是Text1是不可识别的函数名

Answer 2

Adodc1.RecordSource = "update 图书信息  set  库存总量 = 库存总量 + Val(Text1(6).Text)  where 图书编号 =  " & Text1(0).Text 

Answer 3

呵呵，好像是要用LIKe
但是改了以后还是没有效果
不过改用
        Adodc1.Recordset.Fields(7) = Adodc1.Recordset.Fields(7) + Val(Text1(6).Text)
就可以了还是不知道前面的错在哪里？？？？

Answer 4

Adodc1.RecordSource = "update 图书信息  set  库存总量 = 库存总量 + Val(Text1(6).Text)  where 图书编号 =  "'" & Text1(0).Text & "'"你前面直接把text1(0)包含在双引号里，被理解为传给SQL的函数名。而这个函数是不存在的。字符串类型的在SQL语句里要加单引号括起来。

Answer 5

Adodc1.RecordSource = "update 图书信息  set  库存总量 = 库存总量 +" &  Val(Text1(6).Text) & "  where 图书编号 =  " & Text1(0).Text 试试看

Answer 6

图书编号如果是varchar，就要加上单引号：
Adodc1.RecordSource = "update 图书信息  set  库存总量 = 库存总量 + Val(Text1(6).Text)  where 图书编号 =  "'" & Text1(0).Text & "'"