1 pièce(s) jointe(s)
Déploiement d'application vb.net sql sever 2014 Crystal report for visual studio 2015
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:
Pièce jointe 248423
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:
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:
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() |