affichage du resultat d'un select sur une DataGridView sous VB.NET

Bonjour tout le monde,
En fait je voudrais afficher le resultat d'un requete "select" d'une base Access, lors d'un buton_click ; sur un DataGridView.
J'ai écrit ce code là mais le datagridview reste vide.

Code:

---

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

Imports System.Data.OleDb Public Class Form4 Dim con As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\GestsssstAVECRELATION.mdb") Dim com As New OleDb.OleDbCommand Dim dr As OleDb.OleDbDataReader Dim da As New OleDb.OleDbDataAdapter Dim ds As New DataSet   Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click   ChargerDonnees() Form5.Show() Me.Hide() End Sub   Private Sub ChargerDonnees() com.CommandText = ("select * from fournisseur where nom_fournisseur='" & Me.Nom_fournisseurComboBox.Text & "'") Dim dt As New DataTable Dim adpt As New Data.OleDb.OleDbDataAdapter(com) Try con.Open() adpt.Fill(dt) Form45.DataGridView1.DataSource = dt Finally con.Close() End Try End Sub

---

Mais je ne sais pas qu'est ce qui ne va pas , mais le datagridview du form5 reste vide aprés execution.

Merci de m'aider.

Bonjour

j'ai ajouté un bout de code , au moins le datagridview se rempli mais sans filtré les données; car je veut qu'il m'afiche seulement les employé concernant le fournisseur choisi lors du form precedent ( Me.Nom_fournisseurComboBox.Text ) , mais là ca m'afiche tout la liste des employés qui sont dans la base.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Private Sub ChargerDonnees() com.CommandText = ("select * from fournisseur where nomfournisseur='" & Me.Nom_fournisseurComboBox.Text & "'") Dim dt As New DataTable Dim adpt As New Data.OleDb.OleDbDataAdapter(com) Dim dr As OleDb.OleDbDataReader Try con.Open() adpt.Fill(dt) Finally ' le code ajouté ' dr = com.ExecuteReader While dr.Read Form45.DataGridView1.Text = (dr.GetValue(2)) End While dr.Close() con.Close() End Try End Sub

---

quelqu'un à une solution pour filtrer l'affichage selon le fourniseur choisi par l'utilisateur ???

merci d'avance

Hello l'ami,

Il ne faut pas utiliser Me.Nom_fournisseurComboBox.Text mais Me.Nom_fournisseurComboBox.SelectedValue pour utiliser le texte de la valeur sélectionnée dans le ComboBox.

De plus ton code me semble bancal :

Code:

---

1 2 3

While dr.Read Form45.DataGridView1.Text = (dr.GetValue(2)) End While

---

Je pense qu'il vaut mieux utiliser ceci :

Code:

---

1 2 3

While dr.Read Form45.DataGridView1.Rows.Add(dr.GetValue(2)) End While

---

Je l'ai pas testé, mais de mémoire il me semble que c'est comme ça que ça marche.

merci JohnPetrucci

mais il me donne une erreur de type :

Citation:

---

'Impossible d'ajouter par programme des lignes à la collection de lignes DataGridView lorsque le contrôle est lié aux données.'

---

dans le :

Code:

---

Form45.DataGridView1.Rows.Add(dr.GetValue(1))

---

Pour filtrer:

• utiliser DatagridView -> BindingSource -> DataTable
• modifier la propriété Filter du BindingSource avec une syntaxe semblable à celle de la clause WHERE d'une command SQL SELECT.

Citation:

---

Envoyé par unformatdj

Bonjour

j'ai ajouté un bout de code , au moins le datagridview se rempli mais sans filtré les données; car je veut qu'il m'afiche seulement les employé concernant le fournisseur choisi lors du form precedent ( Me.Nom_fournisseurComboBox.Text ) , mais là ca m'afiche tout la liste des employés qui sont dans la base.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Private Sub ChargerDonnees() com.CommandText = ("select * from fournisseur where nomfournisseur='" & Me.Nom_fournisseurComboBox.Text & "'") Dim dt As New DataTable Dim adpt As New Data.OleDb.OleDbDataAdapter(com) Dim dr As OleDb.OleDbDataReader Try con.Open() adpt.Fill(dt) Finally ' le code ajouté ' dr = com.ExecuteReader While dr.Read Form45.DataGridView1.Text = (dr.GetValue(2)) End While dr.Close() con.Close() End Try End Sub

