connection of crystal report with access database please help!!

Question

manutd4life 0 Junior Poster

13 Years Ago

Hello everyone,
am doing a small project and i need to use crystal report with MS access.
i did the connection by wizard
but now am having problem with the path when using it on another PC.
What i need to know is how to connect Crystal report with access but with a relative path...so that i can use it on any PC

how its well explained
Please reply as soon as possible, its a bit urgent
Thanks

vb.net

7 Contributors
21 Replies
3K Views
2 Years Discussion Span
Latest Post 11 Years Ago Latest Post by Desiree_1

vanzhyme 0 Light Poster

13 Years Ago

Use a crystal report viewer on a form and use this code.

Imports System.Data.Oledb
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared

Publi Class Form2

Public Where as String
Private Report1 as ReportDocument

Private Sub CrystalReportViewer1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CrystalReportViewer1.Load

Dim A As CrystalDecisions.CrystalReports.Engine.Table
Dim B As CrystalDecisions.Shared.TableLogOnInfo

Report1 = New ReportDocument()

        Report1.Load(Application.StartupPath & "\ReportName.rpt")
        Report1.RecordSelectionFormula = Where



        For Each A In preport.Database.Tables
            B = tabs.LogOnInfo
            With B.ConnectionInfo
                .ServerName = Application.StartupPath & "\Database Name.mdb"
                .UserID = ""
                .Password = ""
                .DatabaseName = ""
           
 End With


            A.ApplyLogOnInfo(B)

        Next tabs

        Me.CrystalReportViewer1.ReportSource = Report1


End Sub


 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Form2.Show()
    End Sub

End Class

vanzhyme 0 Light Poster

13 Years Ago

Use a crystal report viewer on a form and use this code.

Imports System.Data.Oledb
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared

Publi Class Form2

Public Where as String
Private Report1 as ReportDocument

Private Sub CrystalReportViewer1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CrystalReportViewer1.Load

Dim A As CrystalDecisions.CrystalReports.Engine.Table
Dim B As CrystalDecisions.Shared.TableLogOnInfo

Report1 = New ReportDocument()

        Report1.Load(Application.StartupPath & "\ReportName.rpt")
        Report1.RecordSelectionFormula = Where



        For Each A In preport.Database.Tables
            B = tabs.LogOnInfo
            With B.ConnectionInfo
                .ServerName = Application.StartupPath & "\Database Name.mdb"
                .UserID = ""
                .Password = ""
                .DatabaseName = ""
           
 End With


            A.ApplyLogOnInfo(B)

        Next tabs

        Me.CrystalReportViewer1.ReportSource = Report1


End Sub


 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Form2.Show()
    End Sub

End Class

You need to copy the Crystal Report File into the Debug folder together with the
database.

IrshadIkhlas 0 Newbie Poster

13 Years Ago

have you tried with code i have sent earlier with seperate button instead of puting in form load

vanzhyme 0 Light Poster

13 Years Ago

just change the preport into Report1
I forgot to change the variable with it.

vanzhyme 0 Light Poster

13 Years Ago

For Each A In preport.Database.Tables
            B = tabs.LogOnInfo
            With B.ConnectionInfo
                .ServerName = Application.StartupPath & "\Database Name.mdb"
                .UserID = ""
                .Password = ""
                .DatabaseName = ""

change the preport into Report1

Reply to this topic

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.

manutd4life 0 Junior Poster · Answer 1 · 2011-03-18T17:34:14+00:00

hello, but when i put the crystal report file in debug folder, its not available in VB.NET..any help??

and for the code it said :
name 'preport' is not declared

any help

and thanks for reply am new with this
thank you for helping me

manutd4life 0 Junior Poster · Answer 2 · 2011-03-20T04:53:41+00:00

Use a crystal report viewer on a form and use this code.

Imports System.Data.Oledb
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared

Publi Class Form2

Public Where as String
Private Report1 as ReportDocument

Private Sub CrystalReportViewer1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CrystalReportViewer1.Load

Dim A As CrystalDecisions.CrystalReports.Engine.Table
Dim B As CrystalDecisions.Shared.TableLogOnInfo

Report1 = New ReportDocument()

        Report1.Load(Application.StartupPath & "\ReportName.rpt")
        Report1.RecordSelectionFormula = Where



        For Each A In preport.Database.Tables
            B = tabs.LogOnInfo
            With B.ConnectionInfo
                .ServerName = Application.StartupPath & "\Database Name.mdb"
                .UserID = ""
                .Password = ""
                .DatabaseName = ""
           
 End With


            A.ApplyLogOnInfo(B)

        Next tabs

        Me.CrystalReportViewer1.ReportSource = Report1


End Sub


 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Form2.Show()
    End Sub

End Class

You need to copy the Crystal Report File into the Debug folder together with the
database.

hello am getting problem only with the preport

For Each A In preport.Database.Tables

it's saying: name 'preport' is not declared

any help please
thanks

MohammedIrshad 0 Newbie Poster · Answer 3 · 2011-03-20T23:49:57+00:00

Add Another (Form2) and there add crystalReportViewer1 there.
In form1 add button and insert below code.

Dim oRpt As New CrystalReport1()
oRpt.Load(Application.StartupPath & "/CrystalReport1.rpt")
Form2.CrystalReportViewer1.ReportSource = oRpt
Form2.CrystalReportViewer1.RefreshReport()
Me.Hide()
Form2.Show()

