[VBA]Accéder à Access via Word

Question

Bonjour,

j'ai tapé le bout de code suivant 

Dim Conn As ADODB.Connection
Dim rsT As ADODB.Recordset
Dim maTable As String
Set Conn = New ADODB.Connection
Set rsT = New ADODB.Recordset
maTable = "Ent"
With Conn
    .Provider = "Microsoft.JET.OLEDB.4.0"
    .Open "C:\Documents and Settings\Data.mdb"
End With
With rsT
    .ActiveConnection = Conn
    .Open maTable, LockType:=adLockOptimistic
    .Fields ("Nom")
End With


Il ne me permet pas de faire ce que je veux mais j'imagine que je suis dans le bon sens. Je voudrais en fait extraire un par un les éléments contenus dans la colonne "Nom". Et chaque élement je veux les mettre dans une ListBox !

Voilà je n'ai rien trouvé avec mon ami Google...

JB

modjibe · Answer

Salut,

Un peu de mieux :

Là ça marche :

Dim Conn As ADODB.Connection
Dim rsT As ADODB.Recordset
Dim fd As ADODB.Field
Dim maTable As String
Set Conn = New ADODB.Connection
Set rsT = New ADODB.Recordset
maTable = "Ent"
With Conn
    .Provider = "Microsoft.JET.OLEDB.4.0"
    .Open "C:\Documents and Settings\Data.mdb"
End With
With rsT
    .ActiveConnection = Conn
    .Open maTable, LockType:=adLockOptimistic
End With
    UserForm1.ListBox1.Clear
For Each fd In rsT.Fields
    UserForm1.ListBox1.AddItem (rsT.Fields![Numero])
Next

Mais mon For Each à la fin me revoit plusieurs fois le numéro de la première ligne et c'est tout. Il est ou le problème ?

modjibe · Answer

Le problème c'est que je me déplace de colonne en colonne au lieu de me déplacer de ligne en ligne...

Je mets la réponse dès que je l'ai

[VBA]Accéder à Access via Word

2 réponses

Discussions similaires

Newsletters