Discussion :

[Massigne]

Salut à tous voila j'ai finit avec avec mon application de de gestion d'usine que j'ai codé en vb.net pour la création de la base de données j'utilise sql server management studio 2014 et pour la création de mes états j'utilise crystal report for visual studio 2015. Ce ci fonctionne très bien sous visual studio. Mon problème se pose au niveau de l'affichage de mes états. Pour la création des états j'utilse le serveur ' (LocalDB)\MSSQLLocalDB ' pour me connecter à la base de donnée. Mais lorsque je copie la base de données dans mon projet et qu'à travers du code je le rattache à mon serveur, la partie crystal report ne marche plus et je recoit le message d'erreur suivant:

mai si je rattache la base de données qui existait déjà sur le serveur, crystal report vas plutot le détecter au lieu de la base de données que j'ai copier dans mon projet, je comprend qu'il s'agit bien du chemin d'acces que crystal report ne trouve pas.
j'aimerai donc savoir comment rattacher la base de données qui existe dans mon projet sur crystal report afin d'installer mon application sur d'autre ordinateur client?
Code de connexion et rattachement de la base de données au serveur:

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
 Public con As New SqlConnection
    Public cn As New SqlConnection
    Public cmd As New SqlCommand
    Public da As New SqlDataAdapter
    Public ds As New DataSet
    Public dt As New DataTable
    Public bs As New BindingSource
    Public dr As SqlDataReader
    Public i As Integer
    Public a As New OpenFileDialog
    Public mdf As String = "E:\HH\GESTION_USINES.mdf"
    Public ldf As String = "E:\HH\GESTION_USINES.ldf"
 
 
    Public Sub connecter()
        Try
            If con.State = ConnectionState.Closed Then
 
                con.ConnectionString = "Data Source=(LocalDB)\MSSQLLocalDB;AttachDbFilename='" & GetpathOfDatabase() & "';Integrated Security=True"
 
                'con.ConnectionString = "Data Source=.\SQLEXPRESS;Initial Catalog=GESTION_USINES;Integrated Security=True"
                cn.ConnectionString = "server=(LocalDB)\MSSQLLocalDB;Integrated Security=SSPI"
                con.Open()
                Dim cmd As New SqlCommand("exec sp_attach_db@dbname= N'GESTION_USINES', @filename1=N'" & mdf & "', @filename2=N'" & ldf & "", cn)
                cmd.ExecuteNonQuery()
            End If
            MsgBox("Connection réussit")
        Catch ex As Exception
            MsgBox("Echec de la connection")
        End Try
    End Sub

Code d'affiche des états

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
  Dim r As New Bilan_LamT2
        r.SetDataSource(ds)
        Form7.CrystalReportViewer1.ReportSource = r
        Form7.Show()
        r.Refresh()
        r.Dispose()