Mike Bishop -3 Junior Poster · Answer 4 · 2011-03-21T00:24:11+00:00

would this also work if using a ODBC connection to my sql server?

MohammedIrshad 0 Newbie Poster · Answer 5 · 2011-03-21T02:54:50+00:00

It Should work. if Your crystal report is created then the code I have posted earlier is for the path to dispaly the report from the application where crystal report is stored

manutd4life 0 Junior Poster · Answer 6 · 2011-03-21T02:55:36+00:00

Add Another (Form2) and there add crystalReportViewer1 there.
In form1 add button and insert below code.
Dim oRpt As New CrystalReport1()
oRpt.Load(Application.StartupPath & "/CrystalReport1.rpt")
Form2.CrystalReportViewer1.ReportSource = oRpt
Form2.CrystalReportViewer1.RefreshReport()
Me.Hide()
Form2.Show()

ok am trying this now..will i need to use the codes above

and thank you very much for help..
thank you

manutd4life 0 Junior Poster · Answer 7 · 2011-03-21T03:05:12+00:00

ok am trying this now..will i need to use the codes above

and thank you very much for help..
thank you

i just tried it, i havnt use the code above..
when run on my PC..it is good
but when on another PC it looks for the database on my PC

i mean When i move the .exe file the database and the report in another folder
it doesnt run
it looks for the old path
u know what i mean

MohammedIrshad 0 Newbie Poster · Answer 8 · 2011-03-21T03:18:38+00:00

your DB should be in project so it will take path from the project.
but if your DB is not in project and some where else then copy your DB from your PC in which you have develop the application and paste in your other pc2 where you setup the application exactly with the same path of your pc1 .
when you will run the application, path will match and application will find the DB and I am sure it will work.

manutd4life 0 Junior Poster · Answer 9 · 2011-03-21T03:25:47+00:00

hmm ok, but i need to submitt this project...but how the examiner will create the same folder to make the path match.. :/

i think i need to use this code:

Imports System.Data.Oledb
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared

Publi Class Form2

Public Where as String
Private Report1 as ReportDocument

Private Sub CrystalReportViewer1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CrystalReportViewer1.Load

Dim A As CrystalDecisions.CrystalReports.Engine.Table
Dim B As CrystalDecisions.Shared.TableLogOnInfo

Report1 = New ReportDocument()

        Report1.Load(Application.StartupPath & "\ReportName.rpt")
        Report1.RecordSelectionFormula = Where



        For Each A In preport.Database.Tables
            B = tabs.LogOnInfo
            With B.ConnectionInfo
                .ServerName = Application.StartupPath & "\Database Name.mdb"
                .UserID = ""
                .Password = ""
                .DatabaseName = ""
           
 End With


            A.ApplyLogOnInfo(B)

        Next tabs

        Me.CrystalReportViewer1.ReportSource = Report1


End Sub


 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Form2.Show()
    End Sub

End Class

but the only problem is the preport!!

preport not declared

or do u know another way for this, but not to place database in same folder on PC2
because i need to submit this..

By the way thank you very much for helping

MohammedIrshad 0 Newbie Poster · Answer 10 · 2011-03-21T03:45:50+00:00

Yes You are right in your coding you have not declared the report.
change the coding as below in your code where is required and see if it works.

Dim Report1 As New ReportName()
Report1.Load(Application.StartupPath & "/ReportName.rpt")
Form2.CrystalReportViewer1.ReportSource = Report1
Form2.CrystalReportViewer1.RefreshReport()

manutd4life 0 Junior Poster · Answer 11 · 2011-03-21T03:58:30+00:00

For Each A In preport.Database.Tables

Here it is saying
Name 'preport' is not declared

:S

manutd4life 0 Junior Poster · Answer 12 · 2011-03-21T18:42:55+00:00

For Each A In preport.Database.Tables
            B = tabs.LogOnInfo
            With B.ConnectionInfo
                .ServerName = Application.StartupPath & "\Database Name.mdb"
                .UserID = ""
                .Password = ""
                .DatabaseName = ""

change the preport into Report1

i tried this before, but it said tabs it not declared, that y i was a bit loss
what about the tabs now

name 'tabs' is not declared

manutd4life 0 Junior Poster · Answer 13 · 2011-03-22T03:42:47+00:00

i tried this before, but it said tabs it not declared, that y i was a bit loss
what about the tabs now
name 'tabs' is not declared

ok i just changed 'tabs' by 'A'..an will test it soon

thanks for helping

manutd4life 0 Junior Poster · Answer 14 · 2011-03-23T01:05:51+00:00

for each a in preport.database.tables
            b = tabs.logoninfo
            with b.connectioninfo
                .servername = application.startuppath & "\database name.mdb"
                .userid = ""
                .password = ""
                .databasename = ""

change the preport into report1

heyyy!!! Everything work fine...
Thank you very much
i love you.. lol

thanks a lot..its like u save me while falling from a cliff..u save my world..

Thanks again ;)

johnmartin.sanchez 0 Newbie Poster · Answer 15 · 2012-09-23T07:33:24+00:00

A lot of thanks to all of you!!
I've got the same problem but now it's totally solved!!
Once again Tnx to all!!!

Desiree_1 0 Newbie Poster · Answer 16 · 2013-10-06T19:02:56+00:00

This discussion helped me a lot with my thesis! Thank you very much!!!!! All of you are such good people (teary-eyed). . . BIG, BIG, THANKS!!!! :D