错误 20599 无法使用 VB6/Crystal 报告打开 SQL 服务器

Error 20599 Cannot open SQL Server using VB6/Crystal report

我一直在尝试使用以下 Visual Basic 代码浏览基于 SQL 服务器数据库的 Crystal Reports 版本 8:

CrystalReport1.ReportFileName = "C:\Report1.rpt"
CrystalReport1.Destination = crptToWindow
CrystalReport1.DiscardSavedData = True
CrystalReport1.WindowState = crptMaximized
MsgBox "Ok!", vbInformation
CrystalReport1.Action = 1

我正在使用 Crystal 报表控件。报告的数据库 ODBC datasource 连接到 SQL 服务器。没有 DiscardSavedData 这有效,但它显示旧数据。使用 DiscardSavedData,我收到错误消息:

  • Error 20599 Cannot open SQL Server.

如何解决这个问题?

我已经通过添加连接字符串 CrystalReport1.Connect 解决了我的问题,我想与大家分享我的解决方案。

 CrystalReport1.ReportFileName = "C:\Report1.rpt"
    CrystalReport1.Destination = crptToWindow
    CrystalReport1.DiscardSavedData = True
    CrystalReport1.Connect ="Data Source=Localhost;UID=sa;PWD=****;DSQ=Dat BdName;"
    CrystalReport1.WindowState = crptMaximized
CrystalReport1.Action = 1