VB.Net rapport crystal chaîne de connexion

Je suis en utilisant vb.net 2010 de développer mon logiciel. Ont également crystal reports dans mes projets et tout fonctionne parfaitement sur mon PC.

Mon problème est que j'ai la conception du rapport crystal dans mon PC avec l'assistant et my PC is not the server, puis le télécharger sur le serveur de sorte qu'il serait accessible aux utilisateurs. Mais lorsque vous essayez d'ouvrir un rapport connection problem à la base de données s'affiche. Je sais que c'est en raison de la propriété de connexion lorsque j'ai conçu les rapports sur mon PC.

Comment puis-je résoudre ce problème.

  • Êtes-vous à l'aide de la DSN pour se connecter à la base de données? Vous pouvez poster votre code pour la connexion?
  • Qu'est-ce que la DSN? Tout ce que je fais est d'utiliser visual studio 2010 pour la conception de ces rapports.
  • voulez-vous dire DNS? Serveur De Nom De Domaine
  • Nom de Source de données = DSN. En quelque sorte, vous devez connecter votre rapport à la source de données (base de données). Évidemment, vous pouvez le faire sur votre PC. Mais une fois que vous passez à votre serveur, cette source de données ne sont plus accessibles/disponibles. Alors, comment êtes-vous de la connexion de votre rapport à la source de données?
  • Exactement, c'est mon problème. Je demande à propos de loin pour enregistrer la chaîne de connexion à la base de données par programmation, donc quel que soit le serveur DSN je peux juste modifier la source et les rapports fonctionne dans n'importe quel serveur.
  • Vous devez créer la même source de données sur votre serveur que vous avez sur votre PC.
  • L'a obtenu. C'est une façon de résoudre le problème. Mais si je veux spécifier le nom du serveur dans mon code qui peut être fait?

InformationsquelleAutor Hilal Al-Rajhi | 2013-12-08
  1. 4

    Il affiche le popup pour donner l'id utilisateur et le mot de passe. Je veux donner le serveur de connexion par programmation.

    VB.Net rapport crystal chaîne de connexion

    j'ai donné le code suivant toujours montrant le popup

    Private Sub CrystalReportViewer1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles CrystalReportViewer1.Load
        Dim cryRpt As New ReportDocument
        Dim crtableLogoninfos As New TableLogOnInfos
        Dim crtableLogoninfo As New TableLogOnInfo
        Dim crConnectionInfo As New ConnectionInfo
        Dim CrTables As Tables
        Dim CrTable As Table
        cryRpt.Load("E:\ColorLab1\colorlab\colorlab\rpt_bill.rpt")

        With crConnectionInfo
            .ServerName = "MAHESH\SQLEXPRESS"
            .DatabaseName = "cc"
            .UserID = "erp"
            .Password = "123"
        End With

        CrTables = cryRpt.Database.Tables
        For Each CrTable In CrTables
            crtableLogoninfo = CrTable.LogOnInfo
            crtableLogoninfo.ConnectionInfo = crConnectionInfo
            CrTable.ApplyLogOnInfo(crtableLogoninfo)
        Next
        CrystalReportViewer1.RefreshReport()
    End Sub

    Comment puis-je résoudre ce problème?

    • C'est la façon dont je pourrais résoudre mon problème. D'autres solutions sont presque les mêmes, mais ils impliquent une modification de mon pc nom de laquelle je n'ai pas aimé. Dans cette solution, vous mettez le nom du serveur dans le code et c'est tout.
    InformationsquelleAutor Mahesh ML
  2. 3

    Ajouter ce code dans le module(pour un accès commun)

     Public Sub SetReportDb(ByVal ConnectionString As String, ByRef CrystalReportViewer As CrystalDecisions.Windows.Forms.CrystalReportViewer, ByRef reportDocument As ReportClass)
'Get SQL Server Details
Dim builder As New System.Data.Common.DbConnectionStringBuilder()
builder.ConnectionString = ConnectionString
Dim zServer As String = TryCast(builder("Data Source"), String)
Dim zDatabase As String = TryCast(builder("Initial Catalog"), String)
Dim zUsername As String = TryCast(builder("User ID"), String)
Dim zPassword As String = TryCast(builder("Password"), String)
Dim ciReportConnection As New ConnectionInfo
ciReportConnection.ServerName = zServer
ciReportConnection.DatabaseName = zDatabase
ciReportConnection.UserID = zUsername
ciReportConnection.Password = zPassword
'Assign data source details to tables
For Each table As Table In reportDocument.Database.Tables
table.LogOnInfo.ConnectionInfo = ciReportConnection
table.ApplyLogOnInfo(table.LogOnInfo)
Next
For Each subrep As ReportDocument In reportDocument.Subreports
For Each table As Table In subrep.Database.Tables
table.LogOnInfo.ConnectionInfo = ciReportConnection
table.ApplyLogOnInfo(table.LogOnInfo)
Next
Next
'Assign data source details to the report viewer
If CrystalReportViewer.LogOnInfo IsNot Nothing Then
Dim tlInfo As TableLogOnInfos = CrystalReportViewer.LogOnInfo
For Each tbloginfo As TableLogOnInfo In tlInfo
tbloginfo.ConnectionInfo = ciReportConnection
Next
End If
reportDocument.VerifyDatabase()
reportDocument.Refresh()
CrystalReportViewer.ReportSource = reportDocument
CrystalReportViewer.Refresh()
End Sub

    À l'intérieur de chaque visualiseur de rapports crystal donner le code ci-dessous, il va se substituer à l'ancienne connexion avec connectionstring

     Private Sub CrystalReportViewer1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CrystalReportViewer1.Load
