Séléction d'une Combobox

Bonjour,

je veux séléctionner à partir d'un combobox la liste des clients de ma base de donnée , une fois j'ai séléctionné le nom du client , ses coordonnées m'affiche ( tél , mail , adresse ) .

2 réponses

  1. Bonjour,

    Je veux bien tenter de t'aider, mais si tu veux que je t'aide, il faudra y aller pas à pas afin de faire les choses correctement.

    Première étape, tu vas créer un projet de type classe que tu nommeras ClientEntite

    Dans ce projet, tu auras une classe que tu nommeras ClientEnt.

    Dans cette classe, tu détails tous les champs de ta BD.

    Je te fournie un exemple après le souper.

    K
    1. Salut,

      Désolé pour hier j'ai eu une visite inattendu après souper.

      Bon si tu veux, je suis prêt à t'aider pas à pas pour créer une
      application qui contient un minimum de structure organique.

      Si tu trouve le modèle que je t'ai envoyé complexe, je peux
      comprendre car je n'ai pas appris cela en un jour. Mais si tu
      veux apprendre à programmer en VB.Net, il te faudra un minimum
      de connaissances en architecture organique.

      Les modèles sur les quels je travaille au boulot ont plus de 12 couches
      dans une architecture orienté services (AOS) ou WEB Services (WEBS).
      Et chaque couche peut-être diviser en plusieurs classes.

      Alors ça dépend de ce que tu veux faire.

      Si tu effectue des recherches sur les mots clés :

      DAL ( Data Access Layer )
      CDA ( Control Data Access)
      UAD ( Unité d'Accès aux Données )

      Tu verras qu'il existe un minimum de 4 couches pour une application standard.
      Alors dis moi ce que tu souhaite, continuer à développer selon une architecture
      minimum ou accéder directement à ta BD à partir de ton formulaire.

      Quel que soit ton choix, je te propose ici la première étape pour une structure
      organique minimum.

      Première étape, répliquer tous les champs de ta table dans une DLL, une classe.
      un projet, une solution.

      Voici un exemple :


      #Region " Importations des Espaces de noms des classes utilisées. "

      Imports System.Runtime.Serialization

      #End Region

      ''' <summary>
      ''' Description de la classe ClientENT
      ''' </summary>
      ''' <remarks><pre>
      ''' Systême : Application de base
      ''' Module : 01
      ''' Classe : ClientENT
      ''' Réalisé par : Kalissi
      ''' Date de création : 2011-01-01 04:00:00
      '''
      ''' Méthodes publiques : Facultatif
      '''
      ''' Propriétés publiques : Facultatif
      '''
      ''' Évênements publiques : Facultatif
      '''
      ''' </pre>
      ''' <history>
      ''' -------------------------------------------------------------------------------
      ''' Code Date Programmeur Description
      ''' -------------------------------------------------------------------------------
      ''' 1234567 2014-03-06 Kalissi Création initial
      ''' </history>
      ''' -------------------------------------------------------------------------------
      ''' </remarks>
      <Serializable()> _
      Public Class ClientEnt

      #Region "--- Attributs ---"

      Private zNomClient As String = String.Empty
      Private zNoCivique As String = String.Empty
      Private zRue As String = String.Empty
      Private zVille As String = String.Empty
      Private zEtat As String = String.Empty
      Private zCodePostal As String = String.Empty
      Private zTelephone As String = String.Empty

      #End Region

      #Region "--- Propriété ---"

      Public Property NomClient() As String
      Get
      Return Me.zNomClient
      End Get
      Set(ByVal value As String)
      Me.zNomClient = value
      End Set
      End Property

      Public Property NoCivique() As String
      Get
      Return Me.zNoCivique
      End Get
      Set(ByVal value As String)
      Me.zNoCivique = value
      End Set
      End Property

      Public Property Rue() As String
      Get
      Return Me.zRue
      End Get
      Set(ByVal value As String)
      Me.zRue = value
      End Set
      End Property

      Public Property Ville() As String
      Get
      Return Me.zVille
      End Get
      Set(ByVal value As String)
      Me.zVille = value
      End Set
      End Property

      Public Property Etat() As String
      Get
      Return Me.zEtat
      End Get
      Set(ByVal value As String)
      Me.zEtat = value
      End Set
      End Property

      Public Property CodePostal() As String
      Get
      Return Me.zCodePostal
      End Get
      Set(ByVal value As String)
      Me.zCodePostal = value
      End Set
      End Property

      Public Property Telephone() As String
      Get
      Return Me.zTelephone
      End Get
      Set(ByVal value As String)
      Me.zTelephone = value
      End Set
      End Property

      #End Region

      #Region "--- Constructeur ---"

      ''' <summary>
      ''' Constructeur par défault
      ''' </summary>
      ''' <remarks></remarks>
      Public Sub New()

      End Sub

      #End Region

      End Class

      K