Sujet Précédent Sujet Suivant

Code vb.net

Fermé
Pacome.k Messages postés 11 Date d'inscription mercredi 3 août 2016 Statut Membre Dernière intervention 10 avril 2022 - 4 avril 2022 à 17:43
Whismeril Messages postés 19040 Date d'inscription mardi 11 mars 2003 Statut Contributeur Dernière intervention 9 mai 2024 - 10 avril 2022 à 22:20
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:

14 réponses

Réponse 1 / 14
Whismeril Messages postés 19040 Date d'inscription mardi 11 mars 2003 Statut Contributeur Dernière intervention 9 mai 2024 932
Modifié le 5 avril 2022 à 13:01
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
Réponse 2 / 14
Pacome.k Messages postés 11 Date d'inscription mercredi 3 août 2016 Statut Membre Dernière intervention 10 avril 2022
7 avril 2022 à 16:13
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
Réponse 3 / 14
Whismeril Messages postés 19040 Date d'inscription mardi 11 mars 2003 Statut Contributeur Dernière intervention 9 mai 2024 932
7 avril 2022 à 16:32
Ok, ça vient d’access, peux tu poster le code qui lit les tables ?
0
Réponse 4 / 14
Pacome.k Messages postés 11 Date d'inscription mercredi 3 août 2016 Statut Membre Dernière intervention 10 avril 2022
7 avril 2022 à 16:40
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 14
Pacome.k Messages postés 11 Date d'inscription mercredi 3 août 2016 Statut Membre Dernière intervention 10 avril 2022
7 avril 2022 à 16:41
je veux pouvoir obtenir quelque chose comme ça dans ce formulaire. merci pour votre aide !
0
Réponse 6 / 14
Whismeril Messages postés 19040 Date d'inscription mardi 11 mars 2003 Statut Contributeur Dernière intervention 9 mai 2024 932
7 avril 2022 à 16:44
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
Réponse 7 / 14
Pacome.k Messages postés 11 Date d'inscription mercredi 3 août 2016 Statut Membre Dernière intervention 10 avril 2022
Modifié le 9 avril 2022 à 06:12 
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
Réponse 8 / 14
Pacome.k Messages postés 11 Date d'inscription mercredi 3 août 2016 Statut Membre Dernière intervention 10 avril 2022
7 avril 2022 à 16:51
j'ai essayé de suivre l'exemple de la source que vous m'avez envoyé...
0
Réponse 9 / 14
Whismeril Messages postés 19040 Date d'inscription mardi 11 mars 2003 Statut Contributeur Dernière intervention 9 mai 2024 932
9 avril 2022 à 06:14
Il faut choisir les balises avec le langage basic et poster le code à l’intérieur de celles ci
0
Réponse 10 / 14
Whismeril Messages postés 19040 Date d'inscription mardi 11 mars 2003 Statut Contributeur Dernière intervention 9 mai 2024 932
9 avril 2022 à 06:15
Pourquoi n’as tu pas codé de classe métier ?
0
Réponse 11 / 14
Pacome.k Messages postés 11 Date d'inscription mercredi 3 août 2016 Statut Membre Dernière intervention 10 avril 2022
9 avril 2022 à 21:03
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
Whismeril Messages postés 19040 Date d'inscription mardi 11 mars 2003 Statut Contributeur Dernière intervention 9 mai 2024 932
9 avril 2022 à 21:53
Oui et donc pourquoi tu n'as pas codé de classe(s) métier?
0
Réponse 12 / 14
Pacome.k Messages postés 11 Date d'inscription mercredi 3 août 2016 Statut Membre Dernière intervention 10 avril 2022
9 avril 2022 à 21:55
j'ai pas de classe métier dans mon formulaire... je ne te saisi pas bien ! sois plus explicite en m'aidant
0
Whismeril Messages postés 19040 Date d'inscription mardi 11 mars 2003 Statut Contributeur Dernière intervention 9 mai 2024 932
9 avril 2022 à 23:07
Je te conseille de lire ceci
https://codes-sources.commentcamarche.net/forum/affich-10107769-message-a-tous-les-debutants-souvent-autodidactes#p10107769
0
Réponse 13 / 14
Pacome.k Messages postés 11 Date d'inscription mercredi 3 août 2016 Statut Membre Dernière intervention 10 avril 2022
10 avril 2022 à 21:18
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
Réponse 14 / 14
Pacome.k Messages postés 11 Date d'inscription mercredi 3 août 2016 Statut Membre Dernière intervention 10 avril 2022
Modifié le 10 avril 2022 à 22:19
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
Whismeril Messages postés 19040 Date d'inscription mardi 11 mars 2003 Statut Contributeur Dernière intervention 9 mai 2024 932
10 avril 2022 à 22:20
Je pense que dans un premier temps le.cours de Tahé, te serait plus profitable.
Mais c’est toi qui vois
0

Discussions similaires

Code de renvoi d'appel : Ooredo, Mobilis...
midoou07 -
Camille -

13 réponses
code d'activation GTA 5 steam
ylyes59 -
David -

6 réponses
Acces à snapchat temporairement désactivé
Anto_1234 -
M2 -

87 réponses
Trouver le code PUK Maroc Telecom et débloquer ma carte sim
ELYAKOUBI -
Salam -

6 réponses