Doro81079
Messages postés380Date d'inscriptionvendredi 22 avril 2005StatutMembreDernière intervention24 février 2015
-
6 déc. 2006 à 19:04
lex1111
Messages postés220Date d'inscriptionjeudi 30 mars 2006StatutMembreDernière intervention26 octobre 2007
-
7 déc. 2006 à 07:44
Bonjour à tous,
Je code actuellement en vb.net version 2003 , le code fonctionne trés
bien jusqu'au moment où j'insères une list view enfin je penses que ça
vient de ça....
Est ce que quelqu'un pourrait me donner un bout de code avec listview
pour une bd afin que je compare les 2 codes pour voir si ça vient bien
de ma listview , juste avec 2 colonnes et 2 lignes ça devrait être
suffisant.....
Je vous remercie d'avance
Salut
Doro
Ps : vous aussi vous avez des problèmes avec l'éditeur de texte vbfrance ou c'est moi ?
lex1111
Messages postés220Date d'inscriptionjeudi 30 mars 2006StatutMembreDernière intervention26 octobre 20071 6 déc. 2006 à 23:50
Qu'est ce que tu entends par insérer une list view ?
si tu entends par la insérer les éléments de ta bd dans une listview alors qu'elle type de bd tu utilise ?
Voici un code pour une mdb avec oledb....
---------------------------
Public lvwColumnSorter As ListViewColumnSorter
Public mode As Byte
Sub Rafresh()
' la base de donnée...
Dim con As New OleDb.OleDbConnection
Dim da As OleDb.OleDbDataAdapter
' les dataset...
Dim ds As New DataSet
Dim dt As DataTable
Dim dr As DataRow
' La variable qui contient la requête SQL
Dim sql As String
Dim i As long
'connection a la base de donnée
con.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source= " & Application.StartupPath & "\donnees\film.mdb;"
con.Open()
'Exécuter une requête SQL
sql = "SELECT * FROM nomdetable"
da = New OleDb.OleDbDataAdapter(sql, con)
'recupere les donnees dans le ds
ds.Clear()
da.Fill(ds)
dt = ds.Tables(0)
List.Items.Clear()
List.BeginUpdate()
'Répete chaque ligne de la table
i = 0
For Each dr In dt.Rows
Frm_accueil.List.Items.Add(dr(0).ToString)
Frm_accueil.List.Items(i).SubItems.Add(1).ToString)
i=i+1
Next