crystal report path

[kuldevbhasin]

hi guys...
i am new to vb.net 2003 and am using crystal reports to print my reports..
i have a accounting package...where the client has more than 1 company...now the prob is i have design the report using 1 company...i would like to know how i can run the same report for the 2nd or 3rd company...
can anyone pls. guide me ...
thankx in advance....

[jggtz]

Change the DataSource according to the selected company

[kuldevbhasin]

hi...i am stuck at the report data source part...

i have tried

  myPath = txtPath.Text
        xPrd_Code = txtPrd_Code.Text
        MyConConnection = objConn.OpenCompany(myPath)
        MyConConnection.Open()

and then giving

   Dim myreport As New rptPurchaseSumReport
                                myreport.SetDataSource(MyConConnection)

and even have tried

myreport.SetDataSource(txtPath.Text)

i have 2 companies...
1 table is company1 and 2nd is company2
i have created the report using company2 but even if i do the above both ways its showing me the data of company2 only...where as i am selecting company1 and then running the report....
the txtpath.text is correct as the data is showing of company1

would b greatful for a early reply...thankx a lot...
eagerly waiting for the reply....
thankx

[jggtz]

This may help You --->
http://snippets.dzone.com/posts/show/4029

[kuldevbhasin]

hi guys...thankx for the help ...i have done the following too...but still i cant set the path for the report...

 Dim myreport As New rptBillPrinting

                Dim con As New OleDbConnection
                Dim da As New OleDbDataAdapter
                Dim cmd As New OleDbCommand

                con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & txtPath.Text
                cmd.Connection = con
                da.SelectCommand = cmd
                da.MissingSchemaAction = MissingSchemaAction.AddWithKey

                con.Open()
                cmd.CommandText = "Select * from Sale WHERE Prd_Code = '" & txtPrd_Code.Text & "' AND BillNo = '" & txtBillNo.Text & "'"
                da.Fill(ds, "Sale")
                cmd.CommandText = "Select * from SaleDet WHERE Prd_Code = '" & txtPrd_Code.Text & "' AND BillNo = '" & txtBillNo.Text & "'"
                da.Fill(ds, "SaleDet")
                cmd.CommandText = "Select * from LedgerMaster"
                da.Fill(ds, "LedgerMaster")
                cmd.CommandText = "Select * from ItemMaster Where ItemType = 'F'"
                da.Fill(ds, "ItemMaster")

                myreport.SetParameterValue("CompanyName", txtCoName.Text)
                myreport.SetParameterValue("CoAdd1", txtCoAdd1.Text)
                myreport.SetParameterValue("CoAdd2", txtCoAdd2.Text)
                myreport.SetParameterValue("CoAdd3", txtCoAdd3.Text)
                myreport.SetParameterValue("Rupees", txtRupees.Text)
                myreport.SetDataSource(ds)

                crForm.CrystalReportViewer2.ReportSource = myreport

                Fltr = "{Sale.Prd_Code} = '" & txtPrd_Code.Text & "'"
                Fltr = Fltr & " AND {Sale.BillNo} = '" & txtBillNo.Text & "'"

                crForm.CrystalReportViewer2.SelectionFormula = (Fltr)
                crForm.Show()

but even then its taking from the path where i have created the report
the report does not give any error but still takes it from the same mdb file that i have used when i created the report

pls. pls. pls. help....
thankx

[jggtz]

Hope this help You :

Function ApplyLogon(ByVal cr As ReportDocument, ByVal ci As ConnectionInfo) As Boolean  
 
Dim li  As TableLogOnInfo  
Dim tbl As Table  
 
' for each table apply connection info   
For Each tbl In cr.Database.Tables  
    li = tbl.LogOnInfo  
    li.ConnectionInfo = ci  
    tbl.ApplyLogOnInfo(li)  
 
    ' check if  logon was successful  
    ' if  TestConnectivity returns false,  
    ' check logon credentials  
    If  (tbl.TestConnectivity()) Then  
        'drop fully qualified table location  
        If  (tbl.Location.IndexOf(".") > 0) Then  
            tbl.Location = tbl.Location.Substring(tbl.Location.LastIndexOf(".") + 1)   
        Else  
            tbl.Location = tbl.Location  
        End If   
    Else  
        Return False  
    End If   
    Return True  
Next  
End Function  
 

'The Logon method iterates through all tables  
Function Logon(ByVal cr As ReportDocument, ByVal server As String, ByVal db As String, ByVal id As String, ByVal pass As String) As Boolean  
 
Dim ci     As New ConnectionInfo()  
Dim subObj As SubreportObject  
Dim obj    As ReportObject  
 
ci.ServerName = server  
ci.DatabaseName = db  
ci.UserID = id  
ci.Password = pass  
 
If  Not (ApplyLogon(cr, ci)) Then  
    Return False  
