[VB.NET] Crystal Report: determinare percorso del DB tramite codice

[tony83]

REPORT CRYSTAL REPORT DINAMICO:

Scusate dovrei dare da codice al report la connessione al db!

Come posso fare?

Entro nel codice del report...

poi?

[sosan1]

Dim credenziali As New TableLogOnInfo
Dim report As New ReportDocument

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

Dim selForm As String
Dim nomeReport As String = Request.QueryString("name")


report.Load("C:\Inetpub\wwwroot\Report\" & nomeReport & ".rpt")

Dim connessione As String = Application("Connessione")

credenziali.ConnectionInfo.UserID = RecuperaCredenzialiDaStringaConnessione(connession e, "user id") credenziali.ConnectionInfo.Password = RecuperaCredenzialiDaStringaConnessione(connession e, "password") credenziali.ConnectionInfo.ServerName = RecuperaCredenzialiDaStringaConnessione(connession e, "Data Source")

CrystalStatistiche.LogOnInfo.Add(credenziali)




if nomeReport="report1" then

settaParametri()

else

report.RecordSelectionFormula = "{TABANAGRAFICA.REGIONE} = '" & Request.QueryString("reg")

End If

For intTablesCount As Integer = 0 To report.Database.Tables().Count() - 1

report.Database.Tables(intTablesCount).ApplyLogOnI nfo(credenziali)
For intSubReportCount As Integer = 0 To report.Subreports().Count() - 1

For tabella As Integer = 0 To report.Subreports.Item(intSubReportCount).Database ().Tables.Count - 1 report.Subreports().Item(intSubReportCount).Databa se().Tables(tabella).ApplyLogOnInfo(credenziali)

Next

Next intSubReportCount

Next intTablesCount

EsportainPDF()

End Sub

[power.mobile]

ma perchè collegate il report direttamente al db e non al dataset?

[tony83]

Originariamente inviato da power.mobile
ma perchè collegate il report direttamente al db e non al dataset?

quindi la vera e propria configurazione dinamica su stringa di connessione ad un report in Crystal Report è:

credenziali.ConnectionInfo.UserID = RecuperaCredenzialiDaStringaConnessione(connession e, "user id") credenziali.ConnectionInfo.Password = RecuperaCredenzialiDaStringaConnessione(connession e, "password") credenziali.ConnectionInfo.ServerName = RecuperaCredenzialiDaStringaConnessione(connession e, "Data Source")

??

grazie ciao!

[tony83]

Originariamente inviato da tony83
quindi la vera e propria configurazione dinamica su stringa di connessione ad un report in Crystal Report è:

credenziali.ConnectionInfo.UserID = RecuperaCredenzialiDaStringaConnessione(connession e, "user id") credenziali.ConnectionInfo.Password = RecuperaCredenzialiDaStringaConnessione(connession e, "password") credenziali.ConnectionInfo.ServerName = RecuperaCredenzialiDaStringaConnessione(connession e, "Data Source")

??

grazie ciao!

inoltre dovrebbe crearmi il file di codice .vb
se per esempio il file.rpt si chiama pippo.rpt dovrebbe generarmi in automatico anche il file di codice del report pippo.vb

perchè??

[tony83]

up

[tony83]

ho messo qesto codice sul form che chiama il report :



'Instanziamo la classe e creiamo un nuovo oggetto
Dim credentials = New TableLogOnInfo()

'Completiamo le proprietà con i nostri parametri per l'accesso a SQL
credentials.ConnectionInfo.DatabaseName = ConfigurationSettings.AppSettings("database")
credentials.TableName = "Q_REPORT"

'Aggiungiamo le credenziali al Report Viewer
cry_agenda.LogOnInfo.Add(credentials)

'Indichiamo al Report Viewer di caricare il Report creato (Report.rpt)
Dim appPath = Path.GetDirectoryName(Environment.CurrentDirectory ) & "\"
cry_agenda.ReportSource = appPath & "cry_agenda.rpt"
cry_agenda.Refresh()

ma il risultato e che non si vede + nulla, nel senso il report non si apre +!!!!!!