Extraire les images de votre bdd access dans un listview

0/5 (1 avis)

Snippet vu 12 945 fois - Téléchargée 20 fois

Commenter

Contenu du snippet

Je voulais extraire les images contenues dans une des colonnes de ma BDD Access dans une ListView mais je n'ai rien trouvé à ce sujet. J'ai donc planché là dessus et pondu un petit code.
Une Form + un splitter container. L'un des containers contient une PictureBox ancrée et l'autre une ListView (LvTest)avec une ImageList.

Source / Exemple : 


Dim con As New OleDb.OleDbConnection
       con.ConnectionString = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source =" &  My.Application.Info.DirectoryPath & "\Votre BDD.mdb"
        con.Open()
        Dim ds As New DataSet
        Dim da As OleDb.OleDbDataAdapter
        Dim sql As String
        sql = "SELECT * FROM nom de la table"
        da = New OleDb.OleDbDataAdapter(sql, con)
        da.Fill(ds, "test")

        ImageList1.Images.Clear()
        ListView1.Items.Clear()

        Try
            Dim i As Integer
            For i = 0 To ds.Tables("test").Rows.Count - 1
                If ds.Tables("test").Rows(i).Item(le numéro de 
                la colonne) is DBNull.Value Then
                    Dim ImageNull As Image
                    ImageNull = My.Resources.ImageNull 'image que vous avez créé et qui se trouve dans vos fichiers resources
                    Me.ImageList1.Images.Add(ImageNull, Nothing)
                    Dim photo1 As ListViewItem = New ListViewItem("Ce que vous voulez", i)
                    Me.LvTest.Items.Add(photo1)
                Else
                    Dim x As Byte() = ds.Tables("test").Rows(i).Item(le numéro de la colonne)
                    Dim image As Image
                    image = TypeDescriptor.GetConverter(GetType(Image)).ConvertFrom(x)
                    Me.ImageList1.Images.Add(image, Nothing)
                    Dim photo2 As ListViewItem = New ListViewItem("Ce que vous voulez", i)
                    Me.LvPièce.Items.Add(photo2)
                End If
            Next

        Catch ex As Exception
            MsgBox(ex, MsgBoxStyle.Information)
        End Try
con.Close()

Conclusion :


J'ai insérer une image DBNull car sinon vous générez une erreur quand l'une des rows ne contient rien (DbNull.Value retourne 0)

A voir également

Ajouter un commentaire Commentaire
sam_2_778 Messages postés 34 Date d'inscription jeudi 29 mars 2007 Statut Membre Dernière intervention 2 mai 2008
15 avril 2008 à 12:55
merci bien ton aide , je travail mon projet de fin d'étude et j'ai longtemps chercher de remplir mon ListView par des
images
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (tchouny)