Crystal report Database path setting in Database Expert using VB.net

Question

0.00/5 (No votes)

See more:

Hi,

I have created my application in Vb.net and have used crystal report. Now the crystal report is accessing a MS-Access database to generate report. How can I provide it a dynamic path such as application's installation path in database expert ? While developing the application it connects with the database which is located in a drive of my system, but if I want to install it in client system how I will do it? How to implement the same in case of multi-user system ?

Posted 23-Apr-13 22:36pm

Praveen21212

Add a Solution

Comments

Ezra Neil 13-May-13 4:35am

Switch to MySQL to achieve what you want easier. If you have to use MS-Access, you still can do it but you may encounter problems (the MS-Access file will be in shared folders).

mahrouch 26-Jul-13 17:56pm

Same problem for me,
@Ezra Neil, how to do it with MS-Access? thanks
@Praveen21212, what did you do for your problem?

Praveen21212 27-Jul-13 3:28am

Please have a look at the solution provided below. If you have any questions please revert. Thank you.

2 solutions

Solution 2

If you are using Ms-Access then simply follow the code block mentioned below and connect your access database normally to the crystal report.

========================X========================
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared

Public Class Form4

Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
Dim S As New Bills
With S
.FileName = "cryReport.RPT"
.SetDatabaseLogon("Admin", "PASSWORD")
End With

CrystalReportViewer1.ReportSource = S
CrystalReportViewer1.Refresh()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub

End Class
========================X========================

Posted 20-Nov-13 1:49am

Arijit_Chowdhury

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Praveen21212 · Accepted Answer · 2013-07-26T21:24:00

I found a solution and it's very simple to do. Just add connection info and apply it. Now every time when reports loads it will apply the connection info provided.

VB

Private Sub frmreportviewer_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim CrTables As Tables
        Dim crtableLogoninfo As New TableLogOnInfo
        Dim crConnectionInfo As New ConnectionInfo
        Try
			'reportdoc object
            Dim cryRpt As New ReportDocument
			
            'load report
            cryRpt.Load(My.Application.Info.DirectoryPath.ToString() & "\Report1.rpt")
            
			'parameters definition(if any)
            
			'provide connection info. This is important and you can change it as per your db location
			With crConnectionInfo
                .ServerName = My.Application.Info.DirectoryPath.ToString() & "\abc.mdb"
                '.DatabaseName = ""
                '.UserID = ""
                .Password = "password"
            End With

            CrTables = cryRpt.Database.Tables
            For Each CrTable In CrTables
                crtableLogoninfo = CrTable.LogOnInfo
                crtableLogoninfo.ConnectionInfo = crConnectionInfo
                CrTable.ApplyLogOnInfo(crtableLogoninfo)
            Next

            CrystalReportViewer1.ReportSource = cryRpt
            CrystalReportViewer1.Refresh()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub