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 CrystalDecisions.CrystalReports.Engine.ReportDocument With crConnectionInfo .DatabaseName = Application.StartupPath & "\sdcartdb.mdb" .Password = "" End With CrTables = Report.Database.Tables For Each CrTable In CrTables crtableLogoninfo = CrTable.LogOnInfo crtableLogoninfo.ConnectionInfo = crConnectionInfo CrTable.ApplyLogOnInfo(crtableLogoninfo) Next
my solution was by installing SQL Server 2012 Client Tool Connectivity, and backward client connectivity components using SQL Server setup source.
Report.DataSourceConnections.Clear() Report.DataSourceConnections.Item(0).SetConnection(Application.StartupPath & "\db.mdb", "db.mdb", 1)
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)