- 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()