Crystal Reports 2008自动运行RPT导出PDF遇SQL连接错误求助

针对你的Crystal Reports 2008报表导出PDF时的数据库连接错误，以下是具体解决步骤：

1. 匹配Crystal Runtime版本 #

你的脚本使用了CrystalRuntime.Application.11（对应Crystal Reports XI），但你用的是Crystal Reports 2008，需替换为对应版本的ProgID：

$objCRApp = ObjCreate("CrystalRuntime.Application.12")

如果保留Viewer组件，ActiveX Viewer的ProgID也要同步改为CrystalReports12.ActiveXReportViewer.1。

2. 显式设置数据库登录信息 #

报表保存的连接信息在自动化环境中可能失效，需通过代码强制覆盖连接参数。在打开报表后添加以下代码：

; 设置SQL Server登录信息，替换为你的实际参数
Local $sServer = "你的SQL服务器地址"
Local $sDatabase = "目标数据库名"
Local $sUser = "SQL用户名" ; Windows认证可留空，使用当前账户
Local $sPassword = "SQL密码" ; Windows认证可留空

; 遍历报表中的表，设置登录信息
For $i = 1 To $objCRReport.Database.Tables.Count
    $objCRReport.Database.Tables($i).SetLogonInfo($sServer, $sDatabase, $sUser, $sPassword)
    ; 确保表的位置正确，避免找不到表
    $objCRReport.Database.Tables($i).Location = $sDatabase & ".dbo." & $objCRReport.Database.Tables($i).Name
Next

如果是Windows集成认证，将$sUser和$sPassword设为空字符串即可，但要确保运行脚本的账户有SQL Server的访问权限。

3. 简化静默导出流程（可选） #

如果不需要预览报表，完全可以去掉GUI和Viewer组件，直接静默导出，减少错误点：

#include <GUIConstants.au3>
AutoItSetOption("WinTitleMatchMode", 2)

Dim $sReportName
Dim $objCRApp
Dim $objCRReport
Dim $CrystalExportOptions
Dim $ExportFileName
Dim $ExportType

$sReportName = FileOpenDialog("选择RPT报表", "C:\Test\zNC\engine\Vinhos", "RPT (*.rpt)", 3)
$objCRApp = ObjCreate("CrystalRuntime.Application.12")
If $objCRApp = 0 Then
    MsgBox(0, "Error", "无法创建CrystalRuntime应用对象")
    Exit
EndIf
$objCRReport = $objCRApp.OpenReport($sReportName)
If $objCRReport = 0 Then
    MsgBox(0, "Error", "无法打开报表: " & $sReportName)
    Exit
EndIf

; --- 添加数据库连接设置 ---
Local $sServer = "你的SQL服务器地址"
Local $sDatabase = "目标数据库名"
Local $sUser = "" ; Windows认证留空
Local $sPassword = "" ; Windows认证留空

For $i = 1 To $objCRReport.Database.Tables.Count
    $objCRReport.Database.Tables($i).SetLogonInfo($sServer, $sDatabase, $sUser, $sPassword)
    $objCRReport.Database.Tables($i).Location = $sDatabase & ".dbo." & $objCRReport.Database.Tables($i).Name
Next
; --- 连接设置结束 ---

$CrystalExportOptions = $objCRReport.ExportOptions
$ExportFileName = "C:\Test\zNC\engine\Vinhos\ExportedReport.PDF"
$ExportType = 31 ; PDF格式

$CrystalExportOptions.DiskFileName = $ExportFileName
$CrystalExportOptions.FormatType = $ExportType
$CrystalExportOptions.DestinationType = 1 ; 导出到磁盘

; 静默导出，False表示不显示导出对话框
$objCRReport.Export(False)

; 释放对象
$objCRReport = 0
$objCRApp = 0

4. 检查驱动与权限 #

• 确保运行脚本的机器安装了SQL Server 2008 R2 Native Client，避免因驱动缺失导致连接失败。
• 验证运行脚本的账户：
  • Windows认证：账户需有SQL Server的登录权限和目标数据库的访问权限。
  • SQL认证：确保用户名和密码正确，且账户有对应数据库的权限。

内容的提问来源于stack exchange，提问作者alanbr00