Можно ли программно изменить путь к базе для созданного файла Crystal Report?

Можно ли программно изменить путь к базе для созданного файла Crystal Report.

Попробуй сочетание элементов формы CrystalReport и Data

0

Для локальной базы можно попробовать так
Option Explicit
Public Report As CRAXDRT.Report
Private m_crwApplication As CRAXDRT.Application 'As CRPEAuto.Application
Private m_CrwDataBase As CRAXDRT.Database
Private m_CrwDataBaseTable As CRAXDRT.DatabaseTable


Private Sub Form_Load()
If m_crwApplication Is Nothing Then Set m_crwApplication = CreateObject('CrystalRuntime.Application .7')

End Sub

Public Function showFLCR() As Boolean
On Error GoTo errHand

showFLCR = False
NameRep = App.Path & 'ReportcFLCR.rpt'
If Dir(NameRep) = '' Then
MsgBox 'Not Find File ReportcFLCR.rpt'
GoTo LblEnd
Else
Set Report = m_crwApplication.OpenReport(NameRep)
End If
Report.Sections(3).ReportObjects(2).SetT ext “DDD” ‘так можно изменить значение текстовых меток в отчете
Set m_CrwDataBase = Report.Database
For Each m_CrwDataBaseTable In m_CrwDataBase.Tables
m_CrwDataBaseTable.Location = “С: emp.mdb” ” ‘так можно путь к access БД
Next
CRViewer1.ReportSource = Report
CRViewer1.ViewReport
showFLCR = True
LblEnd:
Exit Function
errHand:
Select Case Err.Number
Case -2147206452
' может кто-то уже открыл отчет
If MsgBox(“Текс сообщения” vbOKOnly) = vbOK Then
Resume
End If
Case Else
End Select

Exit Function
End Function

SSA
При желании сброшу форму на твой e-mail

0