⑴ vb中判断text中的数据与数据库中的数据大小
rs3.Find "(零件ID) ='" & Combo1.Text & "'"
如果没有前提条件，这条语句可定报错
这里应该判断数据库是否打开，记录集是否打开，数据是否取的正确。
如果记录集打开且记录存在。在执行下面的语句
下面的语句没问题
If Val(Text3.Text) > Val(rs3.Fields("库存数量")) Then
MsgBox "库中存货不足", 48, "提示！"
Text3.Text = ""
Text3.SetFocus
End If
⑵ 用VB如何找到数据库里的最后一条记录或txt文件里的最后一行数据
数据库：执行查询语句后得到一个Recordset，使用RecordSet.MoveLast属性可以找到最后一条记录。
TXT文件：Open
StrPath
For
Input
As
#1
Do
While
Not
EOF(1)
Line
Input
#1,
TXTCon
i
=
i
+
1
Loop
Close
#1
以上是读取txt文件的方法，当close后i的值就是txt文件的总行数。然后再运行下面的方法
Open
StrPath
For
Input
As
#1
Do
While
Not
EOF(1)
Line
Input
#1,
TXTCon
If
j=
iThen
msgbox
TXTCon
'这个就是最后一行记录
Close
#1
Exit
Sub
End
If
j=
j
+
1
Loop
Close
#1
StrPath
是txt文件的路径+文件名