您的位置：程序门 -> vb -> 数据库（包含打印，安装，报表)

为什么到这步不执行了!!!!请各位高手帮忙瞧瞧!!!!

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

为什么到这步不执行了!!!!请各位高手帮忙瞧瞧!!!!

发表于：2007-06-06 15:16:47 楼主

dim conn as adodb.connection

dim rs as new adodb.recordset
set conn = new adodb.connection
conn.connectionstring = connectstring
conn.cursorlocation = aduseclient
conn.open '连接数据库
'判断材料库存表中是否有当前材料的记录

rs.open "select * from clkc where 材料名称= ' " & trim（txtfields（0).text) & " ' ", conn, adopenkeyset, adlockbatchoptimistic

if rs.eof = true then
msgbox "该仓库没有该种材料可出库！ ", vbokonly + vbexclamation, "警告 "
txtfields（0).setfocus
exit sub
else
if val（rs![重量]) - val（txtfields（1).text) < 0 then
msgbox "该仓库没有足够数量的该种材料可出库！ ", vbokonly + vbexclamation, "警告 "
txtfields（1).setfocus
exit sub

else

就是这下面一步,他不会更新数据!!!
rs![重量] = val（rs![重量]) - val（trim（txtfields（1).text))

rs.update
rs.close

各位高手帮忙看看了!!!先谢过
!!!!!

发表于：2007-06-06 15:26:361楼得分:0

你用update 更新吧

发表于：2007-06-06 15:33:212楼得分:0

1、检查rs![重量]是否为空,试一下rs![重量] =3，看会不会更新，

2、或者使用update 表 set .. where 更新

发表于：2007-06-06 15:46:433楼得分:0

试过rs![重量]=3 但是还是不会更新
你说的update该怎么用呢??

发表于：2007-06-06 16:10:024楼得分:0

直接update

sql= "update clkc set [重量]=3 where 材料名称= ' " & trim（txtfields（0).text) & " ' "

conn.excute sql

或者你试试看
rs.fields!（重量)=3

发表于：2007-06-06 16:35:165楼得分:0

但是我要他rs![重量] = val（rs![重量]) - val（trim（txtfields（1).text))
我该怎么编呢?

发表于：2007-06-07 18:44:256楼得分:0

最好用sql语句 update 更新应该好一点。我翻阅了很多书。更新都是用sql语句的

发表于：2007-06-07 20:40:327楼得分:0

sql= "update clkc set [重量]=[重量]- "& val（trim（txtfields（1).text) & " where 材料名称= ' " & trim（txtfields（0).text) & " ' "

其他资讯