Question

vb中有text中的数据用adodc要输入到access

已经用adodc连接数据库 现需要把窗口中的text1.text---text8.text等八条信息输入到以data命名的access数据库的book表中
Private Sub Command1_Click()
Adodc1.Recordset.AddNew
ans = MsgBox("添加成功！！！", 64, "提示")
Adodc1.Refresh
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
End Sub

记录源sql命令文本 select * from book

Answer 1

确认Adodc1控件其它所有属性设置都正确，输入数据表代码可以参考下列写法：

Private Sub Command1_Click()
    Adodc1.Recordset.AddNew
    Adodc1.Recordset(0) = Text1
    Adodc1.Recordset(1) = Text2
    Adodc1.Recordset(2) = Text3
    Adodc1.Recordset(3) = Text4
    Adodc1.Recordset(4) = Text5
    Adodc1.Recordset(5) = Text6
    Adodc1.Recordset(6) = Text7
    Adodc1.Recordset(7) = Text8
    Adodc1.Recordset.Update
End Sub

追问

我做的是图书管理系统 录入图书信息 和读者信息 第一次录入过后 第二次会把第一次覆盖 我想知道这个怎么解决