Sq1 = "select * from 學生資訊表 where 姓名='" & 學號 & "'"
Rs.Open sqlstr, Conn, adOpenKeyset, adLockOptimistic
If Myjl.EOF = True Then
MsgBox "沒有" & 學號 & " 這個用戶", vbOKOnly + vbExclamation, ""
Text3.SetFocus
Else
Myjl.Fields(1) = Text3.Text
Myjl.Update
Myjl.Close
MsgBox " 密碼修改成功", vbOKOnly + vbExclamation, "成功!"
運行的時候顯示Rs.Open sqlstr, Conn, adOpenKeyset, adLockOptimistic引數型別不正確或不在可以接受的范圍之內
應該怎么改yi'xia'a
uj5u.com熱心網友回復：
你這個為什么報錯沒看出來，但是下面的“Myjl”是不是有問題，是不是應該是“RS”uj5u.com熱心網友回復：
Sq1 = "select * from 學生資訊表 where 姓名='" & 學號 & "'"問題1‘’姓名=學號，習慣上不這樣定義
問題2 ‘’學號是放在text中，要用text屬性才能取得學號
Rs.Open sqlstr, Conn, adOpenKeyset, adLockOptimistic
If Myjl.EOF = True Then
問題3 ''定義記錄集標識為RS
’這個記錄名為myjl改為rs
MsgBox "沒有" & 學號 & " 這個用戶", vbOKOnly + vbExclamation, ""
同樣的學號問題
Text3.SetFocus
問題4，RS.EOF=TRUE說明記錄不存在，增加記錄的代碼該在這里處理
問題5，增加記錄要呼叫addnew方法
Else
Myjl.Fields(1) = Text3.Text
Myjl.Update
Myjl.Close
MsgBox " 密碼修改成功", vbOKOnly + vbExclamation, "成功!"
uj5u.com熱心網友回復：
人為習慣上，記錄不存在，直接增加即可，不需要彈出視窗讓用戶在確認一遍當然，Text3.SetFocus 這個代碼也不需要，直接增加保存
uj5u.com熱心網友回復：
改過了還是不對 就只提示那一句話錯誤 也不知道到底哪里出了問題uj5u.com熱心網友回復：
Sq1 = "select * from 學生資訊表 where 姓名='" & 學號 & "'"Rs.Open sqlstr, Conn, adOpenKeyset, adLockOptimistic
兩個變數名不一致
uj5u.com熱心網友回復：
改過變數名了 也不對 還是提示那個錯誤uj5u.com熱心網友回復：
從哪復制粘貼過來的代碼啊？uj5u.com熱心網友回復：
自己寫的uj5u.com熱心網友回復：
確定不是拼揍的？
uj5u.com熱心網友回復：
樓上，你是在學校學VB?uj5u.com熱心網友回復：
太亂了，你的代碼，前面寫的查詢陳述句變數名為 sql ,后面 rs.open 中用的卻是 sqlstr , 你寫代碼的時候沒有全神貫注呀，這樣1小時寫的代碼 會花8 個小時來排錯，一定要注意轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/18487.html
標籤：VB基礎類