[VBA]Accéder à Access via Word
Bonjour,
j'ai tapé le bout de code suivant
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
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
Configuration: Windows XP Internet Explorer 7.0
2 réponses
-
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 -
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 ?
