Voici un petit programme qui marche en vb .net 2005 et qui illustre la maniere d'utiliser un rapport de crystal avec un dataset cree par code. Le source original a ete trouve sur le net et a ete modifie pour fonctionner avec oledb (base de donnees mdb d'access).
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
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.