Probleme avec combobox et datagridview - Base de données / Access, Visual Basic, VB6, VB.NET, VB 2005, VB

Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Ce site au démarrage

AccueilCodesTutorielsForumsEmploiLivresConnexion

begin process at 2008 12 05 18:11:05

[SILVERLIGHT] SILVERLIGHT ET L'AFFICHAGE DE CODE HTML par Thomas LEBRUN

AVEC SOFTWEAR, MICROSOFT LANCE SA LIGNE DE VêTEMENTS... par Yannick

[OPENXML4J] THE FUTURE OF OPENXML4J par neodante

[OPENXML4J] UTILISER OPENXML4J OU POI POUR SES PROJETS JAVA AVEC OPEN XML : L'AVENIR DU PROJET OPENXML4J par neodante

LA NOTION DE CLASSE ABSTRAITE EN PHP5 par orion

RE : TRI D'UN FICHIER TXT par Orohena

RE : VISUAL BASIC BLOCAGE ACCèS AU MENU OUTIL --> MACRO par FRITSCH2

RE : SE CONNECTER à UN RéPERTOIRE RéSEAU POUR LA PREMIèRE FOIS : LOGIN NéCESSAIRE par media6

LIRE UNE CELLULE AVEC PLUSIEURS VALEURS SéPARéES PAR ";" par Vampirelo

RE : ERREUR 70 à LA COPIE DE PST EN VB par media6

+ de logiciels à télécharger

1 304 363 membres
511 nouveaux aujourd'hui
14 559 membres club

Trouver une ressource

Trouvez une ressource parmi 39 095 codes, 1 209 832 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

Poser une question

Sujet : Probleme avec combobox et datagridview [ Base de données / Access ] (rb_nabil)

Informations & options pour cette discussion

Vous êtes ici : Thèmes / VB.NET et VB 2005 / Base de données / Access / Probleme avec combobox et datagridview
Ce sujet vous interesse ? Cliquez ici pour être averti quand il y a une nouvelle réponse

vendredi 16 mai 2008 à 13:04:00 | Probleme avec combobox et datagridview

rb_nabil

bonjour les amis,

je suis en train de developper un projet vb.net(2005) et j'ai rencontre deux probleme.
j'ai trois form une pour l'ajout et la seconde pour le consultation des ajout et la 3eme pour la modification

- quand je fais un ajout d'une enregistrement dans une base de donnes dans la forme 1 apres je execute la forme 2 pour la consultation le probleme c'est l'ajout de 2 ligne avec les memes valeur ds le datagridview.

- Quand je suis dans la 3eme form de modification des donness le probleme quand je modifie une ligne cette ligne et bien modifier mais le combobox ne actualise pas cette modification et il a aussi des doubllon.

merci les amis.

vendredi 16 mai 2008 à 13:16:18 | Re : Probleme avec combobox et datagridview

lillith212

Bonjour,

Alors je sais pas si c'est le cas de tous ceux qui ont pu lire ton post mais whaou!!! Compliqué à comprendre !

Questions :
Pourquoi 3 forms? La consultation, la modification, l'ajout ne peut pas être géré sur la même form ? En mettant la consultation par défaut en verrouillant tes zones et les déverouillant si on veut une modif ou les vidant dans le cas d'un ajout?

Comme tu ne nous mets pas ton code, je vais essayer de deviner.
Tu dois passer 2 fois dans ton instruction d'ajout. Test avec le pas à pas afin de vérifier.
Pour ta combo, resouds avant ce problème et ensuite tu verras pour ta combo mais en gros tu dois la recharger avec les nouvelles valeurs.

Bon courage.

SLB

---------------------------------------------------------------
Il faut beaucoup donner pour recevoir un tout petit peu...
---------------------------------------------------------------

vendredi 16 mai 2008 à 14:07:47 | Re : voila mon code complet

rb_nabil

tous d'abord merci pour ta reponse
voila mon code:

pour l'ajout:

PrivateSub ajouter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ajouter.Click

If nomprd.Text = ""And typeprd.Text = ""And prixachat.Text = ""And prixvente.Text = ""And qteprd.Text = ""Then

MsgBox(

"Donnees Non saisie")

Else

strconn =

"Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source= C:\Documents and Settings\nabil\Bureau\Gestion Droguerie\Gestion_Droguerie.mdb;"

strsql =

"select * from Produit"

objetconnection =

