MSFLEXGRID

Question

J'ai un composant MSFLEXGRID et j'aimerai le remplir avec les données d'une table grâce à ce code :

Set cn = New Connection
cn.Open "File Name=" & App.Path & "\connect.Udl"
s = "SELECT *"
s = s + "  FROM AGENCES"


Set rs = New Recordset
rs.Open s, cn, adOpenDynamic, adLockOptimistic


Do Until rs.EOF
    dataagences.AddItem  rs.Fields(0)
    rs.MoveNext
Loop
cn.Close

Mais cela me rempli uniquement la première colonne avec le code de l'agence. Comment puis-je faire pour affecter chaque colonne à un champs ?

Merci

Renfield · Answer

on ne concatène pas avec + mais avec &

pourquoi découper ainsi ta requete ?
au pire, faire :

s = "SELECT * " & _
       "FROM AGENCES "

pourquoi ne pas lire la doc, lorsque tu as un soucis ?
http://msdn.microsoft.com/en-us/library/aa228872(VS.60).aspx

"To add multiple strings (for multiple columns in the row), use the tab character (vbTab) to separate each string."

lillith212 · Answer

bonjour,
normalement si tu fais simplement :
Set dataagence.DataSource = rs
ca marche...
SLB

---------------------------------------------------------------
Il faut beaucoup donner pour recevoir un tout petit peu...
---------------------------------------------------------------

cs_MPi · Answer

Et j'ajouterais que TextMatrix(Ligne, Colonne) te sera utile un jour ou l'autre...

MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI

MSFLEXGRID

3 réponses

Votre réponse

Discussions similaires