Code vb.net

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 !

14 réponses

  1. 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.

    0
    1. 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
      0
      1. Ok, ça vient d’access, peux tu poster le code qui lit les tables ?
        0
        1. je veux pouvoir obtenir quelque chose comme ça dans ce formulaire. merci pour votre aide !
          0
          1. 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.
            0
            1. 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
              0
              1. j'ai essayé de suivre l'exemple de la source que vous m'avez envoyé...
                0
                1. Il faut choisir les balises avec le langage basic et poster le code à l’intérieur de celles ci
                  0
                  1. Pourquoi n’as tu pas codé de classe métier ?
                    0
                    1. 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à !
                      0
                      1. Oui et donc pourquoi tu n'as pas codé de classe(s) métier?
                        0
                    2. j'ai pas de classe métier dans mon formulaire... je ne te saisi pas bien ! sois plus explicite en m'aidant
                      0
                      1. Je te conseille de lire ceci
                        https://codes-sources.commentcamarche.net/forum/affich-10107769-message-a-tous-les-debutants-souvent-autodidactes#p10107769
                        0
                    3. 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 .
                      0
                      1. 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
                        0
                        1. Je pense que dans un premier temps le.cours de Tahé, te serait plus profitable.
                          Mais c’est toi qui vois
                          0