Office中国论坛/Access中国论坛

标题: 不能追加数据到表 [打印本页]

作者: kent_73 时间: 2014-10-28 09:00
标题: 不能追加数据到表

使用下面的语句，把数据追加到sql表中，出现有错误，但sql语句在access查询中却是正确的，请问是什么问题？谢谢

Dim rs As New ADODB.Recordset
Set cnn = New ADODB.Connection
cnn.Open "

rovider=SQLOLEDB;Data Source=*.*.*.*;UID=sa

WD=******;initial catalog=SQL"

sql = "INSERT INTO Tb_表A_temp ( 表AID, 表BID, FZID, FHQTY1, FHDPT, FH ) SELECT 表AID, 表BID, FZID, Sum(FHQTY) AS FHQTY1,FHDPT,FH FROM Tb_表A WHERE 表AID&表BID&FZID&FHQTY In(select 表AID&表BID&FZID&FHQTY as UnF from Tb_表A group by 表AID&表BID&FZID&FHQTY having count(*)=1) GROUP BY 表AID, 表BID, FZID, FHQTY,FHDPT,FH"

rs.Open sql, cnn, adOpenStatic, adLockOptimistic

[attach]54886[/attach]

作者: 这是我的小号 时间: 2014-10-28 09:37
adOpenStatic是静态锁定，改为动态锁定（adopendynamic）试试看？

作者: kent_73 时间: 2014-10-28 09:38
还是同样的错误

作者: 这是我的小号 时间: 2014-10-28 11:23
传附件看看吧。

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