Remplir une liste box [Résolu]

Messages postés
7
Date d'inscription
samedi 10 avril 2010
Statut
Membre
Dernière intervention
12 avril 2010
- - Dernière réponse : papillonrourou
Messages postés
7
Date d'inscription
samedi 10 avril 2010
Statut
Membre
Dernière intervention
12 avril 2010
- 10 avril 2010 à 15:13
je veux remplir une liste box à partir ma base mais aucun résultat ne s'affiche é j sé pa pourquoi
Private Sub rech_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rech.Click

        '  Déclaration Objet Connexion

        Dim ObjetConnection As OleDbConnection
        ' Déclaration Objet Commande

        Dim ObjetCommand As OleDbCommand

        '  Déclaration Objet DataAdapter

        Dim ObjetDataAdapter As OleDbDataAdapter

        ' Déclaration Objet DataSet

        Dim ObjetDataSet As New DataSet() 'Attention au New

        'String contenant la 'Requête SQL'

        Dim strSql As String
        ' Déclaration Objet DataTable

        Dim ObjetDataTable As DataTable

        ' Déclaration Objet DataRow (ligne)

        Dim ObjetDataRow As DataRow

        'Paramêtres de connexion à la DB

        Dim strConn As String

        'Ouverture
        'Initialisation de la chaîne de paramètres pour la connexion

        strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data source=D:\Documents and Settings\Acer\Bureau\PROJET MOUNA+RAKHA\bd1.mdb"

        'Initialisation de la chaîne contenant l'instruction SQL

        strSql = "SELECT nomviolateur FROM voyageur_sans_permission where date_rap=" & Me.d.Value & " And cod_ligne = " & Me.c.Text & ""
        'Instanciation d'un Objet Connexion

        ObjetConnection = New OleDbConnection()

        'Donner à la propriété ConnectionString les paramètres de connexion

        ObjetConnection.ConnectionString = strConn

        'Ouvrir la connexion
        Try

            ObjetConnection.Open()

            'Instancier un objet Commande

            ObjetCommand = New OleDbCommand(strSql)

            'Instancier un objet Adapter

            ObjetDataAdapter = New OleDbDataAdapter(ObjetCommand)

            'initialiser l'objet Command

            ObjetCommand.Connection() = ObjetConnection

            'Avec l'aide de la propriété Fill du DataAdapter charger le DataSet

            ObjetDataAdapter.Fill(ObjetDataSet, "voyageur_sans_permission")

            'Mettre dans un Objet DataTable une table du DataSet

            ObjetDataTable = ObjetDataSet.Tables("voyageur_sans_permission")



            Dim matable As New DataTable
            matable = ObjetDataSet.Tables("voyageur_sans_permission")
            Dim Ligne As DataRow
            For Each Ligne In matable.Rows
                nomp.Items.Add(Ligne.Item(" nomviolateur "))
            Next

        Catch ex As OleDbException
            MsgBox(ex.Message)
        End Try

        'Objet connectée
        ObjetConnection = Nothing
        ObjetCommand = Nothing
        ObjetDataAdapter = Nothing
        'Objet déconnectée
        ObjetDataSet = Nothing
        ObjetDataTable = Nothing
        ObjetDataRow = Nothing


    End Sub
Afficher la suite 

Votre réponse

2 réponses

Meilleure réponse
Messages postés
14010
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
57
3
Merci
BONJOUR
aussi

Une chose me saute aux yeux : Tu as vraiment un champ dont le nom est " nomviolateur ", avec des espaces devant et derrière ?

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 145 internautes nous ont dit merci ce mois-ci

Commenter la réponse de cs_Jack
Messages postés
7
Date d'inscription
samedi 10 avril 2010
Statut
Membre
Dernière intervention
12 avril 2010
0
Merci
oui vs avez raison.merci.
j'ai une autre question.ds mon interface j'utilise un datetimepicker pour récupérer la date mais ce datetimepicker récupère t-il aussi l'heure actuelle?
Commenter la réponse de papillonrourou