Bonjour à tous,
J'ai encore des soucis pour mon passage de 1.1.4 à 3.2.0. ( le précédent
n'étant d'ailleurs toujours pas résolu )
J'ai une fonction empruntée dans le livre de Bernard Marcelly et Laurent
Godard, première édition, servant à remplir une boîte de liste :
Private Function Fill_listBox(MaListBox as object, Table as string, MonIndex as
integer, MonChamp as string, MonChampTri as string)
Dim maRequete As Object
Dim Resultset_filllistbox as object
Dim Paiement_select as string
Dim i as integer
MaListBox.removeitems(0,1000)
maRequete = maConnexion.createStatement()
Resultset_filllistbox = maRequete.executeQuery("SELECT "& MonChamp &" FROM "&
Table &" ORDER BY "& MonChampTri &" ASC")
If Not IsNull(Resultset_filllistbox) Then
i=0
While Resultset_filllistbox.next
MaListBox.additem(Resultset_filllistbox.getString(MonIndex),i)
i=i+1
Wend
End if
End Function
et lorsque j'appelle cette fonction de la manière suivante
Fill_listBox(LB_Clients1,"Clients","Nom",(3),"Nom")
j'ai un message d'erreur : Column not found: 3
Pourtant ma table " Clients" comporte 10 champs !
Le plus curieux, c'est que si je remplace :
MaListBox.additem(Resultset_filllistbox.getString(MonIndex),i)
par : MaListBox.additem(Resultset_filllistbox.getString(MonIndex-1),i) ça
marche très bien
et par : MaListBox.additem(Resultset_filllistbox.getString(MonIndex-2),i) ça
marche aussi.
En gros un getString (1) et un getString(2) me récupèrent tous les 2 le contenu
de ma troisième colonne. Toutes les autres valeurs génèrent un message d'erreur.
D'avance merci pour vos suggestions.
Martin