---

quelqu'un à une solution pour filtrer l'affichage selon le fourniseur choisi par l'utilisateur ???

merci d'avance

---

Nan mais il y a un truc qui ne va pas a la base. Tu fais:

Code:

---

1 2 3

Try con.Open() adpt.Fill(dt)

---

Ce code devrait marché. Mais au vus de ta toute première erreur, une exception est levé, c'est pour ça que ton datagridview n'affichais rien.

Pour "contourné", tu utilise un datareader. Mais ça n'a pas de sens. Soit tu vois ce qu'il ne va pas sur ton Adapter.Fill, soit tu utilises directement le reader.

Si tu utilise le reader, alors il ne faut pas faire:

Code:

---

Datagridview.Datasource=Me.dt

---

Mais as ta place je regarderai plutôt pourquoi ta première méthode ne fonctionne pas.

L'erreur est là:

Tu créer une connexion... Tu lui fais open... c'est bien. Tu créer un dataadapter, mais ou tu lui dis quelle connexion utilisé ? nul part.

Il faudrait donc faire ça:

Code:

---

Dim adpt As New Data.OleDb.OleDbDataAdapter(com, con)

---

Et plus besoin de datareader.

Pour filtrer deux solutions:

- comme le dis Graffito, utilisé du Binding
- Ou beaucoup plus facilement, grâce a ta requête avec une clause where. (faut voir si c'est adapter à ce que tu veux faire.)

bonjour,
merci les amis,
mactwist69 , quand je fais

Code:

---

Dim adpt As New Data.OleDb.OleDbDataAdapter(com, con)

---

il me genere l'erreur suivante :

Citation:

---

Erreur 1 La résolution de surcharge a échoué, car aucun 'New' accessible ne peut être appelé avec ces arguments*:

'Public Sub New(selectCommandText As String, selectConnectionString As String)':
Une valeur de type 'System.Data.OleDb.OleDbCommand' ne peut pas être convertie en 'String'.

---

J'ai aussi enlevé le datareader, donc je suis revenu au point de depart, càd le datagridview est vide.

et pour la methode de filtrage:
Pour filtrer deux solutions:
- comme le dis Graffito, utilisé du Binding
- Ou beaucoup plus facilement, grâce a ta requête avec une clause where. (faut voir si c'est adapter à ce que tu veux faire.)

qu'est que il faut au juste dans , la propriété filter du buidingSource,?
ma requete close est ecrite ainsi:

Code:

---

com.CommandText = ("select * from fournisseur where nom_fournisseur='" & Me.Nom_fournisseurComboBox.SelectedValue & "'")

---

merci encore de m'aider.

merci Graffito

je essayé d'adapter ta solution et j'ecris comme ca :

Code:

---

Form5.EmployefrsBindingSource3.Filter = (" nom_fournisseur= '" & Me.Nom_fournisseurComboBox.SelectedValue & "'")

---

je mis ça dans le form4 dans un buton-click , pour qu'il m'affiche la liste sur le form5
mais voilà l'erreur qu'il me genere :

Citation:

---

Impossible de trouver la colonne [nom_fournisseur].

---

Sans initialiser Filter, est-ce qu'onvoit la colonne nom_fournisseur (ou nom_fournisseur?) dans le DataGridView ?

dans le datagridview , j'ai les meme champs que la table employés,
et #nom_fournisseur est une clé etrangere dans la table employé ,
donc voilà les champs du datagridview:

nomEmploye; cinEmploye; cnssEmploye; #nom_fournisseur; #datefin

Si on voit la table complète sans initialiser Filter, c'est donc :

Code:

---

1 2	Form5.EmployefrsBindingSource3.Filter = "(#nom_fournisseur='" & Me.Nom_fournisseurComboBox.SelectedValue & "'")

---

Pour faire plus joli :
- on utilisera un OUTER JOIN dans la SelectCommand pour mettre des colonnes d'info sur le fournisseur,
- on masquera les colonnes correspondant à des champs sans significations pour l'utilisateur (exemple clé primaires de type AutoIncrément)

Enfin, un conseil : Utiliser des constantes pour les noms de champs, par exemple :

Code:

---

1 2	NomFournisseur_Field= "#nom_fournisseur"

---

tout d'abord merci du fond du coeur Graffito
donc si je change le code devient :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

con.Open() com.CommandText = ("select * from employefrs where #nom_fournisseur='" & Me.Nom_fournisseurComboBox.SelectedValue & "'") com.Connection = con Dim dt As New DataTable 'Dim DataGridView1 As New DataGridView Dim adpt As New Data.OleDb.OleDbDataAdapter(com) dr = com.ExecuteReader While dr.Read Form45.DataGridView1.Text = dr.GetValue(1) Form45.EmployefrsBindingSource3.Filter = (" #nom_fournisseur= '" & Me.Nom_fournisseurComboBox.SelectedValue & "'")   End While dr.Close() con.Close()

---

Et donc lors de la compilation il m genere l'erreur sur le "dr.com.ExecuteReader"

Citation:

---

Erreur de syntaxe dans la date dans l'expression '#nom_fournisseur= ' X '.

---

Il faut choisir ta stratégie:
- soit SELECT avec WHERE et pas de Filter
- soit SELECT sans WHERE et Filter.

Sinon, l'instruction Form45.EmployefrsBindingSource3.Filter = ... doit êttre déplacée après le End While.
après le (" #nom_fournisseur= '" & .

Pour l'erreur sur le ExecuteReader :

• Que contient exactement com.CommandText ?
• Quel est le nom exact du champs ?
• Pourquoi as-tu abandonné la métode du premier post ( adpt.Fill(dt) puis Form45.DataGridView1.DataSource = dt).?

bonjour

Citation:

---

* Que contient exactement com.CommandText ?
* Quel est le nom exact du champs ?
* Pourquoi as-tu abandonné la métode du premier post ( adpt.Fill(dt) puis Form45.DataGridView1.DataSource = dt).?

---

je ressayé de continue sur ma methode adapt.fill(dt) ;mais je n'aboutis toujours pas à la solution; alors mon code
-select contient juste le nom de la table , sans le where , puisque j'utilise le filter
-le nom exact du champs dans la table fournisseur est nom_fournisseurs
-relation fournisseur et employer : fournisseur (contient)1,n employe
-alors dans la table fournisseur, qd on clique sur fournisseur , ses employer viennent en dessous .

J'espère que vous comprendriez, ce que j'essaie de vous dire , et j'espère trouver la solution , c'est devenu une vraie casse tête depuis 3 jours:(:cry:

le voici mon code actuellement,

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Private Sub ChargerDonnees() com.CommandText = ("select * from fournisseur ") com.Connection = con Dim dt As New DataTable Dim adpt As New Data.OleDb.OleDbDataAdapter(com) Try con.Open() adpt.Fill(dt) Form45.DataGridView1.DataSource = dt Form45.FournisseuremployefrsBindingSource.Filter = (" nom_fournisseur= '" & Me.Nom_fournisseurComboBox.SelectedValue & "'") Finally con.Close()   End Try

---

Enfinnnnn, c'est fait
merci à vous tous qui ont essayé à m'aider

Bonjour tout le monde, bah on réalisant mon application de projet de fin d'étude, je trouve un problème pour insérer le résultat d'un select dans un dataGrid view.Je désire quand je click sur un bouton "historique", aprés que j’insère un code client dans un textBox, le dataGrid view affiche tous les reglements qu'un client à effectuer .

sachant que le bouton se trouve dans une fenêtre et le dataGrid view dans une autre fenêtre . Je serai très reconnaissante à votre aide :(


voilà le code que j'ai utilisé :


Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click


Dim connect As SqlConnection = New SqlConnection("data source =NADIA-PC;Initial Catalog=GESTION;Integrated Security=True")
Dim da As SqlDataAdapter
Dim dt As New DataTable
connect.Open()
da = New SqlDataAdapter("select * from CLIENTS where code_client=('" & TextBox1.Text & "')", connect)
dt.Clear()
da.Fill(dt)


Fenêtre5.DataGridView1.DataSource = dt
Fenêtre5.Show()


End Sub