Private Sub kucun()
Dim rstemp As ADODB.Recordset
Set rstemp = New ADODB.Recordset
rstemp.LockType = adLockOptimistic
sqlconnection = Provider = "Microsoft.jet.oledb.4.0;" & "data source=" & App.Path & "\ruku.mdb"
rstemp.Open "select * from kucun where 器具名稱='" & Trim(Text1.Text) & "'", cn, adOpenDynamic
If rstemp.RecordCount = 1 Then
rstemp.Fields("數量") = rstemp.Fields("數量") + Text2.Text
rstemp.Update
rstemp.Close
Set rstemp = Nothing
Else
rstemp.Fields("器具名稱") = Text1.Text
rstemp.Fields("數量") = Text2.Text
End If
紅字出錯誤求助
uj5u.com熱心網友回復：
rstemp.Open "select * from kucun where 器具名稱='" & Trim(Text1.Text) & "'", cn, adOpenDynamic上述代碼似乎缺了東西，應該改為如下代碼。
rstemp.Open "select * from kucun where 器具名稱='" & Trim(Text1.Text) & "'", cn, adOpenDynamic, adLockOptimistic
uj5u.com熱心網友回復：
Dim cn As ADODB.Recordset
Dim rstemp As ADODB.Recordset
Set rstemp = New ADODB.Recordset
rstemp.LockType = adLockOptimistic
sqlconnection = Provider = "Microsoft.jet.oledb.4.0;" & "data source=" & App.Path & "\ruku.mdb"
rstemp.Open "select * from kucun where 器具名稱='" & Trim(Text1.Text) & "'", cn, adOpenDynamic '沒有cn物件
'修改為：
Dim cn As New ADODB.Connection '定義資料庫連接物件 cn
Dim rstemp As New ADODB.Recordset
rstemp.LockType = adLockOptimistic
sqlconnection = Provider = "Microsoft.jet.oledb.4.0;" & "data source=" & App.Path & "\ruku.mdb"
cn.Open sqlconnection '這里必須打開資料庫連接
rstemp.Open "select * from kucun where 器具名稱='" & Trim(Text1.Text) & "'", cn, 3, 2 '
uj5u.com熱心網友回復：
你必須宣告一個連接物件 cn，并先打開它，才能在打開記錄集物件的陳述句中參考它。轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/60935.html
標籤：VB基礎類