Discussion :

[k_boy]

Salut
j'ai une listview qui contient des données remplie par un utilisateur, et je veux imprimer le contenu de ce listview dans crystal report, et je ne sais pas où commencer, est-ce qu'il y a quelqu'un qui peut m'aider, parce que je n'ai pas une grande expérience avec crystal report.
merci

[tomlev]

parce que je n'ai pas une grande expérience avec crystal report.

moi non plus, mais peut-être qu'avec un tutoriel ce sera plus clair...
http://neo.developpez.com/tutos/cr/vbnet/

[k_boy]

merci pour ce tutorial
mais j'ai rencontré une erreur que je n'est pas pu la resoudre si vous pouvez me donner un coup de main

j'ai crée la requette suivante

Code :

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

 Me.myAdapter = New OleDb.OleDbDataAdapter("SELECT [num_entre],[code_article],[libelle],[qte],[prix] FROM entree WHERE (entree.[num_br] = @numbon)", cn)

et j'ai eu le message d'erreur suivant

L'exception OleDbException n'a pas été gérée
Aucune valeur donnée pour un ou plusieurs des paramètres requis.

sur la ligne

Code :

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

 myAdapter.Fill(DataMesProduits.entree)

d'ou sa peut venir ce message d'erreur ???

[tomlev]

ta requête contient un paramètre (@numbon), il faut donc donner une valeur pour ce paramètre :

Code :

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

1
2
3
Dim cmd As New OleDbCommand("SELECT [num_entre],[code_article],[libelle],[qte],[prix] FROM entree WHERE (entree.[num_br] = @numbon)", cn)
cmd.Parameters.AddWithValue("numbon", la_valeur_du_parametre)
Me.myAdapter = New OleDb.OleDbDataAdapter(cmd)

[k_boy]

maintenant il y a aucune erreur mais quand je vais dans mon crystalreport il n y aucune donnée , c'est quoi le probleme exacte ?malgré que j'ai fait un drag and drop des champs de la table vert le report.
est que j'ai raté quelque chose ?

[djouk]

Bonsoir,
Tu devras crier une vue a l'aide de l'assistant par exemple (vue1) sous sql server
et après choisi cette vue(vue1) comme une source de donne pour ton report

[k_boy]

je travail avec access
est ce que cette vue devera être crée dans ma base donnée aceess ?

[Hinault Romaric]

Poste ton code.

@++

[k_boy]

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
32
33
34
35
36
37
38
39
40
41
42
43
44
 
Dim num_bon_recep As Integer
num_bon_recep = Integer.Parse(TextB_num.Text)
 
 
'connexion à la base de donnée
 
cn = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\magasin\BDStock.mdb")
 
        cmd = New OleDb.OleDbCommand
 
        cmd.Connection = cn
 
        cmd.CommandText = "SELECT * FROM entree"
 
        cn.Open()
 
        rd = cmd.ExecuteReader
 
        rd.Close()
 
 
'on récupère les données
        Me.DataMesProduits = New GestionStock.imp_bon_reception
 
        paramCmd = New OleDb.OleDbParameter("@numbon", TextB_num.Text)
        Me.myAdapter = New OleDb.OleDbDataAdapter("SELECT [num_entre],[code_article],[libelle],[qte],[prix] FROM entree WHERE (entree.[num_br] = @numbon)", cn)
 
        cmd.Parameters.AddWithValue("numbon", num_bon_recep)
        Me.myAdapter = New OleDb.OleDbDataAdapter(cmd)
        Me.myAdapter.SelectCommand.Parameters.Add(paramCmd)
        myAdapter.Fill(DataMesProduits.entree)
 
 
'On passe les données du dataset dans le report
 
        Me.MonEtat = New GestionStock.CrystalReport1
        Me.MonEtat.SetDataSource(Me.DataMesProduits)
 
        imp_bon_recep.CrystalReportViewer1.ReportSource = Me.MonEtat
        imp_bon_recep.CrystalReportViewer1.Refresh()
        Me.DataMesProduits.Clear()
        Me.DataMesProduits.Dispose()
        imp_bon_recep.Show()

voila mon code, et j'espere que vous allez m'aider.
merci