关于Access数据库更新问题!!! 在线等待,帮帮忙看一下,好吗!!!

[pizili_521]

Sub Ad2_Read()
Hp_No1_T = Adodc1.Recordset("no1")
gCnObjectImpRtn.BeginTrans
Adodc2.RecordSource = "select * from base_jh where hp_no1='" + Hp_No1_T + "'"
Adodc2.Refresh
gCnObjectImpRtn.CommitTrans
End Sub
用adodc控件访Acces数据库时,在程序中当我用
addoc1.Refresh更新超过61交出错! 但在61次前可以正常read

帮帮忙啊!!!

[victorycyz]

你这不叫更新。更新数据用 update语句。

[pizili_521]

程序功能是当Adodc1中的记录发生改变时 Adodc2中的记录只显示编号为Adodc1的指定编号的所有记录.
呵呵，可能不算,但你能告诉我这是怎么回事吗/
谢谢!

[SoHo_Andy]

这个完全不需要使用事务处理
你的错误有可能是事务的频繁造成的，先去掉事务处理试试看

Adodc2.Refresh 控件本身刷新数据源不会有次数限制的

[zjcxc]

'查询根本没必要用事务的,事务是用来保证数据能完整提交的.所以只在对数据库中的记录发生操作(新增/修改/删除)时才有用.改吧.

Sub Ad2_Read()
Hp_No1_T = Adodc1.Recordset("no1")
Adodc2.RecordSource = "select * from base_jh where hp_no1='" + Hp_No1_T + "'"
Adodc2.refresh
End Sub

[yoki]

Sub Ad2_Read()
Hp_No1_T = Adodc1.Recordset("no1")
Adodc2.RecordSource = "select * from base_jh where hp_no1='" + Hp_No1_T + "'"
Adodc2.refresh
End Sub