vb寫入mdb數據庫提示3426錯誤

這是微軟幫助系統給出的解釋,出現妳這種情況的原因:是因為妳的數據控件記錄指針當前指向某壹條記錄,即記錄集指針既不在記錄起始位置也不在結束位置,建議代碼樣例(其中datDataCtl即為妳的程序中的Data1數據控件):

Private Sub cmdAddNew_Click()

If datDataCtl.Recordset.EOF Or datDataCtl.Recordset.BOF Then

Dim strBuffer As String

strBuffer = txtCategory.Text

datDataCtl.UpdateControls

datDataCtl.Recordset.AddNew

txtCategory.Text = strBuffer

datDataCtl.Recordset.AddNew

End If

End Sub

本樣例代碼為參考資料中重現步驟3中的代碼(解決問題部分)

=========================================================

另外補充說明壹下:

1 妳的語句中本身也存在壹些矛盾的地方

如果是執行保存的操作的話(即ELSE語句中),為何還要Data1.Recordset.AddNew ?

2 建議妳在將command的CAPTION屬性變成"添加"的地方,將記錄集的指針移動到文件尾,使EOF變成真,即:

Data1.Recordset.MoveLast

Data1.Recordset.MoveNext