Office中国论坛/Access中国论坛

标题: [求助]如何在VBA中实现数据插入到表中? [打印本页]

作者: yuanrongfa 时间: 2006-1-14 19:46
标题: [求助]如何在VBA中实现数据插入到表中?
请看附件的窗体，在窗体的三个输入框里分别输入　姓名、电话、地址　　后点插入到userdata表中　后就会插入到表userdata中

请帮我写一下VBA的代码，谢谢　[attach]15364[/attach]

作者: gaoqiwen 时间: 2006-1-14 20:37
用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 时间: 2009-8-4 09:05
好的，我也在学习

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)