Numéroté les lignes de mon listview
flant
Messages postés
64
Statut
Membre
-
flant Messages postés 64 Statut Membre -
flant Messages postés 64 Statut Membre -
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.
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.
A voir également:
- Numéroté les lignes de mon listview
- Partage de photos en ligne - Guide
- Formulaire en ligne de meta - Guide
- Comment numéroter les pages sur powerpoint - Guide
- Numéroté page word - Guide
- Ajoutez à la liste de contacts ana le goff, inscrite le 27 novembre 2015, dans la catégorie i. puis triez les contacts en les classant : par ordre alphabétique de leur nom de famille (critère principal), puis par date du plus récent au plus ancien (critère secondaire). quel mot apparaît à la verticale dans la colonne "catégorie" entre les lignes 200 et 209 (en-tête compris) ? ✓ - Forum Word