Around and About .NET World

Il blog di Marco Minerva
posts - 1671, comments - 2232, trackbacks - 2135

My Links


Contattami su Live Messenger:

MCTS: Windows, Web, Distributed Applications & SQL Server

MCPD: Enterprise Applications

Tag Cloud


Post Categories


Cambiare la stringa di connessione di Crystal Reports a runtime

Può sembrare un task banale, invece, se si deve cambiare a runtime la stringa di connessione di un report realizzato con Crystal Reports, è necessario scrivere alcune righe di codice. Sul sito di Code Project, all'indirizzo, è illustrata una procedura che spiega come fare. Non è niente di eccezionale, ma è comunque uno snippet di codice abbastanza utile.

Al momento questa pagina risulta inaccessibile, ma per fortuna ci viene in aiuto la cara funzione cache di Google. Qui di seguito riporto il codice contenuto nella suddetta pagina:

'' this project creates the crystal report using the features

'1. ADD form
'2. Add Crystalviewer on the form
'3. Add dataset from Add new File
'4. Add new element on to the Dataset (the element name should be the same as the name of the field or column 
'in the current table )
'5. Add Crytal report from Add new file
'6. Follow the wizard to create connection for the report, Select the project Data and select the Dataset that u create in the project
'7. Select the fields u want to display 



Private Sub Form1_Load(ByVal sender As System.ObjectByVal As System.EventArgs) Handles MyBase.Load

Dim con As New OdbcConnection
Dim com As New OdbcCommand
Dim adp As New OdbcDataAdapter

Dim ds As New Dataset1


Dim path  = Application.StartupPath.ToString

    con.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};Dbq= C: Files Visual Studio .NET 2003 Reports.mdb;Uid=Admin;Pwd=;"
    com.CommandText = "select EmployeeID, [Last Name], FirstName from employee"
    com.CommandType = CommandType.Text
    com.Connection = con
    adp.SelectCommand = com

adp.Fill(ds, "employeeDS")
Catch ex As Odbc.OdbcException
End Try

myreport As New CrystalReport1
cr.ReportSource = myreport
Catch ex As Exception
End Try

End Sub

powered by IMHO 1.3

Print | posted on mercoledì 26 luglio 2006 16:39 | Filed Under [ VB .NET ADO .NET & SQL ]



# re: Cambiare la stringa di connessione di Crystal Reports a runtime

PDF Creator
Word to PDF Converter
Excel to PDF Converter
Image to PDF Converter
08/09/2010 11:23 | han
Comments have been closed on this topic.

Powered by:
Powered By Subtext Powered By ASP.NET