vb查询数据库并用lable显示

来源：百度知道 编辑：UC知道 时间：2024/05/17 04:53:49
编译没有错误，但rs_money("单价")得出的结果总是0，不知是怎么回事？
rs_change.Open sqlsto, conn, adOpenKeyset, adLockPessimistic
rs_change("库存量") = rs_sto("库存量") - num
Text4.Text = ""
Text1.Text = ""
Text4.SetFocus
rs_change.Update
sqlmoney = "select 单价 from 库存信息表 where 商品ID='" & Text4.Text & "'"
rs_money.Open sqlmoney, conn, adOpenKeyset, adLockPessimistic
花费.Caption = rs_money("单价")
i = rs_money("单价") * num
sum = sum + i
花费.Caption = sum
sum总显示0，检查发现是因为rs_money("单价") 为0，但数据库中不是0，不知为什么？
花费.Caption = rs_money("单价") 没有

我晕哦.
你第三行才给text4赋值为""
那么你的 sqlmoney语句后面的 where 商品ID='" & Text4.Text & "'"
怎么能查询出来值呢?

还有,如果你的商品ID是数字类型的,在SQL语句中不需要加 ' ',
也就是 where 商品ID=" & Text4.Text 就可以了
如果你的商品ID是字符类型的,那你以前的语句就是正确的.

Text4.Text = ""
Text1.Text = ""
Text4.SetFocus
放到代码的最后