#1
#1
Bonjour et ce qu'il peut y avoir quelqu'un pour m'aider??
J'utilise la base de donnée Access et je voulais me connecter sur plusieurs tables afin de liste quelques informations sur ma listView venant des tables différentes tables.
voici mon code
Imports System.Data
Imports System.Data.System.OleDb
'Déclaration
Public class Form1
Private conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Essai2\mabase1.mdb")
Dim cmd As New OleDbCommand
Dim dr As OleDbDataReader
'Load
Private Sub ListView1_Load(ByVal sender As System.Objet, ByVal e As System.EventArgs) Handles MyBase.Load
conn.Open()
cmd.CommandText = "Select**
cmd.conection = conn
dr = cmd.ExecuterReader
ListView1.View.Columns
With ListView1.Columns
.Add("Id_Type", 200, HorizontalAlignment.Left
.Add("Nom", 200
.Add("NomJf",200
.Add("Prénomé,200
End With
Do While dr.Read()
Dim _MyListViewItem As ListViewItem= ListView1.Items.Add(dr.GetValue(0).ToString)
With _MyListViewItem
.SubItems.Add(dr.GetValue(1)
.SubItems.Add(dr.GetValue(2)
.SubItems.Add(dr.GetValue(3)
UseItemStyleForSubItems = False
SubItems.Item(0).Font = New Font(.SubItem(0).Font, FontStyle.Bold)
SubItems.Item(0).Font = New Font(.SubItem(1).Font, FontStyle.Bold)
SubItems.Item(0).Font = New Font(.SubItem(2).Font, FontStyle.Bold)
SubItems.Item(0).Font = New Font(.SubItem(3).Font, FontStyle.Bold)
End While
dr.Close()
ListView1.AutoResizeColums(ColumnHeaderAutoResizeStyle.ColumnContent)
End Sub
End Class
Donc ma question est celle de savoir comment importer les données qui se trouvent sur plusieurs tables et l'afficher la ListView avec la Commande commandTex??
Et savoir aussi utliser la command Sql Select lorsque j'utilise de OleDB??
J'utilise la base de donnée Access et je voulais me connecter sur plusieurs tables afin de liste quelques informations sur ma listView venant des tables différentes tables.
voici mon code
Imports System.Data
Imports System.Data.System.OleDb
'Déclaration
Public class Form1
Private conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Essai2\mabase1.mdb")
Dim cmd As New OleDbCommand
Dim dr As OleDbDataReader
'Load
Private Sub ListView1_Load(ByVal sender As System.Objet, ByVal e As System.EventArgs) Handles MyBase.Load
conn.Open()
cmd.CommandText = "Select**
cmd.conection = conn
dr = cmd.ExecuterReader
ListView1.View.Columns
With ListView1.Columns
.Add("Id_Type", 200, HorizontalAlignment.Left
.Add("Nom", 200
.Add("NomJf",200
.Add("Prénomé,200
End With
Do While dr.Read()
Dim _MyListViewItem As ListViewItem= ListView1.Items.Add(dr.GetValue(0).ToString)
With _MyListViewItem
.SubItems.Add(dr.GetValue(1)
.SubItems.Add(dr.GetValue(2)
.SubItems.Add(dr.GetValue(3)
UseItemStyleForSubItems = False
SubItems.Item(0).Font = New Font(.SubItem(0).Font, FontStyle.Bold)
SubItems.Item(0).Font = New Font(.SubItem(1).Font, FontStyle.Bold)
SubItems.Item(0).Font = New Font(.SubItem(2).Font, FontStyle.Bold)
SubItems.Item(0).Font = New Font(.SubItem(3).Font, FontStyle.Bold)
End While
dr.Close()
ListView1.AutoResizeColums(ColumnHeaderAutoResizeStyle.ColumnContent)
End Sub
End Class
Donc ma question est celle de savoir comment importer les données qui se trouvent sur plusieurs tables et l'afficher la ListView avec la Commande commandTex??
Et savoir aussi utliser la command Sql Select lorsque j'utilise de OleDB??
