Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\jsyxxgl.mdb"
rs.Open "select * from Main_User", conn, 2, 2
Private Sub Command3_Click()
If rs.EOF Then
MsgBox "已到末記錄", 48, "記錄瀏覽"
Else
rs.MoveNext
Call display
End If
End Sub
這個程式我是按照教程寫的，問題就是會超出下邊，出現3021實時錯誤，本人是新手，希望能有大神能解答這個問題，感激不盡~~~
源檔案：http://pan.baidu.com/s/1geM4yZp
uj5u.com熱心網友回復：
1)用客戶端游標Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.CursorLocation = adUseClient '<-
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\jsyxxgl.mdb"
rs.Open "select * from Main_User", conn, 2, 2
2)rs.Open 之后判斷一下記錄是否為空，如果為空 Command3 就不能操作。
uj5u.com熱心網友回復：
@Tiger_Zhao 那個BOF還是判定不出來，一直False 是我那個代碼有錯嘛？uj5u.com熱心網友回復：
BOF、EOF 屬性 (ADO)BOF 指示當前記錄位置位于 Recordset 物件的第一個記錄之前。
EOF 指示當前記錄位置位于 Recordset 物件的最后一個記錄之后。
回傳值
BOF 和 EOF 屬性回傳布爾型值。
說明
使用 BOF 和 EOF 屬性可確定 Recordset 物件是否包含記錄，或者從一個記錄移動到另一個記錄時是否超出 Recordset 物件的限制。
如果當前記錄位于第一個記錄之前，BOF 屬性將回傳 True (-1)，如果當前記錄為第一個記錄或位于其后則將回傳 False (0)。
如果當前記錄位于 Recordset 物件的最后一個記錄之后 EOF 屬性將回傳 True，而當前記錄為 Recordset 物件的最后一個記錄或位于其前，則將回傳 False。
如果 BOF 或 EOF 屬性為 True，則沒有當前記錄。
如果打開沒有記錄的 Recordset 物件，BOF 和 EOF 屬性將設定為 True，而 Recordset 物件的 RecordCount 屬性設定為零。打開至少包含一條記錄的 Recordset 物件時，第一條記錄為當前記錄，而 BOF 和 EOF 屬性為 False。
如果洗掉 Recordset 物件中保留的最后記錄，BOF 和 EOF 屬性將保持 False，直到重新安排當前記錄。
以下表格說明不同 BOF 和 EOF 屬性組合所允許的 Move 方法。
MoveFirst,
MoveLast MovePrevious,
Move < 0
Move 0 MoveNext,
Move > 0
BOF=True,
EOF=False 允許 錯誤 錯誤 允許
BOF=False,
EOF=True 允許 允許 錯誤 錯誤
同時為 True 錯誤 錯誤 錯誤 錯誤
同時為 False 允許 允許 允許 允許
允許使用 Move 方法并不能保證該方法成功定位記錄，只是意味著呼叫指定的 Move 方法不會產生錯誤。
下表說明當呼叫各種 Move 方法但未成功定位記錄時 BOF 和 EOF 屬性設定所發生的情況。
BOF EOF
MoveFirst, MoveLast 設定為 True 設定為 True
Move 0 沒有變化 沒有變化
MovePrevious, Move < 0 設定為 True 沒有變化
MoveNext, Move > 0 沒有變化 設定為 True
uj5u.com熱心網友回復：
Private Sub Command3_Click()
rs.MoveNext
If rs.EOF Then
MsgBox "已到末記錄", 48, "記錄瀏覽"
Else
Call display
End If
End Sub
uj5u.com熱心網友回復：
你對 EOF 的理解與設計者不同。在他們看來，在最后一條記錄上，并非 EOF。只有越過最后記錄，到達了 EOF 這一點，EOF 屬性才有效。轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/59457.html