begin process at 2008 07 18 20:10:55
1 212 565 membres
418 nouveaux aujourd'hui
14 164 membres club

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum.
Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

EXTRAIRE LES IMAGES DE VOTRE BDD ACCESS DANS UN LISTVIEW


Information sur la source

Description

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

  • 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()
       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)
  • signaler à un administrateur
    Commentaire de sam_2_778 le 15/04/2008 12:55:16

    merci bien ton aide , je travail mon projet de fin d'étude et j'ai longtemps chercher de remplir  mon ListView par des
    images  

Ajouter un commentaire

Pub



Appels d'offres

Dessins techniques
Budget : 60€
Animation Flash - Doma...
Budget : 370€
Application flash medi...
Budget : 1 000€

CalendriCode

Juillet 2008
LMMJVSD
 123456
78910111213
14151617181920
21222324252627
28293031   

Téléchargements

Logiciels à télécharger sur le même thème :

Boutique

Boutique de goodies CodeS-SourceS