Creer et exécuter requete selection sql vba

papinina Messages postés 16 Date d'inscription   Statut Membre Dernière intervention   -  
DarkAurora Messages postés 417 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

ça fait un petit moment que je galère pour trouver un moyen d'exécuter une requete de sélection sql en vba access!
j'ai cherché sur le net, et je sais que la méthode Runsql n'est valable que pour les requêtes d'action. J'ai aussi compris qu'il fallait utiliser un recordset pour arriver à mes fins. J'ai essayé toute sorte de codes trouvés sur le net sans succès. Quelqu'un aurait une idée parce que la je sèche et j'en ai surtout un peu marre!! merci d'avance!!
je suis sous access 2000

11 réponses

chat
 
Dim dbs As Database, rst As Recordset, mysql As String, x As Integer
x = Me.Liste9.Column(1)
Set dbs = CurrentDb
mysql = "SELECT Founisseur FROM Fournisseurs WHERE (((Fournisseurs.Four)= " & x & "));"
Set rst = dbs.OpenRecordset(mysql)
If rst.RecordCount <> 0 Then
et tu enchaines
6