IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VB.NET Discussion :

combobox alimenté par requête sur base access


Sujet :

VB.NET

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Inscrit en
    Novembre 2004
    Messages
    62
    Détails du profil
    Informations forums :
    Inscription : Novembre 2004
    Messages : 62
    Par défaut combobox alimenté par requête sur base access
    Hello,

    je passe de VB6 à VB.net et je cherche à alimenter un combobox avec le résultat d'une requête sur une base access

    sous VB6 je faisais comme ça :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    rt.Open "SELECT DISTINCT nom_utilisateur FROM T_intervention"
    Do While Not rt.EOF
        liste_recherche_user.AddItem rt("nom_utilisateur")
        rt.MoveNext
    Loop
        rt.Close
    mais en VB.net je ne sais par où commencer...

  2. #2
    Membre confirmé
    Inscrit en
    Novembre 2004
    Messages
    62
    Détails du profil
    Informations forums :
    Inscription : Novembre 2004
    Messages : 62
    Par défaut
    Heu désolé c'est bon j'ai trouvé aprés quelques tests...

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    Dim adap As System.Data.OleDb.OleDbDataAdapter
            Dim ds As System.Data.DataSet
            Dim tbl As System.Data.DataTable
            Dim sql As String
            Dim cs As String
            Dim cnx As System.Data.OleDb.OleDbConnection
            Dim cmd As System.Data.OleDb.OleDbCommand
     
     'creation du DataSet
            ds = New System.Data.DataSet()
            'chaine de connexion
            cs = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
            "Data Source= c:\mabase.mdb;"
            'la connexion
            cnx = New System.Data.OleDb.OleDbConnection
            cnx.ConnectionString = cs
            cnx.Open()
            'la commande
            cmd = New System.Data.OleDb.OleDbCommand
            'la requete
            sql = "SELECT DISTINCT nom_utilisateur FROM T_intervention"
            cmd.CommandText = sql
            'creation d'un adaptateur
            adap = New System.Data.OleDb.OleDbDataAdapter(cmd)
            cmd.Connection = cnx
            adap.Fill(ds, "t_intervention")
            tbl = ds.Tables("t_intervention")
            liste_filtrer_par_utilisateur.DataSource = ds.Tables("t_intervention")
            'Indiquer quelle colonne affiche 
            liste_filtrer_par_utilisateur.DisplayMember = "nom_utilisateur"

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. requête SQL sur base access
    Par pppa1 dans le forum Requêtes et SQL.
    Réponses: 2
    Dernier message: 04/04/2011, 18h21
  2. requête SQL sur base access
    Par pppa1 dans le forum Requêtes et SQL.
    Réponses: 1
    Dernier message: 27/03/2011, 08h19
  3. Réponses: 3
    Dernier message: 03/06/2009, 11h49
  4. Jointure Externe sur base ACCESS par Query Excel
    Par marie10 dans le forum Langage SQL
    Réponses: 2
    Dernier message: 07/03/2006, 11h20
  5. Requête sur base de données ACCESS
    Par JLamotte dans le forum Access
    Réponses: 1
    Dernier message: 21/11/2005, 10h50

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo