这段程序已经可以往数据库写入数据了,但不能进行删除操作,总是提示"列信息不足"错误,请看看是怎么回事啊!(谢谢三断笛)!
  datPrimaryRS.Recordset.AddNew
If mune = True Then
datPrimaryRS.Recordset.Open
End If
datPrimaryRS.Recordset!测试序号 = cs_num
datPrimaryRS.Recordset!力值 = lz_data
datPrimaryRS.Recordset!变形量 = bxl_data
'-----------------------------------------------
  datPrimaryRS.Recordset.UpdateBatch adAffectAll
 '-----------------------------------------------
datPrimaryRS.Recordset.Close

建一個主關鍵字

删除操作?

你的删除语句是什么?

这是删除语句:
Private Sub cmdDelete_Click()
  On Error GoTo DeleteErr
  With datPrimaryRS.Recordset
    .Delete
    .MoveNext
    If .EOF Then .MoveLast
  End With
  Exit Sub
DeleteErr:
  MsgBox Err.Description
End Sub

问题已解决,是我在演示时每个记录输入了同样的值,而且又没有设置主键,谢谢三断笛!