VB程序员博客

VB程序开发

[Adodc][相互]VB中两个Adodc可以相互赋值吗

例如：adodc1 、adodc2.
已经获取到adodc1的记录集
怎样将adodc1的记录集赋值给adodc2
Adodc1.RecordSource = "select t1,t2,t3 from test"
Adodc1.Refresh
怎样把以上结果赋值给adodc2

引用 1 楼 ahhecheng 的回复:
我的代码是：
Adodc1.RecordSource = "select td01,td04,td16 from sfctd where td08='ER002'"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount = 0 Then
Exit Sub
End If
If Adodc1.Recordset.EOF = False Then
Adodc1.Recordset.MoveFirst
Set Adodc1.Recordset = Adodc2.Recordset
Set Adodc1.Recordset.DataSource = Adodc2
Adodc1.Recordset.Fields(0) = ERPPID
Adodc1.Recordset.Fields(2) = ERSTA…
可以运行，可是：
Adodc2.Recordset.Fields(0) = Adodc1.Recordset.Fields(0)
Adodc2.Recordset.Fields(2) = Adodc1.Recordset.Fields(2)
插入的都是空值

set Adodc2.RecordSource =Adodc1.RecordSource

不行，运行提示语法错误


标签: , ,


专题:

栏目:

Power by VB程序员博客