Hi All I am writing Code for using Crystal Report with App.config.This should be used for Windows Application only.


Imports CrystalDecisions.crystalreports.engine
Imports CrystalDecisions.reportsource
Imports CrystalDecisions.shared
Imports CrystalDecisions.windows.forms

Public Class Form2
    Inherits System.Windows.Forms.Form

  Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim crtableLogoninfo As New TableLogOnInfo
        Dim crConnectionInfo As New ConnectionInfo
        Dim CrTables As Tables
        Dim CrTable As Table
        Dim TableCounter
        Dim crReportDocument1 As New RptBill
        Dim crReportDocument As New ReportDocument
        Dim crParameterDiscreteValue As ParameterDiscreteValue
        Dim crParameterFieldDefinitions As ParameterFieldDefinitions
        Dim crParameterFieldLocation As ParameterFieldDefinition
        Dim crParameterValues As ParameterValues
        Dim billno As New InfoGeneration
        Dim sname As Configuration.ConfigurationSettings
        crReportDocument.Load("../RptBill.rpt")
        With crConnectionInfo
            .ServerName = sname.AppSettings("servername")
            .DatabaseName = sname.AppSettings("dbname")
            .UserID = sname.AppSettings("username")
            .Password = sname.AppSettings("password")
        End With
        CrTables = crReportDocument.Database.Tables
        For Each CrTable In CrTables
            crtableLogoninfo = CrTable.LogOnInfo
            crtableLogoninfo.ConnectionInfo = crConnectionInfo
            CrTable.ApplyLogOnInfo(crtableLogoninfo)
        Next
        CrystalReportViewer1.ReportSource = crReportDocument
        crParameterFieldDefinitions = crReportDocument.DataDefinition.ParameterFields
        crParameterFieldLocation = crParameterFieldDefinitions.Item("@billno")
        crParameterValues = crParameterFieldLocation.CurrentValues
        crParameterDiscreteValue = New CrystalDecisions.Shared.ParameterDiscreteValue
        crParameterDiscreteValue.Value = billno.intBillNo
        crParameterValues.Add(crParameterDiscreteValue)
        crParameterFieldLocation.ApplyCurrentValues(crPara meterValues)
        CrystalReportViewer1.Show()
    End Sub
End Class

ADD a APP.Config by Right click on Solution Explorer for creating dyanamic connection
<?xml version="1.0" encoding="utf-8" ?>
<configuration>
<appSettings>
<add key="servername" value="SERVERNAME"></add>
<add key="dbname" value="DATABASENAME"></add>
<add key="username" value="USERNAME "></add>
<add key="password" value="PASSWORD "></add>
</appSettings>
</configuration>


Deepak Kumar Sharma
PGMS Inc(Noida)(India)
Mobile:09313107703