VB与ACESS数据库

来源：百度知道 编辑：UC知道 时间：2024/04/28 01:44:23
在编写信息存入程序时...代码如下:Private Sub Command4_Click()
If Text1.Text = "" Then
MsgBox "姓名不能为空!"
Else
If Text2.Text = "" Then
MsgBox "性别不能为空!"
Else
If Text3.Text = "" Then
MsgBox "年龄不能为空!"
Else
adodc1.recordset.addnew
Adodc1.Recordset.Fields("姓名") = Text1.Text
Adodc1.Recordset.Fields("性别") = Text2.Text
Adodc1.Recordset.Fields("年龄") = Text3.Text
Adodc1.Recordset.Update
Adodc1.Refresh

Command1.Visible = True
Command2.Visible = True
Command3.Value = True
Command5.Visible = True
MsgBox "成功添加记录!"
End If
End If
End If

End Sub
1.运行此程序时,当保存新添加记录时,第一次不能添加,要点两次保存才能写入数据库.请问为什么?
2.当ACESS数据库无记录时,不能插入记录,当ACESS数据库里有5条以上的记录时,才能在数据库尾插入新增记录..请问是怎么回事.
3.删除数据库里的数据时,当数据库为空时,出现错误: 实时错误'3021':BOF或EOF中有一个是真,或者当前的记录已被删除,所需的操作要求一个当前的记录...请问要使不报错.代码如何写?

第一、第二两个问题不可理解，参照你的代码来看，理论上应该不可能的

第三个问题，可以使用

Private Sub Command4_Click()
ON ERROR GOTO Err
……
'删除语句
……
EXIT SUB
Err:
MsgBox "数据库为空，删除失败！"
End Sub

打开记录集的时候，open语句带有几个参数，对比一下你的参数值是否符合要求，比如应该让记录集是keyset+adoptimistic。