怎样动态绑定数据报表与数据库？

[ymq8328]

在设计数据报表时用到数据库在C盘，打包之后安装就会到其它地方，请问有什么好
的解决方法吗？

[hlm750908]

eg:

将"c:\xxx\yyy\abc.rpt" 改为 app.path & "\abc.rpt"

[lxqlogo0]

DataEnvironment1.Connection1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& app.path & "\md.mdb;Persist Security Info=False"

[ymq8328]

这样就不可以用拖拉字段了吧。
那是不是设计会很麻烦？
谢谢大家！

[阿建像熊猫]

一、设计的时候，把数据库连到自己程序下边。
二、打包时注意。

[射天狼]

用相对路径,APP.PATH

[j4sxw]

APP.PATH

[zhangqs]

要用APP.PATH，首先要保证你的数据库和你的VB应用程序是在同一目录下面，要不到时调用时在出错。

[ymq8328]

up

[knikcn]

不要使用绝对地址，使用相对地址，方法上边已经有人说啦!
app是一个对象，path是你的工程地址。

[射天狼]

已经发完,请接收~~~~

[since1990]

up

[yoki]

用相对路径,APP.PATH

[lxqlogo0]

Dim objcon As New ADODB.Connection
Dim objrs As New ADODB.Recordset



Private Sub DataReport_Initialize()
objcon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:database password=basic;Data Source=" & App.Path & "\成语库.mdb"

objrs.Open "select top 10 chengyu,pinyin from 成语库 ", objcon, 3, 1

Set DataReport1.DataSource = objrs '设置 DataReport 的数据源
'
'绑定某字段
DataReport1.Sections(1).Controls("text1").DataField = objrs.Fields(1)
DataReport1.Show 1
End Sub

[ymq8328]

给一个例子，100分给您！
谢谢！
[e-mail]

[taosihai1only]

用相对路径

[ymq8328]

上面老兄的程序有错误！
说是下表越界！

DataReport1.Sections(1).Controls("text1").DataField = objrs.Fields(1)
请指导！