Bonjour Martin,

MonIndex : c'est l'index de quoi ? A mon avis d'une colonne du resultSet.
Je dis peut-être des bétises mais

Resultset_filllistbox = maRequete.executeQuery("SELECT "& MonChamp &" FROM "& Table &" ORDER BY 
"& MonChampTri &" ASC")

Ton resulSet n'a donc qu'une colonne, non ?

 Fill_listBox(LB_Clients1,"Clients","Nom",(3),"Nom")

Pourquoi les parenthèses : (3) ?

j'ai un message d'erreur : Column not found: 3
Pourtant ma table " Clients" comporte 10 champs !

Le RowSet ne récupère que le champ "Nom"


Moi j'essaierai :
Fill_listBox(LB_Clients1,"Clients","Nom",1,"Nom") ou Fill_listBox(LB_Clients1,"Clients","Nom",0,"Nom")
car je ne sais plus comment fonctionne la numérotation des colonnes.

En espérant que ce n'est pas moi qui me prends les pieds entre ligne et colonne.

Agnès S.


Martin Blaizot a écrit :
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






---------------------------------------------------------------------
To unsubscribe, e-mail: prog-unsubscr...@fr.openoffice.org
For additional commands, e-mail: prog-h...@fr.openoffice.org

Répondre à