UC知道vb中判断text中的数据与数据库中的数据大小
来源：百度知道 编辑：UC知道 时间：2024/05/24 08:42:25
我设置了两个控件，一个是Combo，一个是text,combo显示的是零件ID，text是库存数量，现在我根据combo中的内容先要在数据库中找到，然后判断数据库中的库存数量与TEXT中的库存数量大小，小的话报错
想实现它我要怎么用VB编程啊，我数据库用的是SQL2000，拜托各位高手帮帮我吧
TEXT中的初始值数据库中本来就存在的
rs3.Find "(零件ID) ='" & Combo1.Text & "'"
If Val(Text3.Text) > Val(rs3.Fields("库存数量")) Then
MsgBox "库中存货不足", 48, "提示！"
Text3.Text = ""
Text3.SetFocus
End If
我这个程序是这么编的，可是第一句老是报错
想实现它我要怎么用VB编程啊，我数据库用的是SQL2000，拜托各位高手帮帮我吧
TEXT中的初始值数据库中本来就存在的
rs3.Find "(零件ID) ='" & Combo1.Text & "'"
If Val(Text3.Text) > Val(rs3.Fields("库存数量")) Then
MsgBox "库中存货不足", 48, "提示！"
Text3.Text = ""
Text3.SetFocus
End If
我这个程序是这么编的，可是第一句老是报错
rs3.Find "(零件ID) ='" & Combo1.Text & "'"
如果没有前提条件，这条语句可定报错
这里应该判断数据库是否打开，记录集是否打开，数据是否取的正确。
如果记录集打开且记录存在。在执行下面的语句
下面的语句没问题
If Val(Text3.Text) > Val(rs3.Fields("库存数量")) Then
MsgBox "库中存货不足", 48, "提示！"
Text3.Text = ""
Text3.SetFocus
End If
不知道你数据库中存数量的字段类型是什么，要是INT就转换下TEXT了。要是字符的就要转换TEXT和数据库两个字段了，然后拿TXET中的值和你数据库中的值做比较被。不明白你为什么着么写，理解不了你TEXT中的初始值是那里来的