怎样在DataEnvironment中建立Recordset?

[rushing]

就是以rs开头的变量，可以用于DataReport的DataMember选项的。
DataEnvironment的ConnectString我想在程序运行时设置。
谢谢！

[helanshan]

也需要通过ADO定义：
dim rs1 as new adodb.recordset
dim rs2 as new adodb.recordset
set rs1=DataEnvironment.command1
set rs2=DataEnvironment.command2

[rushing]

怎样与DataReport连接呢？
set DataReport1.DataSource=DataEnvironment1
set DataReport1.DataMember=DataEnvironment1.Command1
行么？

[helanshan]

应该可以吧。。
你怎么不通过DataReport的属性窗口设置DataSource和DataMember呢？？

[rushing]

一设置，VB6就退出了。

[rushing]

deCustomer.Commands("Unit").CommandType = adCmdText
加分

deCustomer.Commands("Unit").CommandText = strSQL
deCustomer.Unit
Set rptUnit.DataSource = deCustomer
rptUnit.DataMember = "Unit"
'rptUnit.Refresh
Load rptUnit
rptUnit.Show

总是说提取失败，请问为什么？

[helanshan]

看不明白。。

[potato015]

我是这样做到的
Private Sub DataEnvironment_Initialize()
Cnn1.Open "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & App.Path & "\access.mdb"
rsCommand1.Open Frm_money.Text6.Text, Cnn1, adOpenKeyset, adLockOptimistic
End Sub


Frm_money.Text6.Text里面是一个sql命令

[potato015]

需要补充的是
我所使用的这个DataEnvironment 默认是建立了一个deconnection 和一个decommand的

[helanshan]

OK

[rushing]

其中，deCustomer是一个DataEnvironment,
Unit是一个Command,
rptUnit是一个DataReport.

[ryuginka]

一设置，VB6就退出了。
//安装VBSP5

[rushing]

找到原因了。
VB6退出是因为DataReport中DataMember的设置与DataEnvironment中的Command不一致。
无法连接是因为Command没有选择Connection。
谢谢大家！