Всем привет!
Хотя мой вопрос больше по Crystal Report 8.5, но приложение, его используещее, написано на VB6, так что разместил вопрос здесь!
Возникла огромная проблема, перерыл в инете все, что нашел, решения нет, одни слова! Бесит то, что сама поддержка кристала не отвечает на кучу вопросов по своим багам!
Ну да ладно, будем переходить на Reporting Service, а пока ...!
Сделана куча отчетов в CR 8.5 SP3, приложение, их использующее - на VB6, сами отчеты - отдельные файлы. Сервер данных - MS SQL 2000. Коннект к серверу из отчета осуществляется через active data (ADO OLE DB). Соответственно используется DLL P2smon.dll. Печать отчетов через Crystal Report Print Engine API.
Поменялся сервер (читай - имя сервера), появились филиалы со своими серверами (другие имена и серверов и баз данных) и приплыли. Отчеты не идут на печать, вылетает ошибка 536: ошибка 536Error in File полный_путь_к_файлу_отчета.rpt
Unable to connect: incorrect log on parameters.
Код на VB (слегка упрощенный):
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
' Переменные на входе
' ReportFullPath - полный путь к файлу отчета
' M_DEF_CONNECT - строка подключения по OLE DB
Dim LogOnInfo As PELogOnInfo
Dim intReturn%
Dim prnJob%
intReturn = PEOpenEngine()
If intReturn = 0 Then MsgBox "Не удалось инициализировать Crystal Report Engine!", vbExclamation, " Crystal Report Engine": Exit Function
intReturn = PEOpenPrintJob(ReportFullPath)
If intReturn = 0 Then
MsgBox "Не удалось инициализировать задание печати!", vbExclamation, " Crystal Report Engine":
intReturn = PECloseEngine: Exit Function
End If
prnJob = intReturn
With LogOnInfo
.StructSize = PE_SIZEOF_LOGON_INFO
.ServerName = "имя_сервера" & Chr$( 0 )
.DatabaseName = "имя_базы данных" & Chr$( 0 )
.UserID = "имя_пользователя" & Chr$( 0 )
.Password = "пароль_пользователя" & Chr$( 0 )
End With
' Call CrystalReportEngineErrorInfo - обработчик ошибок
intReturn = PESetNthTableLogOnInfo(prnJob, 0 , LogOnInfo, 1 )
If intReturn = 0 Then Call CrystalReportEngineErrorInfo(prnJob, "Не удалось соединиться с сервером данных!"): Exit Function
' Здесь ошибка и возникает
'--------------------------------------------------------------------
intReturn = PETestNthTableConnectivity(prnJob, 0 )
If intReturn = 0 Then Call CrystalReportEngineErrorInfo(prnJob, "Не удалось соединиться с сервером данных!"): Exit Function
'--------------------------------------------------------------------
' ну и т.д.
Если не делать проверку на коннект к таблице, ошибка (с номером 599) вылезает позже на PEStartPrintJob:
1.
2.
intReturn = PEStartPrintJob(prnJob, True)
If intReturn = 0 Then Call CrystalReportEngineErrorInfo(prnJob, "Не удалось запустить печать отчета!"): Exit Function
ошибка 599Cannot open SQL Server
Естественно все необходимые библиотеки есть и зарегистрированы, прописаны объявления переменных, констант и функций.
По поиску в инете можно судить, что такая проблема стоит перед многими и не только в кристале версии 8.5, но конкретного решения найти не удалось!
Ребята! Я знаю что CR 8.5 устарел! Но, к сожалению, нет времени на переделку всех отчетов, все должно работать к понедельнику!
Если у кого-нибудь есть решение, пожалуйста, поделитесь, буду весьма благодарен! Если нет желания отвечать здесь, киньте на мыло
alex@artplast.ru!
