Use this code to load the report...
Note:Code:Try Dim crtableLogoninfos As New TableLogOnInfos() Dim crtableLogoninfo As New TableLogOnInfo() Dim crConnectionInfo As New ConnectionInfo() Dim CrTables As Tables Dim CrTable As Table Dim crReportDocument As New G1() With crConnectionInfo .DatabaseName = Application.StartupPath & "\db.mdb" .Password = "ps1" End With CrTables = crReportDocument.Database.Tables For Each CrTable In CrTables crtableLogoninfo = CrTable.LogOnInfo crtableLogoninfo.ConnectionInfo = crConnectionInfo CrTable.ApplyLogOnInfo(crtableLogoninfo) Next CRV.ReportSource = crReportDocument Catch ex As Exception MsgBox(ex.Message) Me.Cursor = Cursors.Default End Try
1- Don't forget to import the labraries
2- G1 = the report document you create within Visual StudioCode:Imports CrystalDecisions.Shared Imports CrystalDecisions.CrystalReports.Engine
3- db.mdb = your database filename
4- ps1 = databse password
5- CRV = CrystalReportViewer control you add to the form




Reply With Quote