New OleDbConnection

objetconnection.ConnectionString = strconn

objetconnection.Open()

objetcommande =

New OleDbCommand(strsql)

objetdataadapter =

New OleDbDataAdapter(objetcommande)

objetcommande.Connection() = objetconnection

objetdataadapter.Fill(objetdataset,

"Produit")

objetdatatable = objetdataset.Tables(

"Produit")

objetdatarow = objetdataset.Tables(

"Produit").NewRow()

objetdatarow(

"Nom_Produit") = Me.nomprd.Text

objetdatarow(

"Type_Produit") = Me.typeprd.Text

objetdatarow(

"Prix_Achat_Produit") = Me.prixachat.Text

objetdatarow(

"Prix_Vente_Produit") = Me.prixvente.Text

objetdatarow(

"Qt,_Produit") = Me.qteprd.Text

objetdataset.Tables(

"Produit").Rows.Add(objetdatarow)

ObjetCommandBuilder =

New OleDbCommandBuilder(objetdataadapter)

objetdataadapter.Update(objetdataset,

"Produit")

objetdataset.Clear()

objetdataadapter.Fill(objetdataset,

"Produit")

objetdatatable = objetdataset.Tables(

"Produit")

objetconnection.Close()

MsgBox(

"Donnee ajouter avec Succes")

nomprd.Text =

typeprd.Text =

prixachat.Text =

prixvente.Text =

qteprd.Text =

EndIf

EndSub

pour le combobox:

Private

Sub nomprd_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nomprd.SelectedIndexChanged

strconn =

"Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source= C:\Documents and Settings\nabil\Bureau\Gestion Droguerie\Gestion_Droguerie.mdb;"

objetconnection =

New OleDbConnection

Dim cmd As OleDbCommand = objetconnection.CreateCommand()

cmd.CommandText =

"SELECT * FROM Produit WHERE Nom_Produit = '" & nomprd.Text & "'"

objetconnection.ConnectionString = strconn

objetconnection.Open()

Dim rdr As OleDbDataReader = cmd.ExecuteReader()

rdr.Read()

If rdr.HasRows Then

typeprd.Text = rdr(

"Type_Produit")

prixachat.Text = rdr(

"Prix_Achat_Produit")

prixvente.Text = rdr(

"Prix_Vente_Produit")

qteprd.Text = rdr(

"Qt,_Produit")

EndIf

rdr.Close()

Me.nomprd.Text = ""

Me.nomprd.Refresh()

objetconnection.Close()

EndSub

Pour la Modification:

Private

Sub modifier_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles modifier.Click

If nomprd.Text = ""And typeprd.Text = ""And prixachat.Text = ""And prixvente.Text = ""And qteprd.Text = ""Then

MsgBox(

"Donnees Non saisie")

Else

strconn =

"Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source= C:\Documents and Settings\nabil\Bureau\Gestion Droguerie\Gestion_Droguerie.mdb;"

strsql =

"select * from Produit where Nom_Produit='" & nomprd.Text & "'"

objetconnection =

New OleDbConnection

objetconnection.ConnectionString = strconn

objetconnection.Open()

objetcommande =

New OleDbCommand(strsql)

objetdataadapter =

New OleDbDataAdapter(objetcommande)

objetcommande.Connection() = objetconnection

objetdataadapter.Fill(objetdataset,

"Produit")

objetdatatable = objetdataset.Tables(

"Produit")

objetdatarow = objetdataset.Tables(

"Produit").Rows(rownumbre)

'Modifier les valeurs des champs en r,cup,rant le contenu des TextBox

objetdatarow(

"Nom_Produit") = Me.nomprd.Text

objetdatarow(

"Type_Produit") = Me.typeprd.Text

objetdatarow(

"Prix_Achat_Produit") = Me.prixachat.Text

objetdatarow(

"Prix_Vente_Produit") = Me.prixvente.Text

objetdatarow(

"Qt,_Produit") = Me.qteprd.Text

'Pour modifier les valeurs chang,es dans le DataAdapter

ObjetCommandBuilder =

New OleDbCommandBuilder(objetdataadapter)

'Mise . jour

objetdataadapter.Update(objetdataset,

"Produit")

Me.nomprd.Refresh()

'On vide le DataSet et on le 'recharge' de nouveau.

objetdataset.Clear()

objetdataadapter.Fill(objetdataset,

"Produit")

