VBNet - Форум - Crystal Report 9

Вопрос: Crystal Report 9 Добавлено: 17.09.03 03:54

Автор вопроса: sokol_

Как вызвать отчет из VB6? Старого контрола "Crystal Report Control" в девятой версии нет , зато куча новых. Где можно почитать про Crystal Report 9 ?

Ответить

Ответы Всего ответов: 6

Номер ответа: 1
Автор ответа:

.COM

ICQ: 212158853

Вопросов: 4
Ответов: 79

Профиль | | #1

Добавлено: 17.09.03 10:13

для показа отчета используй контрол CRViewer9...

кодик примерно такой...

Dim crApplication As New CRAXDDRT.Application
Dim crReport As CRAXDDRT.Report
Dim strReportPath As String

strReportPath = "C:\Development\C1\Resources\Report1.rpt"
Set crReport = crApplication.OpenReport(strReportPath, 1)CRViewer.ReportSource = crReport
CRViewer.ViewReport

Ответить

Номер ответа: 2
Автор ответа:

sokol_

Вопросов: 12
Ответов: 6

Профиль | | #2

Добавлено: 17.09.03 13:36

Спасибо, всё получилось.

Может ещё подскажешь как програмно задать путь к базе данных,

т.е что бы не вылазило окошко "Connection Information" всякий раз когда меняешь дирикторию соей базы. Я так понимаю , что надо задать Dataвase Name и Database Type. Но как это сделать при помощи VB ?

Ответить

Номер ответа: 3
Автор ответа:

.COM

ICQ: 212158853

Вопросов: 4
Ответов: 79

Профиль | | #3

Добавлено: 17.09.03 15:44

что-то типа этого....

'Подключение базы данных к таблицам---------------------------    If Not crReport Is Nothing Then 'если отчет не содержит данных то
        For i = 1 To crReport.Database.Tables.Count 'определяем кол-во таблиц
            crReport.Database.Tables.Item(i).Location = strBDPath 'подючаем базу
        Next i
        CRViewer9.ReportSource = crReport 'передача отчета во вьювер
    End If
CRViewer9.ViewReport 'показ отчета

Ответить

Номер ответа: 4
Автор ответа:

sokol_

Вопросов: 12
Ответов: 6

Профиль | | #4

Добавлено: 17.09.03 19:05

Насколько я понял strBDPath - путь к базе, я пишу strBDPath="c:\Venta.mdb" странно, но выдаёт сообщение "not implemented" и отчет пустой.

Ответить

Номер ответа: 5
Автор ответа:

.COM

ICQ: 212158853

Вопросов: 4
Ответов: 79

Профиль | | #5

Добавлено: 17.09.03 19:43

strReportPath - путь к отчету

strBDPath - путь к базе

...вот прям так у меня все работает...

Private crApplication As New CRAXDRT.Application
Private crReport As CRAXDRT.Report

Private Sub err()

strReportPath = "C:\Report.rpt"
strBDPath = "C:\BDDS.mdb"
    Set crReport = crApplication.OpenReport(strReportPath, 1)
    If Not crReport Is Nothing Then
        For i = 1 To crReport.Database.Tables.Count
            crReport.Database.Tables.Item(i).Location = strBDPath
        Next i
        CRViewer9.ReportSource = crReport

End If
CRViewer9.ViewReport

CRViewer9.Refresh
CRViewer9.Visible = True
End Sub

Ответить

Номер ответа: 6
Автор ответа:

sokol_

Вопросов: 12
Ответов: 6

Профиль | | #6

Добавлено: 17.09.03 20:54

Всё работает! Спасибо , или Grasias по нашему

Последний вопрос

Как получить доступ к label , хочется заголовки в отчёте менять програмно .

Ответить

Страница: 1 |