Cristal Report con connessione a db automatica in fase di eseguzione

Question

Salve a tutti,

ho un probl.

Sto sviluppando una soluzione con diversi progetti tra cui un progetto cristal report.

Il report l'ho costruito con dei campi collegati al mio db sql server e agganciati a tabelle che vado ad aggiornare con altri prog.

In fase di esecuzione quando accedo alla form che contiene il report esce una finestra che mi chiede le credenziali per accedere al db. Io vorrei che ciò non venisse chiesto all'utente che non è in possesso di tali info. Come posso fare?

Grazie.

Answer 1

Ciao marcofio,

non hai specificato che DB utilizzi ne il codice che hai scritto per eseguire il report ma di solito si passano i parametri nella ConnectionInfo

crConnectionInfo = New ConnectionInfo()
With crConnectionInfo     
.ServerName = "<MyServerName>"     
.Password = "<MyPassword>"
.UserID = "<MyUserID>"
End With

Ciao

---

Renato Marzaro

Microsoft MVP .NET

http://community.visual-basic.it/renato

Answer 2

sql server

ma il codice che hai postato dv devo aggiungerlo?

sotto form load?

del viewer?

Answer 3

ho aggiunto questo codice all'evento load del form che contiene il viewer:

Dim logOnInfo As New TableLogOnInfo()
        logOnInfo = CrystalReport11.Database.Tables.Item("Fattura").LogOnInfo
        logOnInfo.ConnectionInfo.ServerName = "SERVER\SQLSERVER"
        logOnInfo.ConnectionInfo.DatabaseName = "DtbEasyJob"
        logOnInfo.ConnectionInfo.UserID = "sa"
        logOnInfo.ConnectionInfo.Password = "marcofio"
        logOnInfo.TableName = "Fattura"
        CrystalReport11.Database.Tables.Item("Fattura").ApplyLogOnInfo(logOnInfo)

        Dim logOnInfo2 As New TableLogOnInfo()
        logOnInfo = CrystalReport11.Database.Tables.Item("FatturaRiga").LogOnInfo
        logOnInfo.ConnectionInfo.ServerName = "SERVER\SQLSERVER"
        logOnInfo.ConnectionInfo.DatabaseName = "DtbEasyJob"
        logOnInfo.ConnectionInfo.UserID = "sa"
        logOnInfo.ConnectionInfo.Password = "marcofio"
        logOnInfo.TableName = "FatturaRiga"
        CrystalReport11.Database.Tables.Item("FatturaRiga").ApplyLogOnInfo(logOnInfo2)

        Dim logOnInfo3 As New TableLogOnInfo()
        logOnInfo = CrystalReport11.Database.Tables.Item("Azienda").LogOnInfo
        logOnInfo.ConnectionInfo.ServerName = "SERVER\SQLSERVER"
        logOnInfo.ConnectionInfo.DatabaseName = "DtbEasyJob"
        logOnInfo.ConnectionInfo.UserID = "sa"
        logOnInfo.ConnectionInfo.Password = "marcofio"
        logOnInfo.TableName = "Azienda"
        CrystalReport11.Database.Tables.Item("Azienda").ApplyLogOnInfo(logOnInfo3)

        Dim logOnInfo4 As New TableLogOnInfo()
        logOnInfo = CrystalReport11.Database.Tables.Item("IndirizziAzienda").LogOnInfo
        logOnInfo.ConnectionInfo.ServerName = "SERVER\SQLSERVER"
        logOnInfo.ConnectionInfo.DatabaseName = "DtbEasyJob"
        logOnInfo.ConnectionInfo.UserID = "sa"
        logOnInfo.ConnectionInfo.Password = "marcofio"
        logOnInfo.TableName = "IndirizziAzienda"
        CrystalReport11.Database.Tables.Item("IndirizziAzienda").ApplyLogOnInfo(logOnInfo4)

        CrystalReportViewer1.ReportSource = CrystalReport11

ma niente mi esce sempre la mascherina delle credenziali che tra l'altro non funziona neanche

Answer 4

Ciao marcofio,

fai attenzione hai definito 4 TableLogOnInfo ma assegni i dati sempre alla prima.

logOnInfo2, logOnInfo3, logOnInfo4 non sono valorizzate benché le passi poi al report.

Ciao

---

Renato Marzaro

Microsoft MVP .NET

http://community.visual-basic.it/renato

Answer 5

hai ragione, ho modificato ma in esecuzione esce sempre la finestra credenzioli ... uff

come è possibile?