Variable hôte

Question

Salut tout le monde,



Je dois importer dans mon programme un seul champ qui se trouve dans ma
base access. Le probl&#232;me est que j'utilise un recordset qui ne sert pas
vraiment dans mon cas et qui  fait ramer mon prog  ( l'open
RecordSet est dans une boucle et &#231;a prend du temps ). Normalement on
devrai pouvoir utiliser une variable h&#244;te du style: "Select ... Into
:hVariableHote From ...", mais je n'y arrive pas en VBA.



Donc s'y vous savez comment faire ...

jpleroisse · Answer

Essaie ce code. n'oublie pas de r&#233;f&#233;rencier Microsoft Activex Data Objects 2.0
Library et Microsoft DAO 3.51 Object Library (4.0 avec Win XP)

Dim MaBase As ADDOB.Connection
Dim MonRecordSet As ADDOB.RecordSet
Dim MaConnection As String
MaConnection "Provider Microsoft.jet.OLEDB.3.51;" &  " Data Source = _
C:\ Chemin de ta base de donn&#233;es"

Set MaBase = New ADDOB.Connection
Set MonRecordSet = New ADDOB.RecordSet

MaBase.Open MaConnection
MonRecordSet.Open "Select * From Nom de la table, MaBase

'Si tu veux r&#233;cup&#233;rer l'ensemble des donn&#233;es du champ, utilise un combobox
'ou une listBox
Do Until MonRecordSet.EOF
   Combo1.AddItem MonRecordSet!("Nom du champ")
Loop
Combo1.ListIndex = 0
MaBase.Close
MonRecordSet.Close
'Lib&#232;re la m&#233;moire
Set MaBase = Nothing
Set MonRecordSet = Nothing

jpleroisse

Variable hôte

1 réponse

Discussions similaires