Столкнулся с такой проблемой. Каждый раз при вызове Crystal Report, программа кидается в меня окном и спрашивает
ввести user id, password, server name and database name. В коде приложенном ниже я использую
Crystal 8.5 VB6 OLEDB and SQL Server 2000.
Dim strReportPath As String
Dim i As Integer
Dim crApplication As New CRAXDDRT.Application
Dim crReport As CRAXDDRT.Report
strReportPath = "C:\Development\C1\Resources\Report1.rpt"
Set crReport = crApplication.OpenReport(strReportPath, 1)
If Not crReport Is Nothing Then
With crReport
.DiscardSavedData
'это как и пытаюсь указать репорту как найти базу данных
For i = 1 To crReport.Database.Tables.Count
.Database.Tables.Item(i).SetLogOnInfo glbServerName, glbDBName
.Database.Tables.Item(i).Location = glbDBName & ".dbo." & crReport.Database.Tables.Item(i).Name
Next i
End With
CRViewer.ReportSource = crReport
CRViewer.ViewReport
End If
Может кто прольёт свет в тёмном царстве моём
Заранее признателен
Валерий