我想实现点击按钮后,在表1里添加一条记录(Combo1.Text)
,然后把它取出来放到表2里,可是程序执行完毕只看到表1添加的新纪录,而表2没有看到,部分代码如下,我没有提交吗?
Recordset.AddNew
Recordset.Fields("cjdh").Value = Trim(Combo1.Text)
Recordset.Update Connection.Execute "insert into 表1 cjdh select cjdh from 表1 where cjdh='" & Trim(Combo1.Text) & "'"
,然后把它取出来放到表2里,可是程序执行完毕只看到表1添加的新纪录,而表2没有看到,部分代码如下,我没有提交吗?
Recordset.AddNew
Recordset.Fields("cjdh").Value = Trim(Combo1.Text)
Recordset.Update Connection.Execute "insert into 表1 cjdh select cjdh from 表1 where cjdh='" & Trim(Combo1.Text) & "'"
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货