807
社区成员
发帖
与我相关
我的任务
分享关于Datareport的问题：我错在那里呢？
源码如下：为什么总提示“无效数据源”？
Private Sub Command3_Click()
Dim cnn As ADODB.Connection
Set cnn = New ADODB.Connection
cnn.Open "provider = Microsoft.Jet.OLEDB.4.0;Data Source = *.mdb;"
Dim adoPrimaryRS As ADODB.Recordset
Set adoPrimaryRS = New ADODB.Recordset
adoPrimaryRS.Open "select * from C_INF", cnn, adOpenStatic, adLockOptimistic
Do While Not adoPrimaryRS.EOF
DataReport1.Sections("section1").Controls.Item("label1").Caption = "1234"
DataReport1.Sections("section1").Controls.Item("host_nme").DataField = adoPrimaryRS.Fields.Item("host_nme").Name
adoPrimaryRS.MoveNext
Loop
Set DataReport1.DataSource = adoPrimaryRS
DataReport1.Show
end sub
Private Sub Command3_Click()
Dim cnn As ADODB.Connection
Set cnn = New ADODB.Connection
cnn.Open "provider = Microsoft.Jet.OLEDB.4.0;Data Source = *.mdb;"
Dim adoPrimaryRS As ADODB.Recordset
Set adoPrimaryRS = New ADODB.Recordset
adoPrimaryRS.Open "select * from C_INF", cnn, adOpenStatic, adLockOptimistic
Do While Not adoPrimaryRS.EOF
DataReport1.Sections("section1").Controls.Item("label1").Caption = "1234"
DataReport1.Sections("section1").Controls.Item("host_nme").DataField = adoPrimaryRS.Fields.Item("host_nme").Name
adoPrimaryRS.MoveNext
Loop
Set DataReport1.DataSource = adoPrimaryRS
DataReport1.Show
end sub
...全文
请发表友善的回复…
发表回复
gzqg 2002-11-27
- 打赏
- 举报
将这句话提到添加项目前：Set DataReport1.DataSource = adoPrimaryRS
正确代码是：
Set DataReport1.DataSource = adoPrimaryRS
Do While Not adoPrimaryRS.EOF
DataReport1.Sections("section1").Controls.Item("label1").Caption = "1234"
DataReport1.Sections("section1").Controls.Item("host_nme").DataField = adoPrimaryRS.Fields.Item("host_nme").Name
adoPrimaryRS.MoveNext
Loop
正确代码是：
Set DataReport1.DataSource = adoPrimaryRS
Do While Not adoPrimaryRS.EOF
DataReport1.Sections("section1").Controls.Item("label1").Caption = "1234"
DataReport1.Sections("section1").Controls.Item("host_nme").DataField = adoPrimaryRS.Fields.Item("host_nme").Name
adoPrimaryRS.MoveNext
Loop
