Проблема с подключением 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д