objetdatatable = objetdataset.Tables(

"Produit")

objetconnection.Close()

MsgBox(

"Donnee Modifier avec Succes")

nomprd.Text =

typeprd.Text =

prixachat.Text =

prixvente.Text =

qteprd.Text =

EndIf

EndSub

Pour Form Load

Private

Sub MiseajourProduit_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load

strconn =

"Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source= C:\Documents and Settings\nabil\Bureau\Gestion Droguerie\Gestion_Droguerie.mdb;"

strsql =

"select * from Produit"

objetconnection =

New OleDbConnection

objetconnection.ConnectionString = strconn

objetconnection.Open()

objetcommande =

New OleDbCommand(strsql)

objetdataadapter =

New OleDbDataAdapter(objetcommande)

objetcommande.Connection() = objetconnection

objetdataadapter.Fill(objetdataset,

"Produit")

objetdatatable = objetdataset.Tables(

"Produit")

objetdatarow = objetdataset.Tables(

"Produit").Rows(rownumbre)

nomprd.DataSource = objetdatatable

nomprd.DisplayMember =

"Nom_Produit"

objetconnection.Close()

EndSub

Pour form Load de Datagridview

PrivateSub ConsulterProduit_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load

strconn =

"Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source= C:\Documents and Settings\nabil\Bureau\Gestion Droguerie\Gestion_Droguerie.mdb;"

strsql =

"select * from Produit"

objetconnection =

New OleDbConnection

objetconnection.ConnectionString = strconn

objetconnection.Open()

objetcommande =

New OleDbCommand(strsql)

objetdataadapter =

New OleDbDataAdapter(objetcommande)

objetcommande.Connection() = objetconnection

objetdataadapter.Fill(objetdataset,

"Produit")

objetdatatable = objetdataset.Tables(

"Produit")

objetdatarow = objetdataset.Tables(

"Produit").Rows(rownumbre)

objetdatatable = objetdataset.Tables(

"Produit")

DataGridView1.DataSource = objetdatatable

DataGridView1.Refresh()

objetconnection.Close()

EndSub

merci bpc de m'aider

Cette discussion est classé dans : combobox, probleme, datagridview, ajout, modification

Répondre à ce message

Sujets en rapport avec ce message

probleme d'ajout,modification et supression [ par tipou ] Bonjour j'ai fait un formulaire a partir du wizard avec une base de donnee access au debut tout fonctionnait bien mais a force de modifier le formulai Probleme avec datagridview [ par hikrab ] Salut tout le monde J'ai réalisé une application de gestion de stock, avec un form qui contenant plusieurs onglets (dont chacun possède un datagridvi Probleme de datagridview (vb2005) [ par tbrault ] Bonjour a tous. J'ai un petit probléme avec mon controle datagridview.En fait je souhaiterais savoir si il existe un moyen de masquer toutes les lign ComboBox : Ajout de texte et de couleurs.. [ par DAVID59113 ] Bonjour,Voila je me suis lancé ya 15 jours dans le VB, j'ai commencé a assimilé certaines choses et j'ai fait pas mal de recherche sur la combobox sur Annulation d'ajout datagridview [ par cybercorp ] BonjourJe développe une petite application avec VB 2005 utilsant une base de données Acess.Pour Saisir les données je me sert de contrôles textBox et probleme de combobox [ par pile_poil ] bonjourmon probleme est le suivantSous VB6 quand je rempli un ComboBox à partir d'un tableau de données en vrac je mets la propriété Sorted du combo Probleme de " Image incorrect " a chaque ajout d'icone [ par rimas10 ] Bonjour svp quelqu'un pourrez bien m'aider j'aimerais bien ajouter des icones 3D très sympa lumineuse, ds mon projet extention c'est " *.ICO " franch Comment avoir un Combobox dans un DataGridView ? [ par Herminator ] Bonjour,J'ai rempli un datagridview avec une requête Sql, mon souci est que je voudrais que la première colonne de mon DataGridView soit un combobox. DatagridView valider les modifications en cours [ par Sbt ] Bonjour à tous,Voici mon probleme :j'ai un datagridview. lorsque l'utilisateur de l'appli modifie une cellule (de type combobox), le picto en debut de probleme service web en winform [ par mitnickKevin ] Bonjour,Petit probleme avec un service web.Voila j'essaye tout betement d'afficher une table d'une base de donnée access dans un datagridview sur un w