添加数据时的错误,帮忙解决一下
我的代码:
Private Sub Command2_Click()
Set rs = cnn.Execute("Select * from 个人")
rs.AddNew
rs("姓名") = txtName
rs("年龄") = txtAge
rs("身高") = txtTall
rs.Update
End Sub
运行时总是出现“3251”错误,不知道为什么?
我在这同一个Form内的另外一个查询功能就可以用,但是我不明白为什么添加就不能用呢?
我的查询代码:
Private Sub Command1_Click()
Set rs = cnn.Execute("Select * from 个人 where 姓名='" & txtSearchName.Text & "'")
If Not rs.EOF Then
labShowName.Caption = rs!姓名
labShowAge.Caption = rs!年龄 & "岁"
labShowTall.Caption = rs!身高 & "cm"
Else
MsgBox "没有找到!", vbOKOnly + vbExclamation, "提示!"
End If
txtSearchName.Text = ""
txtSearchName.SetFocus
End Sub