如何使用ADO控件来向数据库中添加新纪录

Question

现在在窗体上有若干文本框和一个按钮以及一个ADO控件，当我单击了增加按钮以后，将文本框中的内容添加到数据库中？请问该怎么编写这个按钮的Click事件的代码，以及ADO控件的属性该如何设置？

Answer 1

ACCESS数据库:
Option Explicit
    Dim sql As StringPrivate Sub Command1_Click()
    Adodc1.Recordset.AddNew
    Adodc1.Recordset(0) = Text1.Text
    Adodc1.Recordset(1) = Text2.Text
    Adodc1.Recordset(2) = Text3.Text
    Adodc1.Recordset(3) = Text4.Text
    Adodc1.Recordset(4) = Text5.Text
    Adodc1.Recordset.Update
End SubPrivate Sub Form_Load()
    sql = "select * from jishijilu"
    Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\wd.mdb;Persist Security Info=False"
    Adodc1.RecordSource = sql
    Adodc1.Refresh
End Sub

Answer 2

也可以直接使用 sql 的insert