Discussion :

[digofwall]

Bonjour , j'essaie de faire un truc basique sur crystal report sous vb.net

j'ai une base de donnée contenant des employé , je veut afficher par exemple l'employé avec le numéro 4 et pouvoir l'afficher

si je code j'ai :

Code :

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

1
2
3
4
5
6
Dim ds As New DataSet
Dim req1 As New SqlClient.SqlDataAdapter("select * from tblEmployes where code=" & Val(ComboBox1.Text) & "")
req1.Fill(ds, "tblEmployé")
    Dim rpt As New facture
        rpt.SetDataSource(ds.Tables("tblEmployé"))
        CrystalReportViewer1.ReportSource = rpt

j'ai rien configurer ailleurs tout est la je veut que tout ce qui doit être configurer se trouve la dans un premier temps après je mettrai de l'ordre

alors le programme me dit :

Error 2 Value of type 'String' cannot be converted to 'System.Data.SqlClient.SqlCommand'. C:\Users\auremalakian\Documents\Projet 2010 Voyages\Projet 2010 Voyages\Projet 2010 Voyages\imprimerFacture.vb 20 50 Projet 2010 Voyages

je comprends pas pourquoi , dans ma combobox je choisis juste le code a afficher , mais la bug

pour info ma BDD est en access

merci

[Pol63]

il suffit de traduire le message d'erreur en anglais, de regarder sur quelle ligne il est


"select * from tblEmployes where code=" & Val(ComboBox1.Text) & ""
c'est un string
donc surement que New SqlClient.SqlDataAdapter veut un command, et pas un string


http://plasserre.developpez.com/cours/vb-net/

[digofwall]

salut , merci , mais je n'y arrive pas

j'ai fais ça :

Code :

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

1
2
3
4
5
Dim req1 As New SqlClient.SqlCommand("select * from tblClients where Numclient=" & Val(textbox1.Text) & "")
        'req1.Fill(ds, "tblEmployé")
        Dim rpt As New facture
        rpt.SetDataSource(ds.Tables("tblClients"))
        CrystalReportViewer1.ReportSource = rpt

pas d'erreur mais rien quand j'execute , et en plus je doit me tromper non? car j'utilise une base de donnée access

[Pol63]

rien ne sert de faire des copier coller sans comprendre le code
tu ne risques pas de te connecter à access avec les objets d'sql server


http://plasserre.developpez.com/cours/vb-net/

[digofwall]

j'ai changer pour :

Code :

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

1
2
3
4
5
Dim req1 As New OleDbCommand("select * from tblClients where Numclient=" & Val(TextBox1.Text) & "")
'req1.Fill(ds, "tblEmployé")
Dim rpt As New facture
rpt.SetDataSource(ds.Tables("tblClients"))
 CrystalReportViewer1.ReportSource = rpt

pour la ligne du crystal report y'a pas de probléme car j'arrive a afficher tout les cliens si j'ai envie , mais c'est la requete qui ne va pas

pourtant la je fais bien la requete , totu s'éxecute , je met genre " 4 " dans ma textbox et la dans le reportviewver rien ne se passe

quand au req1.fill il ne le prends plus depuis que j'ai changer en commande

[Hinault Romaric]

j'ai changer pour :

Code :

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

1
2
3
4
5
Dim req1 As New OleDbCommand("select * from tblClients where Numclient=" & Val(TextBox1.Text) & "")
'req1.Fill(ds, "tblEmployé")
Dim rpt As New facture
rpt.SetDataSource(ds.Tables("tblClients"))
 CrystalReportViewer1.ReportSource = rpt

pour la ligne du crystal report y'a pas de probléme car j'arrive a afficher tout les cliens si j'ai envie , mais c'est la requete qui ne va pas

pourtant la je fais bien la requete , totu s'éxecute , je met genre " 4 " dans ma textbox et la dans le reportviewver rien ne se passe

quand au req1.fill il ne le prends plus depuis que j'ai changer en commande

OleDbCommand ne contient pas la méthode fill, tu doit plutot utiliser un OleDbDataAdapter

Code :

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

1
2
3
4
 
Dim Adap As New OleDbDataAdapter("select * from tblClients where Numclient=" & Val(TextBox1.Text) & "", ObjetConnection)
Adap.Fill(ds, "tblEmployé")
.....

@++