窗体中文本框的数据如何添加到新表中

mmtea　发表于：2011-07-22 16:33:19 　

复制

各位老师，我看了二天帖子都没搞定的问题，窗体中是查询出的数据+非绑定文本框中的数据，如何将窗体中所有的数据加入sent表中呢，不要用追加查询，请用VBA，谢谢，

窗体中文本框为T1,T2,T3,Sent表相对应的为Sent1,Sent2,Sent3

非常感谢！

Top

煮江品茶发表于：2011-07-22 16:55:12

假设三个字段都是文本型的，则：

dim ssql as string

ssql="INSERT INTO sent ( Sent1, Sent2, Sent3 ) "

ssql=ssql & "VALUES ('" & me.t1.value & "','" & me.t2.value & "','" & me.t3.value & "')"

CurrentDb.Execute ssql

Top

曹光耀发表于：2011-07-22 19:12:08

保存窗体中的文本框的数据到表中的代码如下：

Dim str As String
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
str = "select * from [Sent]"
rs.Open str, CurrentProject.Connection, adOpenKeyset, adLockPessimistic

rs.AddNew
    rs("Sent1") = Me.T1
    rs("Sent2") = Me.T2
    rs("Sent3") = Me.T3
rs.Update
MsgBox "已保存"

Top

mmtea 发表于：2011-07-22 23:39:37

谢谢楼上两位的解答，煮江品茶的运行成功，但是如果sent3是时间，怎么办？

曹光耀 在运行到Dim rs As ADODB.Recordset 提示：你所定义的类型未定义，我前天也是看别人这样写的，和你的差不多，运行时也提示你所定义的类型未定义，请问为什么？

谢谢！

再问一下，这两种方法哪种更好点

Top

mmtea 发表于：2011-07-22 23:44:07

这是按曹光耀 的代码做的例子，提示：你所定义的类型未定义

点击下载此附件

Top

曹光耀发表于：2011-07-23 13:13:10

说明你的ACCESS中需要添加引用，ADO

Top

曹光耀发表于：2011-07-23 13:15:55

表中的字段很多时，用ADO的记录集的方法比较清晰明了，看你自己的喜好

Top

mmtea 发表于：2011-07-24 00:34:41

谢谢，可以了

Top

总记录：7篇页次：1/1 9 1 :

Access交流中心

窗体中文本框的数据如何添加到新表中