Numéroté les lignes de mon listview

Fermé
flant Messages postés 63 Date d'inscription mercredi 5 décembre 2007 Statut Membre Dernière intervention 31 octobre 2012 - 31 déc. 2011 à 20:53
flant Messages postés 63 Date d'inscription mercredi 5 décembre 2007 Statut Membre Dernière intervention 31 octobre 2012 - 1 janv. 2012 à 18:27
Bonsoir les amis, voici mon premier poste sur le site.
Je suis débutant mais ma question est sur un petit problème qui bloque la finition de mon application.
Au faite j'ai une listview1, contenant 3 colonnes : Numéro, Nom et Prenom, les colonnes Non et prenom sont remplis à partir de la base de données et le numéro je compte faire une auto incrémentation toujours partir de 1 jusqu'à la dernière ligne du listview1 voici la structure de ma base de données.

CREATE TABLE 'test'.'test' (
'IDTEST' INT NOT NULL AUTO_INCREMENT ,
'Nom' VARCHAR( 20 ) NOT NULL ,
'Prenom' VARCHAR( 20 ) NOT NULL ,
PRIMARY KEY ( 'IDTEST' )
) ENGINE = MYISAM ;



Voici mon code

Imports MySql.Data.MySqlClient
Public Class Form11
Public sConnection As New MySqlConnection
Dim sqlQuery As String = "SELECT * FROM test ORDER BY IDTEST DESC LIMIT 0 , 20"

Public Sub ListeOpera()
Dim sqlAdapter As New MySqlDataAdapter
Dim sqlCommand As New MySqlCommand
Dim TABLE As New DataTable
Dim ds As New DataSet
Dim i As Integer
Dim a As Integer = 0
a += a
Try
With sqlCommand
.CommandText = sqlQuery
.Connection = sConnection
End With
With sqlAdapter
.SelectCommand = sqlCommand
.Fill(TABLE)
End With
' fixé la liste

ListView1.Items.Clear()
For i = 0 To TABLE.Rows.Count - 1
With ListView1
.Items.Add(TABLE.Rows(i)(a))
With .Items(.Items.Count - 1).SubItems
.Add(TABLE.Rows(i)("Nom"))
.Add(TABLE.Rows(i)("Prenom"))

End With
End With
Next
Catch ex As Exception
MsgBox("Vérifier votre connexion avec le serveur!" & ex.Message, MsgBoxStyle.Critical)
Me.Close()
End Try
End Sub

Private Sub Form11_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If sConnection.State = ConnectionState.Closed Then
sConnection.ConnectionString = "server=localhost; user id=root; password=; database=test"
Try
sConnection.Open()
Catch ex As Exception
MsgBox("Vérifier votre connexion avec le serveur!", MsgBoxStyle.Critical)
Me.Close()
End Try
End If
ListeOpera()
End Sub
End Class



Merci pour votre aide.

1 réponse

flant Messages postés 63 Date d'inscription mercredi 5 décembre 2007 Statut Membre Dernière intervention 31 octobre 2012 5
1 janv. 2012 à 18:27
ListView1.Items.Clear()
For i = 0 To TABLE.Rows.Count - 1
With ListView1
.Items.Add(i + 1)
With .Items(.Items.Count - 1).SubItems
.Add(TABLE.Rows(i)("Nom"))
.Add(TABLE.Rows(i)("Prenom"))

End With
End With
Next

Merci infiniment donc je pourrai finaliser mon Application.
0