Проблема с подключением Crystal Report файла к приложению на VB6

Узнай цену своей работы

Формулировка задачи:

Проблема следующая: хочу в приложении на VB6 использовать Crystal Reports 8,5. Написал rpt-шник, а как его теперь подключить? Поюзал поиск, но нашел только для варианта с Access БД, а мне нужно подключение к SQL серверу, причем желательно, чтобы можно было в качестве запроса передавать ADODB.Recordset и использовать текущее соединение ADODB.Connection. Есть какие нибудь мысли?

Решение задачи: «Проблема с подключением Crystal Report файла к приложению на VB6»

textual
Листинг программы
' Initialize Report
    For lngIndex = 0 To 11 'assume no more than 12 datafiles on the report
        frmMyForm.CrstlRpt.DataFiles(lngIndex) = vbNullString
    Next lngIndex
 
  With CrstlRpt
        .ReportFileName = gstrRptPath & 'MyRpt.rpt'
        .Connect = 'DSN=' & gstrDataBaseName & ';UID=' & gstrLogin & ';PWD=' & gstrPassword
        
        .DataFiles(0) = strSchema & '.TABLE0'
        .DataFiles(1) = strSchema & '.TABLE1'
        .DataFiles(2) = strSchema & '.TABLE2'
        .DataFiles(3) = strSchema & '.TABLE3'
        .DataFiles(4) = strSchema & '.TABLE4'
        .DataFiles(5) = strSchema & '.TABLE5'
        
        .SubreportToChange = 'SubReport'
        .Connect = 'DSN=' & gstrDataBaseName & ';UID=' & gstrLogin & ';PWD=' & gstrPassword
        .DataFiles(0) = strSchema & '.TABLE0'
        .DataFiles(1) = strSchema & '.TABLE1'
        .DataFiles(2) = strSchema & '.TABLE2'
        .DataFiles(3) = strSchema & '.TABLE3
    
    .SelectionFormula = 'My Selection Formula'
        .GroupSelectionFormula = vbNullString
        
        .Destination = crptToPrinter
        
        .PrintReport
    End With

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

11   голосов , оценка 4 из 5
Похожие ответы