Passer des données combobox à crystal report viewer

Signaler
Messages postés
4
Date d'inscription
lundi 9 septembre 2013
Statut
Membre
Dernière intervention
9 septembre 2013
-
Messages postés
4
Date d'inscription
lundi 9 septembre 2013
Statut
Membre
Dernière intervention
9 septembre 2013
-
bonsoir à tous
j ai le formulaire qui a deux combobox , à partir duquels je dois faire la recherche

d'habitude j ai deja imprimé des état de sorties , par la requete

select * from conseil , puisque y a pas de combobox et en plus j ai fait ca par le wizar et pas de code

ma requete la suivante :

"select * from conseil where date ='"& combobox1.selecteditem.tostring &"' "
j ai crée une formulaire et un crystalreportviewer
voila le code de ma form1

ok() ' j'établit la connexion
Dim dtt As DataTable
sql = "select * from conseil where date ='"& combobox1.selecteditem.tostring &"' "
Try

da = New OleDbDataAdapter(sql, c)
Dim dsss As New DataSet
da.Fill(ds, "point")
dtt = ds.Tables("point")
Dim monrap As New CrystalReport
monrap.SetDataSource(dtt)
CrystalReportViewer1.ReportSource = monrap
CrystalReportViewer1.RefreshReport()

Catch ex As Exception
MsgBox(ex.Message)

End Try
c.Close() ' fermeture de connexion
vraiment j ai parcouru beaucoup de forums mais en vain , je suis bloqué .

5 réponses

Messages postés
3258
Date d'inscription
jeudi 26 novembre 2009
Statut
Membre
Dernière intervention
3 décembre 2019
50
Salut
et quelle est la question,le problème ?
Messages postés
4
Date d'inscription
lundi 9 septembre 2013
Statut
Membre
Dernière intervention
9 septembre 2013

merci d'abord pour l'intervention cs_ShayW
j ai une formulaire avec deux combobox 1 et 2
mon probleme c que:
je veux récuperer des données à partir du base de données access en clickant sur une bouton avec la requete :
select * from conseil where date ='"& combobox1.selecteditem.tostring &"' "
puis afficher les resultats sur un crystal report afin de les imprimer
Messages postés
3258
Date d'inscription
jeudi 26 novembre 2009
Statut
Membre
Dernière intervention
3 décembre 2019
50
déja quand tu postes un code utilises la coloration syntaxique
4 ieme icon

tu ne dis pas quel est le problème de ton code
pas ce que tu veux faire
Messages postés
4
Date d'inscription
lundi 9 septembre 2013
Statut
Membre
Dernière intervention
9 septembre 2013

ok je vais etre plus clair
d'ahibitude je glisse un crystal report vers le formulaire, aprés à l aide de menu je click sur crée un rapport crystal (juste assistant sans code) , puis je crée la connexion à la base de données de type access ce qui montre tt les table de ma base de données me donne la possiblilité d'éditer ma requete sql et à l execution projet la rapport se génére

le probleme c que maintenant ma requete necessite des combobox à l'exution du projet et moi je genere le rapport de maniére statique plutot sans code , comment je dois écrire le code pour que mon rapport soit géneré dynamiquement
Messages postés
4
Date d'inscription
lundi 9 septembre 2013
Statut
Membre
Dernière intervention
9 septembre 2013

ma deuxieme methode mais ca marche pas
j ai pensé à charger mes resultats sur un dataset mais j arrive pas affecté ces données sur le raport comme ceci:
Dim rpt As New CrystalReport2() 'The report you created.
        Dim myConnection As OleDbConnection
        Dim MyCommand As New OleDbCommand()
        Dim myDA As New OleDbDataAdapter()
        Dim myDS As New DataSet2() 'The DataSet you created.
        Try
            myConnection = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:exemple.mdb")

            MyCommand.Connection = myConnection
            MyCommand.CommandText = "SELECT * FROM membre where date='"& combobox1.selecteditem.tostring &"'"
            MyCommand.CommandType = CommandType.Text
            myDA.SelectCommand = MyCommand
            myDA.Fill(myDS, "membre")
            rpt.SetDataSource(myDS)
            CrystalReportViewer1.ReportSource = rpt

        Catch Excep As Exception
            MessageBox.Show(Excep.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try