merci bp: c besy@noos.fr
-------------------------------
Réponse au message :
-------------------------------
Je peux t'envoyer un petit exemple mais je vois d'après ton code que tu es passé à coté du listview.
Il faut d'abord dans les options explicit :
Dim ligne as listitem
....
Ensuite lors de la lecture de la table access et pour chaque enregistrement
set ligne = listview1.listitem.add ' Ajout d'une ligne
ligne.text = donnée de la première colonne
et utiliser les subitems()
Passe moi ton mail pour que je puisse te passer mon exemple.
A+
jyb
-------------------------------
Réponse au message :
-------------------------------
voila g une listview et je voudrais mettre ds les colonnes les elements d'une table mais a cahque fois il me rajoute l'element de la table ds la 1ere colonne alors k'il devrait passer a la collone suivante
merci encore de votre aide
Private Sub load_Click()
Dim cnxado As ADODB.Connection
Dim rsADO, rsado2 As ADODB.Recordset
Dim cmdADO As ADODB.Command
Dim countind, i As Integer
Dim temp, toto As String
Set cnxado = New ADODB.Connection
cnxado.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Microsoft Visual Studio\VB98\nwind.mdb;Persist Security Info=False"
cnxado.Open
Set cmdADO = New ADODB.Command
cmdADO.ActiveConnection = cnxado
cmdADO.CommandType = adCmdText
cmdADO.CommandText = "select * from commandes where [n° commande]= " & Combo2.Text & ""
Set rsADO = cmdADO.Execute
countind = rsADO.Fields.Count
For i = 0 To 5
LV.ColumnHeaders.Add , , rsADO.Fields(i).Name
LV.ListItems.Add (i + 1), , rsADO.Fields(i).Value
Next
LV.ColumnHeaders(i).Width = (LV.Width / (i + 1))
rsADO.MoveFirst
|