database – 在运行时设置Crystal Report数据源

发布时间：2020-12-17 00:11:15 所属栏目：大数据来源：网络整理

导读：在创建Crystal Report时,我显然建立了一个用于开发的数据库和服务器连接. 我现在想在VB应用程序中做的是动态设置数据库和服务器名称以用于报告.我将这些值作为字符串varServer和varDatabase. 有谁知道怎么做这个？提前致谢. P.S我尝试了几种在线解决方案,但

在创建Crystal Report时,我显然建立了一个用于开发的数据库和服务器连接.

我现在想在VB应用程序中做的是动态设置数据库和服务器名称以用于报告.我将这些值作为字符串varServer和varDatabase.

有谁知道怎么做这个？

提前致谢.

P.S我尝试了几种在线解决方案,但是我遇到了VB6问题.

This link拥有您想要了解的所有信息.

更新：这是使用SQL Server进行集成身份验证的最低工作示例.您应该使用表对象的ConnectionProperties来设置连接参数.

Dim app As New CRAXDDRT.Application
Dim rpt As CRAXDDRT.Report
Dim tbl As CRAXDDRT.DatabaseTable
Dim tbls As CRAXDDRT.DatabaseTables

Set rpt = app.OpenReport("C:reportrepotest.rpt")

For Each tbl In rpt.Database.Tables
    tbl.ConnectionProperties.DeleteAll
    tbl.ConnectionProperties.Add "Provider","SQLOLEDB"
    tbl.ConnectionProperties.Add "Data Source","localhost"
    tbl.ConnectionProperties.Add "Initial Catalog","testdb"
    tbl.ConnectionProperties.Add "Integrated Security","True"   ' cut for sql authentication
    'tbl.ConnectionProperties.Add "User Id","myuser"   ' add for sql authentication
    'tbl.ConnectionProperties.Add "Password","mypass"  ' add for sql authentication
Next tbl

'This removes the schema from the Database Table's Location property.
Set tbls = rpt.Database.Tables
For Each tbl In tbls
    With tbl
        .Location = .Name
    End With
Next

'View the report
Viewer.ReportSource = rpt
Viewer.ViewReport

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!