crystal report如何打印加密的数据库.txt

VB技巧问答10000例 VB技巧问答10000例

我 用 Crystal Report 生 成 了 一 个 报 表 ， 数 据 库 是 Access， 当 我 把 数 据 库 加 上 一 个 密 码 后 ， 在 vb里 用 Crystal Report 控 件 调 用 这 个 报 表 ,不 能 打 开 报 表 ， 应 该 是 在 控 件 上 加 入 這 个 数 据 库 的 密 码 才 行 ， 哪 位 高 手 指 点 一 下 小 弟 怎 么 写 這 个 Connect 
<END>
如 果 你 的 数 据 库 在 设 计 报 表 时 就 有 密 码 ， CrystalReports会 提 示 你 密 码 并 记 住 该 密 码 。 你 也 可 以 设 置 Crystal Reports控 件 的 Password属 性 。 
<END>    
先 打 开 数 据 库 
    dim dbs as database 
    set dbs=dbengine.opendatabase("*.mdb",,";pwd=159753") 
    然 后 直 接 调 用 报 表 ! 
    PRTctl.ReportFileName = "*.rpt" 
    PRTctl.DataFiles(0) = "*.mdb" 
    PRTctl.UserName = ";pwd=159753" 
    PRTctl.WindowState = crptMaximized 
    PRTctl.ReportSource = crptReport 
    PRTctl.PrintReport 
<END>