⑴ 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文件的路徑+文件名