Probleme avec une listview

Signaler
Messages postés
23
Date d'inscription
lundi 28 juillet 2003
Statut
Membre
Dernière intervention
5 décembre 2005
-
Messages postés
23
Date d'inscription
lundi 28 juillet 2003
Statut
Membre
Dernière intervention
5 décembre 2005
-
Bonjour tous le monde j'ai un petit probleme avec une listview
Je balance le code et j explique derriere

Private Sub Form_Load()
Dim Ct As ADODB.Connection
Dim rc As ADODB.Recordset
Dim Base As String
Dim ItemX As ListItem
Dim l_oListItem As ListItem
Dim i As Integer
Dim j As Integer
Dim temp As String
Dim Rsql As String



Set Ct = New ADODB.Connection
Ct.Provider = "Microsoft OLE DB Provider For SQL Server"
Ct.ConnectionString = "Provider=MSDASQL;DSN=Homer DSN;UID=Login;PWD=Mot_de_passe;"
Ct.Open


Rsql = "requete"


Set rc = New ADODB.Recordset


rc.Open Rsql, Ct, adOpenDynamic, adLockOptimistic



ListView1.ListItems.Clear
ListView1.GridLines = True ' pour afficher les séparations entre lignes et colonnes
ListView1.FullRowSelect = True ' pour la sélection de la ligne entière
ListView1.View = lvwReport ' affichage détails
ListView1.LabelEdit = lvwManual


' Nom des colonnes
For Each fld In rc.Fields
ListView1.ColumnHeaders.Add , , fld.Name, ListView1.Width / rc.Fields.Count
ListView1.ColumnHeaders(1).Width = 900


Next


temp = 0
' Remplir la listview


Do While Not rc.EOF


Set ItemX = ListView1.ListItems.Add(, , rc.Fields(0))


If temp <> ItemX Then
Set ItemX = ListView1.ListItems.Add(, , " ")


Set ItemX = ListView1.ListItems.Add(, , rc.Fields(0))


End If


For i = 1 To rc.Fields.Count - 1


ItemX.SubItems(i) = rc.Fields(i)



temp = ItemX


Next


rc.MoveNext
Loop
rc.Close


Ct.Close



End Sub

exp : Le remplisage des colonne marche mais apres vb me met un message d'erreur d'exécution '13'; Type incompatible
Le probleme se fait sur la ligne : Set ItemX = ListView1.ListItems.Add(, , rc.Fields(0))
La variable ItemX indique Nothing .
Je n y comprend rien et j ai po trop envie de m'arracher les kelkes cheuveux k il me reste .
Y aurai t il une erreur de syntaxe ke je ne vois pas
Je remerci d'avance les personnes ki von se pencher sur mon probleme

2 réponses

Messages postés
550
Date d'inscription
vendredi 5 janvier 2001
Statut
Membre
Dernière intervention
23 septembre 2006

Lu



beh jpens c'est le rc.fiels(0) qui n'est pas de type string, essaye
Set ItemX = ListView1.ListItems.Add(, , str(rc.Fields(0)))


A+



<hr size="2" width="100%">Utilisateurs du forum : Merci de lire http://www.vbfrance.com/forum.v2.aspx?ID=445871

<hr size="2" width="100%">
Messages postés
23
Date d'inscription
lundi 28 juillet 2003
Statut
Membre
Dernière intervention
5 décembre 2005

Non ca fait pareil
si ca continue je vai finir chauve