Bonjour,
Je reprend une application exploitant une base de donnée Access 2007 (accdb) pour y ajouter une édition d'état Crystal report 2008.
Les états sont créer depuis VS2008. Connexion OLEDB ->Microsoft Office 12 Access Database Engine, toutes les tables de la base sont visible, pas de mot de passe.
Problème :
Impossible de connecter la base de donnée a l'execution.
Merci de votre aide.

Code:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
 
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
Public Class EditeurCReport
 
    Private MyInterface As MyInterface = CType(My.Forms.Bureau, MyInterface)
    Private _CrReport As ReportDocument = Nothing
    Public Property CrReport() As ReportDocument
        Get
            Return Me._CrReport
        End Get
        Set(ByVal value As ReportDocument)
            Me._CrReport = value
            If (Me.CrReport IsNot Nothing) Then
                Dim CTableLogInfo As TableLogOnInfo
                Dim ConnInfo As CrystalDecisions.Shared.ConnectionInfo = New ConnectionInfo()
                ConnInfo.ServerName = Me.MyInterface.Config.ServerName
                ConnInfo.DatabaseName = Me.MyInterface.Config.Fichier_database ' AppSettings("dbNm")
                ConnInfo.UserID = Me.MyInterface.Config.Utilisateur ' AppSettings("username")
                ConnInfo.Password = Me.MyInterface.Config.Password ' AppSettings("pas")
                ConnInfo.AllowCustomConnection = False
                ConnInfo.IntegratedSecurity = False
                ConnInfo.Type = ConnectionInfoType.CRQE
                ' Me.CrReport.Database.Tables(0)
                For Each CTable As CrystalDecisions.CrystalReports.Engine.Table In Me.CrReport.Database.Tables
                    CTable.LogOnInfo.ConnectionInfo = ConnInfo
                    CTableLogInfo = CTable.LogOnInfo
                    CTableLogInfo.ReportName = Me.CrReport.Name
                    CTableLogInfo.TableName = CTable.Name
                    CTable.ApplyLogOnInfo(CTableLogInfo)
                Next
                Me.MyCrystalReportViewer.ReportSource = Me.CrReport
                Me.MyCrystalReportViewer.Refresh()
            End If
        End Set
    End Property
End Class