SetReportDb(My.Settings.colorlabConnectionString, CrystalReportViewer1, rpt_inwardreport1)
End Sub
    • C'est une très bonne réponse. Il réduit l'écriture même code pour chaque rapport.
    InformationsquelleAutor Mahesh ML
  3. 2

    Afin de mettre ceci en réponse adéquate:

    Votre premier problème est résolu par la création de la même source de données sur votre serveur que vous avez sur votre PC.
    Votre deuxième problème peut être résolu en utilisant un code qui ressemble à quelque chose comme ceci:

    connection.DatabaseName = [DatabaseName]
connection.UserID = [UserID]
connection.ServerName = [ServerName]
connection.Password = [Password]

    ou

    myCrystalReport.SetDatabaseLogon("myUsername", "myPassword","servername","dbname");
    • Je l'ai fait. J'ai ajouté les détails de connexion et changé le nom du serveur dans mon code pour le serveur, mais je vais avoir un problème: impossible d'ouvrir la connexion. Détails: [base de données de code du fournisseur: 17]....!
    InformationsquelleAutor campagnolo_1
  4. 1

    Salut les gars j'ai eu la réponse 

     Private Sub rpt_billform_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.CrystalReportViewer1.LogOnInfo.Item(0).ConnectionInfo.ServerName = "MAHESH\SQLEXPRESS"
Me.CrystalReportViewer1.LogOnInfo.Item(0).ConnectionInfo.DatabaseName = "cc"
Me.CrystalReportViewer1.LogOnInfo.Item(0).ConnectionInfo.UserID = "erp"
Me.CrystalReportViewer1.LogOnInfo.Item(0).ConnectionInfo.Password = "123"
End Sub
    • C'est bien, mais dans mon pc est l'environnement de développement de tous mes projets antérieurs et parfois besoin de modifier un projet. Cela va faire changer le nom de l'ordinateur plusieurs fois inefficace. Donc, nécessité d'avoir programmable solution.
    • vérifiez le code ci-dessous.
    InformationsquelleAutor Mahesh ML
  5. 1

    Je sais que ce post est vieux de quelques années, mais après avoir lutté avec ces mêmes problèmes, j'ai pensé que je voudrais ajouter une variation de Mahesh ML de routine pour MS SQL 2016 serveur.

    Trois choses à noter:

    • SqlClient.SqlConnectionStringBuilder est utilisé à la place de DbConnectionStringBuilder
    • zSecurity (ajoutée) pour la Fenêtre d'authentification au lieu d'utilisateur de base de données

    • reportDocument.DataSourceConnections(0).IntegratedSecurity = True est nécessaire lorsque l'authentification Windows est utilisé

      Public Sub SetReportSQL(ByVal ConnectionString As String,
ByRef CrystalReportViewer As CrystalDecisions.Windows.Forms.CrystalReportViewer,
ByRef reportDocument As ReportClass)
'Get SQL Server Details
Dim builder As New SqlClient.SqlConnectionStringBuilder
builder.ConnectionString = ConnectionString
Dim zServer As String = TryCast(builder("Data Source"), String)
Dim zDatabase As String = TryCast(builder("Initial Catalog"), String)
Dim zSecurity As Boolean = Boolean.TryParse(builder("Integrated Security"), zSecurity)
Dim zUsername As String = TryCast(builder("User ID"), String)
Dim zPassword As String = TryCast(builder("Password"), String)
Dim ciReportConnection As New ConnectionInfo
ciReportConnection.ServerName = zServer
ciReportConnection.DatabaseName = zDatabase
ciReportConnection.IntegratedSecurity = zSecurity
If zSecurity = False Then
ciReportConnection.UserID = zUsername
ciReportConnection.Password = zPassword
Else
reportDocument.DataSourceConnections(0).IntegratedSecurity = True
End If
'Assign data source details to tables
For Each table As Table In reportDocument.Database.Tables
table.LogOnInfo.ConnectionInfo = ciReportConnection
table.ApplyLogOnInfo(table.LogOnInfo)
Next
For Each subrep As ReportDocument In reportDocument.Subreports
For Each table As Table In subrep.Database.Tables
table.LogOnInfo.ConnectionInfo = ciReportConnection
table.ApplyLogOnInfo(table.LogOnInfo)
Next
Next
'Assign data source details to the report viewer
If CrystalReportViewer.LogOnInfo IsNot Nothing Then
Dim tlInfo As TableLogOnInfos = CrystalReportViewer.LogOnInfo
For Each tbloginfo As TableLogOnInfo In tlInfo
tbloginfo.ConnectionInfo = ciReportConnection
Next
End If
reportDocument.VerifyDatabase()
reportDocument.Refresh()
CrystalReportViewer.ReportSource = reportDocument
CrystalReportViewer.Refresh()
End Sub
    InformationsquelleAutor Greg Delaney