End If   
 

For Each obj In cr.ReportDefinition.ReportObjects  
    If  (obj.Kind = ReportObjectKind.SubreportObject) Then  
        subObj = CType(obj, SubreportObject)  
        If Not (ApplyLogon(cr.OpenSubreport(subObj.SubreportName), ci)) Then  
	    Return False  
        End If   
    End If   
Next  
Return True  
End Function

[kuldevbhasin]

thankx jggtz for ur reply...i would surely try it as soon as i reach my place...but one more thing...i dont have a user name and password for the database...and the pc is a standalone one....so how do i do it...
sorry for the trouble....thankx a lot all u guys for being a great help....i will get back with the results by the day end.thanx

[kuldevbhasin]

jggtz sorry for replying sooo late...but first of all i took a lot of time to understand what and how it is being done as am very new to vb.net 2003 and secondly i have been trying and trying to get it working ....
i know theres nothing wrong with the code but everythings wrong with me lol.
i am using vb.net 2003 and its standalone
i have called the function as below

 Logon(mRpt, "kuldev", txtPath.Text, "Admin", "")

i even tried giving the server name as "" as i am not using any server....can u pls. guide me how i can call it...

someone pls. help me out plssssss...
thankx

[jggtz]

Other way :

'To pass logon information to a Crystal Report at runtime, use the following code sample:

Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared


Dim crtableLogoninfos As New TableLogOnInfos()
Dim crtableLogoninfo As New TableLogOnInfo()
Dim crConnectionInfo As New ConnectionInfo()
Dim CrTables As Tables
Dim CrTable As Table
Dim TableCounter

'If you are using a Strongly Typed report (Imported in
'your project) named CrystalReport1.rpt use the
'following:

Dim crReportDocument As New CrystalReport1()

'If you are using a Non-Typed report, and
'loading a report outside of the project, use the
'following:

Dim crReportDocument As New ReportDocument()

crReportDocument.Load("c:\myReports\myReport.rpt")

'Set the ConnectionInfo properties for logging on to
'the Database

'If you are using ODBC, this should be the
'DSN name NOT the physical server name. If
'you are NOT using ODBC, this should be the
'physical server name

With crConnectionInfo
.ServerName = "DSN or Server Name"

'If you are connecting to Oracle there is no
'DatabaseName. Use an empty string.
'For example, .DatabaseName = ""

.DatabaseName = "DatabaseName"
.UserID = "Your User ID"
.Password = "Your Password"
End With

'This code works for both user tables and stored
'procedures. Set the CrTables to the Tables collection
'of the report

CrTables = crReportDocument.Database.Tables

'Loop through each table in the report and apply the
'LogonInfo information

For Each CrTable in CrTables
CrTableLogonInfo = CrTable.LogonInfo
CrTableLogonInfo.ConnectionInfo =
crConnectionInfo
CrTable.ApplyLogOnInfo(crtableLogoninfo)

'If your DatabaseName is changing at runtime, specify
'the table location.
'For example, when you are reporting off of a
'Northwind database on SQL server you
'should have the following line of code:

crTable.Location = "Northwind.dbo." &
crTable.Location.Substring(crTable.Location.LastIndexOf(
".") + 1)
Next

'Set the viewer to the report object to be previewed.

CrystalReportViewer1.ReportSource = crReportDocument

JG

Also it may help that you visit --->
https://boc.sdn.sap.com/taxonomy/term/3

If you are changing database at runtime, it is
important that you specify the table location
after you apply logon information (this is a case
sensitive property). You can either specify the table name
only or the fully qualified table name such as

crTable.location = "databaseName.dbo.tablename"

• Refer to knowledge base article c2010275 if you
wish to change database logon information in the
main and subreport.

• If you are reporting off an Access database, then
specify either the 'ServerName' or 'DatabaseName'
to the 'ConnectionInfo' Object depending on
how you are connecting to Access.

For example, if you are connecting to Access
through ODBC, then set the 'DatabaseName' for the
'ConnectionInfo' object as follows:

With crConnectionInfo
.DatabaseName = "C:\mydatabase\mydata.mdb"
End With

If you are connecting to Access through OLE DB,
then set set the 'ServerName':

With crConnectionInfo
.ServerName = "C:\mydatabase\mydata.mdb"
End With

It is not possible to report of a secured Access
database using a native connection. See knowledge
base article C2010460 for more information.

• If you are using more than one database with
different usernames and passwords, use a loop to
pass in the different values.

[kuldevbhasin]

thankx a lot i got it working.....thankx for the great help.....
can i one more question b answered here ....or do i have to post a new thread for it....
is there any way to change the font of the report programatically
say i develop a prog. where the user selects the font he / she wants and then the same font should b applied to the report too...

thankx a lot for ur help...