Discussion :

[inforlab]

Bonjour,

Je seche sur la récupération de données accès dans une listbox
Voici la portion de code écrite pour recuperer ces données.

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
        Dim conn As New OleDb.OleDbConnection
        Dim cmd As New OleDb.OleDbCommand
 
        Try
            conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data source=h:\Projects\Gestion Inforlab\clients.mdb"
            conn.Open()
            cmd.Connection = conn
            cmd.CommandText = "select * from clients"
            Dim rd As OleDb.OleDbDataReader = cmd.ExecuteReader()
            Do While rd.Read()
                ListBox1.Items.Add(rd.GetString(0))
            Loop
        Catch ex As Exception
            MessageBox.Show(ex.Message)
            If conn IsNot Nothing Then
                conn.Close() ''
            End If
        End Try

Mais rien ne se passe et j'ai un message d'erreur

" Le cast spécifié n'est pas valide "

Est ce que ca vous parait normal ? sinon que dois je corriger ?

Merci

Olivier

[_51]

Salut,

Essaye de remplacer "rd.GetString(0)" par rd.item(0)

[inforlab]

salut _51

Cool ca tourne.

Merci beaucoup


Olivier

[Gdal]

salut,

Avec une petite balise , ce serait nickel pour cloturer ton post.

Gwendall

[inforlab]

salut Gdal,

je viens d'y penser à l'instant c'est pourquoi je reviens mais apparement tu es passé avant moi

Sorry,

Voila c'est fait