bassem8585
Messages postés6Date d'inscriptionmercredi 14 janvier 2009StatutMembreDernière intervention30 juillet 2009
-
28 juil. 2009 à 13:07
bassem8585
Messages postés6Date d'inscriptionmercredi 14 janvier 2009StatutMembreDernière intervention30 juillet 2009
-
30 juil. 2009 à 14:15
bonjour
je veux remplir une listview a partir d'une base de donnée sql server mais sa marche pas
voila mon code:
'Initialisation de la chaine de paramètres pour la connexion
strConn = "Data Source=.\SQLEXPRESS;" & "AttachDbFilename=C:\Users\Bassem\Documents\Visual Studio 2008\Projects\GestionAbattoires\GestionAbattoires\db.mdf;" & "Integrated Security=True;" & "User Instance=True;"
'Initialisation de la chaîne contenant l'instruction SQL
strSql = "select * from ELEVE"
'Instanciation d'un Objet Connexion
ObjetConnection = New SqlClient.SqlConnection
'Donner à la propriété ConnectionString les paramètres de connexion
ObjetConnection.ConnectionString = strConn
'Ouvrir la connexion
ObjetConnection.Open()
'Instancier un objet Commande
ObjetCommand = New SqlClient.SqlCommand(strSql)
'Instancier un objet Adapter
ObjetDataAdapter = New SqlClient.SqlDataAdapter(ObjetCommand)
'initialiser l'objet Command
ObjetCommand.Connection() = ObjetConnection
'Avec l'aide de la propriété Fill du DataAdapter charger le DataSet
ObjetDataAdapter.Fill(ObjetDataSet, "ELEVE")
With ObjetCommand
.Connection = ObjetConnection
.CommandType = CommandType.Text
.CommandText = "select * from ELEVE"
End With
ObjetDataReader = ObjetCommand.ExecuteReader
Dim LVI As New ListViewItem
ListView1.Columns.Add("Nom", 60, HorizontalAlignment.Left)
ListView1.Columns.Add("Prenom", 60, HorizontalAlignment.Left)
While ObjetDataReader.Read
LVI.Text = ObjetDataReader!nom
LVI.SubItems.Add(ObjetDataReader!prenom)
ListView1.Items.Add(LVI)
End While
ObjetConnection.Close()
avec ce code elle m'affiche seulement le nom de l'eleve mais le subitems ne marche pas
svp aidez moi c tres urgent
merci