rpt.DataSourceConnections.Item(0).SetLogon("admin", "")
Failed to load database information. Error in File temp_56590165-ed16-4da1-a673-53bddf012e93 {1BF41BB8-7C9E-4319-AAE9-A637C86EE90D}.rpt: Failed to load database information.
PLEASE HELP ME TO SOLVED THIS TROUBLE
Imports System.Data.OleDb Imports CrystalDecisions.CrystalReports.Engine Imports CrystalDecisions.Shared Public Class Form5 Dim rpt As New CrystalReport1 Private Sub Form5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load createconn()'Create connection with DB Cmd.CommandText = "SELECT * FROM products" Cmd.Connection = Conn Dim adp As New OleDbDataAdapter adp.SelectCommand = Cmd Dim ds As New DataSet adp.Fill(ds, "products") Try rpt.DataSourceConnections.Item(0).SetConnection("", DBPath, False) rpt.DataSourceConnections.Item(0).SetLogon("admin", "") Catch ex As Exception MsgBox(ex.Message) End Try rpt.SetDataSource(ds.Tables(0))' Getting Error at this stage cr.ReportSource = rpt End Sub End Class 'Module for connection Imports System.Data.OleDb Module mdlconn Public Conn As New OleDbConnection Public Cmd As New OleDbCommand Public DBPath As String = Environment.CurrentDirectory & "\data\db.mdb;" Function createconn() Try If Conn.State = ConnectionState.Open Then Conn.Close() Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " _ & Environment.CurrentDirectory & "\data\db.mdb;" Conn.Open() Return True Catch ex As Exception MsgBox("Unable to create connection." + vbCrLf + "Err : " + ex.Message, vbCritical) Return False End End Try End Function End Module
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)