[求助]如何在VBA中实现数据插入到表中?

yuanrongfa

请看附件的窗体，在窗体的三个输入框里分别输入　姓名、电话、地址　　后 点插入到userdata表中　后就会插入到表userdata中



请帮我写一下VBA的代码，谢谢　

gaoqiwen

用ADO输入:

Private Sub 命令6_Click()
    Dim Rs As New ADODB.Recordset
    With Rs
        .Source = "SELECT username,usertel,useradd FROM userdata"
        .ActiveConnection = CurrentProject.Connection
        .LockType = adLockOptimistic
        .CursorType = adOpenKeyset
    End With
    Rs.Open
    Rs.AddNew
    Rs.Fields("username") = 文本0.Value
    Rs.Fields("usertel") = 文本2.Value
    Rs.Fields("useradd") = 文本4.Value
    Rs.Update
End Sub

fengyeyouni

好的，我也在学习