mouradgc
Messages postés3Date d'inscriptionvendredi 7 janvier 2005StatutMembreDernière intervention12 janvier 2012 12 janv. 2012 à 09:05
bonjour
votre code est un peu compliquer car vous creer une table temperaire pour afficher un etat et vous le supprimer encore.ce qui est bizard !!.
bon voila je vous donne ce code simple est pratique pour corriger ou remplacer votre code :
il faut creer une classe de connexion que je l'ai appeler ModuleConnexion dans laquelle vous introduiser la schaine de connexion comme suit
Public Sub connection()
connexion.ConnectionString = "Data Source=localhost;Initial Catalog=nomde la base;;User id=users passe ;password=votre mot de passe;Integrated Security=True"
connexion.Open()
End Sub
ensuite sur la frame ou vouler vous voir l'etat vous introduiser le code ci dessus
ModuleConnexion.connection()
sql = "SELECT * from T_Poste "
Dim da As New SqlDataAdapter(sql, ModuleConnexion.connexion)
Dim ds As New DataSet
Dim objRpt As New CrystalReport1
da.Fill(ds, "T_Poste")
12 janv. 2012 à 09:05
votre code est un peu compliquer car vous creer une table temperaire pour afficher un etat et vous le supprimer encore.ce qui est bizard !!.
bon voila je vous donne ce code simple est pratique pour corriger ou remplacer votre code :
il faut creer une classe de connexion que je l'ai appeler ModuleConnexion dans laquelle vous introduiser la schaine de connexion comme suit
Public Sub connection()
connexion.ConnectionString = "Data Source=localhost;Initial Catalog=nomde la base;;User id=users passe ;password=votre mot de passe;Integrated Security=True"
connexion.Open()
End Sub
ensuite sur la frame ou vouler vous voir l'etat vous introduiser le code ci dessus
ModuleConnexion.connection()
sql = "SELECT * from T_Poste "
Dim da As New SqlDataAdapter(sql, ModuleConnexion.connexion)
Dim ds As New DataSet
Dim objRpt As New CrystalReport1
da.Fill(ds, "T_Poste")
objRpt.SetDataSource(ds.Tables("T_Poste"))
CrystalReportViewer1.ReportSource = objRpt
CrystalReportViewer1.Refresh()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
ModuleConnexion.connexion.Close()
bonne code
azyez mourad
24 oct. 2010 à 05:48
vas y voir
http://vb.net-informations.com/crystal-report/vb.net_crystal_report_without_database.htm
23 oct. 2010 à 18:38