Remplir une liste box [Résolu]

Signaler
Messages postés
7
Date d'inscription
samedi 10 avril 2010
Statut
Membre
Dernière intervention
12 avril 2010
-
Messages postés
7
Date d'inscription
samedi 10 avril 2010
Statut
Membre
Dernière intervention
12 avril 2010
-
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

2 réponses

Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
70
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)
Messages postés
7
Date d'inscription
samedi 10 avril 2010
Statut
Membre
Dernière intervention
12 avril 2010

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?