Code vb.net
Pacome.k
Messages postés
15
Statut
Membre
-
Utilisateur anonyme -
Utilisateur anonyme -
Bonjour à tous, Respect à tous les grands de la programmation, moi je ne suis qu'un débutant avec quelques préoccupations. je travail petit à petit sur un gestionnaire de stock et je rencontre une difficulté. quand j'ouvre le combobox (catégorie produit) et fait le choix , les produits de cette catégorie s'affichent dans le combobox(LibelleProduit) et quand je clique sur un produit, il me donne des information du Fournisseur . sachant que un produit peut avoir plusieurs fournisseurs, je souhaiterai quand je clique sur un fournisseur du combobox(3) les informations tels que le prix du produit ...et tout le reste apparaitra dans les textbox. jusque là je n'arrive pas à le faire. aidez moi svp !
A voir également:
- Vb net code
- Code ascii - Guide
- Net framework 2.0 - Télécharger - Divers Utilitaires
- Paint net - Télécharger - Dessin & Illustration
- Code puk bloqué - Guide
- Comment déverrouiller un téléphone quand on a oublié le code - Guide
14 réponses
Dans ma boule de cristal, je vois qu'il manque une pinte à la ligne 1664.
Ha tu voulais une réponse sérieuse, ben il faut poser une question sérieuse...
D’où viennent tes données ?
Comment les lies tu aux combobox ?
Montrer le ou les morceaux de codes de la récupération des données et de leurs distributions seraitune bonne chose, y’a « 36 » façons de faire, autant répondre avec ce que tu as fait.
Ou t’expliquer pourquoi autrement pourrait être mieux.
Voir ce petit tuto https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code
On pourra commencer à essayer de t’aider quand on aura des éléments.
Ha tu voulais une réponse sérieuse, ben il faut poser une question sérieuse...
D’où viennent tes données ?
Comment les lies tu aux combobox ?
Montrer le ou les morceaux de codes de la récupération des données et de leurs distributions seraitune bonne chose, y’a « 36 » façons de faire, autant répondre avec ce que tu as fait.
Ou t’expliquer pourquoi autrement pourrait être mieux.
Voir ce petit tuto https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code
On pourra commencer à essayer de t’aider quand on aura des éléments.
Grand respect à vous tous, vous êtes nos devanciers et nos icones dans la programmation, infiniment merci d'apporter une attention à nos préoccupation. Respect à toi Whismeril !
j'ais lié mon projet à une base Access nommée Gst
j'ais lié mon projet à une base Access nommée Gst
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Lors de ma première réponse, je t’ai mis un lien vers un tuto expliquant comment poster un code lisible.
On commencera à essayer de t’aider quand tu l’auras posté correctement.
On commencera à essayer de t’aider quand tu l’auras posté correctement.
Public Class Modification_Produit
'cette procedure permet d'ouvrir la table Produit et de selectionnner uniquement la catégorie du produit
Dim conn As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OleDb.12.0;data source=" & Application.StartupPath & "\Gst.accdb")
Private Sub Modification_Produit_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
conn.Open()
Dim cmd6 As New OleDb.OleDbCommand("select distinct CategorieProduit from Produit", conn)
Dim dr6 As OleDb.OleDbDataReader = cmd6.ExecuteReader
cmbAfficheCatego.Items.Clear()
While dr6.Read()
cmbAfficheCatego.Items.Add(dr6("CategorieProduit"))
End While
conn.Close()
conn.Open()
Dim cmd4 As New OleDb.OleDbCommand("select Fournisseur from Produit", conn)
Dim dr4 As OleDb.OleDbDataReader = cmd4.ExecuteReader
cmbAncienFournisseur.Items.Clear()
While dr4.Read()
cmbAncienFournisseur.Items.Add(dr4("Fournisseur"))
End While
conn.Close()
End Sub
' la procédure suivant permet afficher en fonction de la categorie choisie, le produit
Private Sub cmbAfficheCatego_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbAfficheCatego.SelectedIndexChanged
conn.Open()
Dim cmd7 As New OleDb.OleDbCommand("select Distinct LibelleProduit from Produit where CategorieProduit='" + cmbAfficheCatego.Text + "'", conn)
Dim dr7 As OleDb.OleDbDataReader = cmd7.ExecuteReader
'ce petit code qui suit permet d'effacer le contenu du combobox2 apres un choix
cmbDesignation.Text = ""
cmbDesignation.Items.Clear()
While dr7.Read()
cmbDesignation.Items.Add(dr7("LibelleProduit"))
End While
conn.Close()
End Sub
'cette procedure permet d'afficher l'ancien prix du produit choisi et son code
Private Sub cmbDesignation_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbDesignation.SelectedIndexChanged
Dim cn As New OleDb.OleDbConnection
Dim cmd As New OleDb.OleDbCommand
Dim dr As OleDb.OleDbDataReader
cn.ConnectionString = "Provider=Microsoft.ACE.OleDb.12.0;data source=" & Application.StartupPath & "\Gst.accdb"
cn.Open()
cmd.Connection = cn
cmd.CommandText = "select * From Produit where LibelleProduit='" & cmbDesignation.Text & "'"
dr = cmd.ExecuteReader
While dr.Read
txtAncienPU.Text = dr.GetValue(2)
txtCodeProduit.Text = dr.GetValue(0)
txtAncienPUV.Text = dr.GetValue(8)
cmbAncienFournisseur.Text = dr.GetValue(6)
txtAncienNbContenant.Text = dr.GetValue(3)
txtAncienQteparcontenance.Text = dr.GetValue(4)
txtAncienEmplacement.Text = dr.GetValue(7)
txtancienStockmini.Text = dr.GetValue(9)
End While
' après selection d'un produit, le curseur se place sur le nouveau prix. cette formule qui suit nous permet d'exécuter cette opération
txtNouveauNom.Focus()
End Sub
Private Sub txtNouveauNom_TextChanged(sender As Object, e As EventArgs) Handles txtNouveauNom.TextChanged
' ce code permet d'activer le bouton ModifierNom quand la zonne de texte txtNouveauNom est activée
If txtNouveauNom.Text <> "" Then
btnModifierNom.Enabled = True
Else
btnModifierNom.Enabled = False
End If
End Sub
Private Sub txtNouveauPU_TextChanged(sender As Object, e As EventArgs) Handles txtNouveauPU.TextChanged
' ce code permet d'activer le bouton ModifierPU lorsque la zone de texte est activée et contien du numérique
If IsNumeric(txtNouveauPU.Text) Then
btnModifierPU.Enabled = True
Else
txtNouveauPU.Text = ""
btnModifierPU.Enabled = False
End If
End Sub
Private Sub btnModifierNom_Click(sender As Object, e As EventArgs) Handles btnModifierNom.Click
'ce code permet de modifier le nom du produit, a la fin de la modification, il faut vider les champs de saisie
Dim cn11 As New OleDb.OleDbConnection
Dim cmd11 As New OleDb.OleDbCommand
cn11.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\Gst.accdb"
cn11.Open()
cmd11.Connection = cn11
cmd11.CommandText = " Update Produit set LibelleProduit='" & txtNouveauNom.Text & "' where CodeProduit='" & txtCodeProduit.Text & "'"
cmd11.ExecuteNonQuery()
MsgBox("le Nom du Produit modifié avec succes", MsgBoxStyle.Information, "Modification du Nom")
cmbDesignation.Text = ""
txtNouveauNom.Text = ""
txtAncienPU.Text = ""
txtNouveauPU.Text = ""
txtCodeProduit.Text = ""
txtAncienPUV.Text = ""
cmbAncienFournisseur.Text = ""
txtAncienNbContenant.Text = ""
txtAncienQteparcontenance.Text = ""
txtAncienEmplacement.Text = ""
txtancienStockmini.Text = ""
txtNvPUV.Text = ""
txtNvFournisseur.Text = ""
txtNvnombrecontenant.Text = ""
txtNvnombrecontenant.Text = ""
txtNvlEmplacement.Text = ""
txtNveauStockmini.Text = ""
txtNvQteparContenant.Text = ""
cmbDesignation.Items.Clear()
'cmbDesignation.Items.Clear()
'conn.Open()
'Dim cmd7 As New OleDb.OleDbCommand("select LibelleProduit from Produit where CategorieProduit='" + cmbAfficheCatego.Text + "'", conn)
'Dim dr7 As OleDb.OleDbDataReader = cmd7.ExecuteReader
'ce petit code qui suit permet d'effacer le contenu du combobox2 apres un choix
'cmbDesignation.Text = ""
'cmbDesignation.Items.Clear()
'While dr7.Read()
'cmbDesignation.Items.Add(dr7("LibelleProduit"))
'End While
conn.Close()
End Sub
Private Sub btnModifierPU_Click(sender As Object, e As EventArgs) Handles btnModifierPU.Click
'ce code permet de modifier le PU du Produit sélectionné, a la fin de la modification, il faut vider les champs de saisie
'modification de l'"lement concerné dans la base
Dim cn As New OleDb.OleDbConnection
Dim cmd As New OleDb.OleDbCommand
cn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\Gst.accdb"
cn.Open()
cmd.Connection = cn
cmd.CommandText = " Update Produit set PUProduit='" & txtNouveauPU.Text & "' where CodeProduit='" & txtCodeProduit.Text & "'"
cmd.ExecuteNonQuery()
MsgBox("le PU du Produit modifié avec succes", MsgBoxStyle.Information, "Modification du PU")
cmbDesignation.Text = ""
txtNouveauNom.Text = ""
txtAncienPU.Text = ""
txtNouveauPU.Text = ""
txtCodeProduit.Text = ""
txtAncienPUV.Text = ""
cmbAncienFournisseur.Text = ""
txtAncienNbContenant.Text = ""
txtAncienQteparcontenance.Text = ""
txtAncienEmplacement.Text = ""
txtancienStockmini.Text = ""
txtNvPUV.Text = ""
txtNvFournisseur.Text = ""
txtNvnombrecontenant.Text = ""
txtNvnombrecontenant.Text = ""
txtNvlEmplacement.Text = ""
txtNveauStockmini.Text = ""
txtNvQteparContenant.Text = ""
cmbDesignation.Items.Clear()
End Sub
Private Sub btnFournisseur_Click(sender As Object, e As EventArgs) Handles btnFournisseur.Click
'modification de l'"lement concerné dans la base
Dim cn21 As New OleDb.OleDbConnection
Dim cmd21 As New OleDb.OleDbCommand
cn21.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\Gst.accdb"
cn21.Open()
cmd21.Connection = cn21
cmd21.CommandText = " Update Produit set Fournisseur='" & txtNvFournisseur.Text & "' where CodeProduit='" & txtCodeProduit.Text & "'"
cmd21.ExecuteNonQuery()
MsgBox("le Fournisseur du Produit modifié avec succes", MsgBoxStyle.Information, "Modification Fournisseur")
cmbDesignation.Text = ""
txtNouveauNom.Text = ""
txtAncienPU.Text = ""
txtNouveauPU.Text = ""
txtCodeProduit.Text = ""
txtAncienPUV.Text = ""
cmbAncienFournisseur.Text = ""
txtAncienNbContenant.Text = ""
txtAncienQteparcontenance.Text = ""
txtAncienEmplacement.Text = ""
txtancienStockmini.Text = ""
txtNvPUV.Text = ""
txtNvFournisseur.Text = ""
txtNvnombrecontenant.Text = ""
txtNvnombrecontenant.Text = ""
txtNvlEmplacement.Text = ""
txtNveauStockmini.Text = ""
txtNvQteparContenant.Text = ""
cmbDesignation.Items.Clear()
End Sub
Private Sub txtNvFournisseur_TextChanged(sender As Object, e As EventArgs) Handles txtNvFournisseur.TextChanged
' ce code permet d'activer le bouton ModifierNom quand la zonne de texte est activée
If txtNvFournisseur.Text <> "" Then
btnFournisseur.Enabled = True
Else
btnFournisseur.Enabled = False
End If
End Sub
'modification de l'"lement concerné dans la base
Private Sub btnNbdeContenant_Click(sender As Object, e As EventArgs) Handles btnNbdeContenant.Click
Dim cn21 As New OleDb.OleDbConnection
Dim cmd21 As New OleDb.OleDbCommand
cn21.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\Gst.accdb"
cn21.Open()
cmd21.Connection = cn21
cmd21.CommandText = " Update Produit set Nb_Contenant='" & txtNvnombrecontenant.Text & "' where CodeProduit='" & txtCodeProduit.Text & "'"
cmd21.ExecuteNonQuery()
MsgBox("le le nomre de contenant Produit modifié avec succes", MsgBoxStyle.Information, "Modification nb conenant")
cmbDesignation.Text = ""
txtNouveauNom.Text = ""
txtAncienPU.Text = ""
txtNouveauPU.Text = ""
txtCodeProduit.Text = ""
txtAncienPUV.Text = ""
cmbAncienFournisseur.Text = ""
txtAncienNbContenant.Text = ""
txtAncienQteparcontenance.Text = ""
txtAncienEmplacement.Text = ""
txtancienStockmini.Text = ""
txtNvPUV.Text = ""
txtNvFournisseur.Text = ""
txtNvnombrecontenant.Text = ""
txtNvnombrecontenant.Text = ""
txtNvlEmplacement.Text = ""
txtNveauStockmini.Text = ""
txtNvQteparContenant.Text = ""
cmbDesignation.Items.Clear()
End Sub
Private Sub txtNvQteparContenant_TextChanged(sender As Object, e As EventArgs) Handles txtNvQteparContenant.TextChanged
' ce code permet d'activer le bouton ModifierNom quand la zonne de texte est activée
If txtNvQteparContenant.Text <> "" Then
btnQteparContenance.Enabled = True
Else
btnQteparContenance.Enabled = False
End If
End Sub
'modification de l'"lement concerné dans la base
Private Sub btnQteparContenance_Click(sender As Object, e As EventArgs) Handles btnQteparContenance.Click
Dim cn21 As New OleDb.OleDbConnection
Dim cmd21 As New OleDb.OleDbCommand
cn21.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\Gst.accdb"
cn21.Open()
cmd21.Connection = cn21
cmd21.CommandText = " Update Produit set Quantite='" & txtNvQteparContenant.Text & "' where CodeProduit='" & txtCodeProduit.Text & "'"
cmd21.ExecuteNonQuery()
MsgBox("le nombre de Produit modifié avec succes", MsgBoxStyle.Information, "Modification nb de produit")
cmbDesignation.Text = ""
txtNouveauNom.Text = ""
txtAncienPU.Text = ""
txtNouveauPU.Text = ""
txtCodeProduit.Text = ""
txtAncienPUV.Text = ""
cmbAncienFournisseur.Text = ""
txtAncienNbContenant.Text = ""
txtAncienQteparcontenance.Text = ""
txtAncienEmplacement.Text = ""
txtancienStockmini.Text = ""
txtNvPUV.Text = ""
txtNvFournisseur.Text = ""
txtNvnombrecontenant.Text = ""
txtNvnombrecontenant.Text = ""
txtNvlEmplacement.Text = ""
txtNveauStockmini.Text = ""
txtNvQteparContenant.Text = ""
cmbDesignation.Items.Clear()
End Sub
'modification de l'"lement concerné dans la base
Private Sub btnModifierPUV_Click(sender As Object, e As EventArgs) Handles btnModifierPUV.Click
Dim cn21 As New OleDb.OleDbConnection
Dim cmd21 As New OleDb.OleDbCommand
cn21.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\Gst.accdb"
cn21.Open()
cmd21.Connection = cn21
cmd21.CommandText = " Update Produit set PUVProduit='" & txtNvPUV.Text & "' where CodeProduit='" & txtCodeProduit.Text & "'"
cmd21.ExecuteNonQuery()
MsgBox("le prix unitaire de vente modifié avec succes", MsgBoxStyle.Information, "Modification PUV de produit")
cmbDesignation.Text = ""
txtNouveauNom.Text = ""
txtAncienPU.Text = ""
txtNouveauPU.Text = ""
txtCodeProduit.Text = ""
txtAncienPUV.Text = ""
cmbAncienFournisseur.Text = ""
txtAncienNbContenant.Text = ""
txtAncienQteparcontenance.Text = ""
txtAncienEmplacement.Text = ""
txtancienStockmini.Text = ""
txtNvPUV.Text = ""
txtNvFournisseur.Text = ""
txtNvnombrecontenant.Text = ""
txtNvnombrecontenant.Text = ""
txtNvlEmplacement.Text = ""
txtNveauStockmini.Text = ""
txtNvQteparContenant.Text = ""
cmbDesignation.Items.Clear()
End Sub
'modification de l'"lement concerné dans la base
Private Sub btnStockMini_Click(sender As Object, e As EventArgs) Handles btnStockMini.Click
Dim cn21 As New OleDb.OleDbConnection
Dim cmd21 As New OleDb.OleDbCommand
cn21.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\Gst.accdb"
cn21.Open()
cmd21.Connection = cn21
cmd21.CommandText = " Update Produit set StockMini='" & txtNveauStockmini.Text & "' where CodeProduit='" & txtCodeProduit.Text & "'"
cmd21.ExecuteNonQuery()
MsgBox("le stock mini modifié avec succes", MsgBoxStyle.Information, "Modification du stockmini du produit")
cmbDesignation.Text = ""
txtNouveauNom.Text = ""
txtAncienPU.Text = ""
txtNouveauPU.Text = ""
txtCodeProduit.Text = ""
txtAncienPUV.Text = ""
cmbAncienFournisseur.Text = ""
txtAncienNbContenant.Text = ""
txtAncienQteparcontenance.Text = ""
txtAncienEmplacement.Text = ""
txtancienStockmini.Text = ""
txtNvPUV.Text = ""
txtNvFournisseur.Text = ""
txtNvnombrecontenant.Text = ""
txtNvnombrecontenant.Text = ""
txtNvlEmplacement.Text = ""
txtNveauStockmini.Text = ""
txtNvQteparContenant.Text = ""
cmbDesignation.Items.Clear()
End Sub
'modification de l'"lement concerné dans la base
Private Sub btnEmplacement_Click(sender As Object, e As EventArgs) Handles btnEmplacement.Click
Dim cn21 As New OleDb.OleDbConnection
Dim cmd21 As New OleDb.OleDbCommand
cn21.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\Gst.accdb"
cn21.Open()
cmd21.Connection = cn21
cmd21.CommandText = " Update Produit set Emplacement='" & txtNvlEmplacement.Text & "' where CodeProduit='" & txtCodeProduit.Text & "'"
cmd21.ExecuteNonQuery()
MsgBox("l'emplacement du Produit modifié avec succes", MsgBoxStyle.Information, "Modification de l'emplacement produit")
cmbDesignation.Text = ""
txtNouveauNom.Text = ""
txtAncienPU.Text = ""
txtNouveauPU.Text = ""
txtCodeProduit.Text = ""
txtAncienPUV.Text = ""
cmbAncienFournisseur.Text = ""
txtAncienNbContenant.Text = ""
txtAncienQteparcontenance.Text = ""
txtAncienEmplacement.Text = ""
txtancienStockmini.Text = ""
txtNvPUV.Text = ""
txtNvFournisseur.Text = ""
txtNvnombrecontenant.Text = ""
txtNvnombrecontenant.Text = ""
txtNvlEmplacement.Text = ""
txtNveauStockmini.Text = ""
txtNvQteparContenant.Text = ""
cmbDesignation.Items.Clear()
End Sub
Private Sub txtNvPUV_TextChanged(sender As Object, e As EventArgs) Handles txtNvPUV.TextChanged
' ce code permet d'activer le bouton ModifierNom quand la zonne de texte est activée
If txtNvPUV.Text <> "" Then
btnModifierPUV.Enabled = True
Else
btnModifierPUV.Enabled = False
End If
End Sub
Private Sub txtNvnombrecontenant_TextChanged(sender As Object, e As EventArgs) Handles txtNvnombrecontenant.TextChanged
' ce code permet d'activer le bouton ModifierNom quand la zonne de texte est activée
If txtNvnombrecontenant.Text <> "" Then
btnNbdeContenant.Enabled = True
Else
btnNbdeContenant.Enabled = False
End If
End Sub
Private Sub txtNvlEmplacement_TextChanged(sender As Object, e As EventArgs) Handles txtNvlEmplacement.TextChanged
' ce code permet d'activer le bouton ModifierNom quand la zonne de texte txtNouveauNom est activée
If txtNvlEmplacement.Text <> "" Then
btnEmplacement.Enabled = True
Else
btnEmplacement.Enabled = False
End If
End Sub
Private Sub txtNveauStockmini_TextChanged(sender As Object, e As EventArgs) Handles txtNveauStockmini.TextChanged
' ce code permet d'activer le bouton ModifierNom quand la zonne de text est activée
If txtNveauStockmini.Text <> "" Then
btnStockMini.Enabled = True
Else
btnStockMini.Enabled = False
End If
End Sub
'afficher le fournisseur en fonction du produit selectionné
Private Sub cmbAncienFournisseur_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbAncienFournisseur.SelectedIndexChanged
conn.Open()
Dim cmd7 As New OleDb.OleDbCommand("select Fournisseur from Produit where LibelleProduit='" + cmbAncienFournisseur.Text + "'", conn)
Dim dr7 As OleDb.OleDbDataReader = cmd7.ExecuteReader
'ce petit code qui suit permet d'effacer le contenu du combobox2 apres un choix
cmbAncienFournisseur.Text = ""
cmbAncienFournisseur.Items.Clear()
While dr7.Read()
cmbAncienFournisseur.Items.Add(dr7("Fournisseur"))
End While
conn.Close()
End Sub
End Class
j'aurai aimer que quand je selectionne le produit , tous les fornisseurs de ce produit apparaissent dans le combobox fournisseur et quand je clique sur ce fornisseur je vois afficher toutes les informations figurant dans l'image défini plus haut. c'est mon seul soucis qui est là !
j'ai pas de classe métier dans mon formulaire... je ne te saisi pas bien ! sois plus explicite en m'aidant
Salut et Grand respect à toi pour l'attention que tu portes à ma préoccupation et le soucis manifeste de m'aider à acquérir un bon niveau en programmation vb.net .
vb.net est un défi pour mois sur tout que je développait auparavant mes applications sous uniquement, j'ai voulu monter en niveau avec un langage de programmation pour parfaire mes application. faut dire que dans ma position actuel je m'auto-forme. donc j'ai vraiment besoin de vous , de votre soutien, vos conseils et explications pour grandir dans ce milieu. merci, merci et encore merci. j'ai un numéro whatsapp qui est le numéro supprimé par la.modération sur le quel je peux recevoir du vocal. et des cours approfondir sur vb.net