关于VB自带的报表

Question

关于VB自带的报表，要先建立连接的，问题是我如果到用户那里去实施，每次都手工要修改那个连接。烦死了，可能是我不知道怎样有好的方法。
谢谢

Answer 1

看看MSDN中关于ADO动态连接的方法。给你一段例程：Dim ac_tmp As new adodb.connection
dim ar_tmp as new adodb.recordset
with ac_tmp
    if .state=adstateopen then .close
    .ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\user.mdb;Mode=ReadWrite;Persist Security Info=False"
    .Open
end with
if ar_tmp.state=adstateopen then ar_tmp.close
ar_tmp.Open "select * from userinfo",ac_tmp,adopenkeyset,adlockreadonly
set mshflexgrid1.datasource=ar_tmp
set ar_tmp=nothing  
set ac_tmp=nothing

Answer 2

VB自带的报表DtaReport，要先建立连接的DataEnvironment1，问题是我如果到用户那里去实施，每次都手工要修改那个连接。烦死了，可能是我不知道怎样有好的方法。

Answer 3

使用无数据环境的报表，连接数据库可以动态Private Sub DataReport_Initialize()
Set conn = New ADODB.Connection
Set rs = New ADODB.RecordsetIf conn.State = 1 Then
conn.Close
End If
   ConnectionString = "driver={sql server};server=" localhost;uid=;pwd=;database="conn.Open ConnectionString
If conn.State = 1 Then
conn.Close
End If
conn.Open ConnectionString
rs.Open "select * from 表 where id='" & txtid & "'", conn, adOpenStatic, adLockOptimisticSet 报表名.DataSource = rsEnd Sub

Answer 4

你好!我有个问题想请教大家,我用VB自带的报表设计器设计了一个报表,但是不知如何设计打印的纸张尺寸.比如我想打印的结果是长:200mm,宽:120mm,到底应该怎么做?
谢谢

Answer 5

办公之星控件功能跟Word非常类似，可以做文档处理、报表统计、电子表格和表单录入等。有兴趣的可到他们的网站http://www.standsoft.com去看一下。