creer et exécuter requete selection sql vba Fermé

Question

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

chat · Accepted Answer

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

Frappe Misere · Answer

une requete select en vba n'est pas possible.
tu peux adapter un recordset suivant ce que tu veux faire par contre.

DarkAurora · Answer

j'essaye de faire la même chose cependant pour la variable de type database il me dit que c'est un type définie pas l'utilisateur donc je suis déjà bloqué la dessus  et de plus je ne comprend pas pour mettre un if rst.RecordCount <> 0 Then  
je vais essayer de me renseigner sur le recordcount on verra ensuite mais j'ai besoin d'aide pour le database svp

yg_be · Answer

Tu ne précises pas ce que tu veux faire avec le résultat de ton SQL.  Veux-u créer et remplir une nouvelle table ?  Veux-tu parcourir les enregistrements résultant de l'SQL ?

DarkAurora · Answer

même problème pour dao.database je vais essayer un peut tout^^

yg_be · Answer

Dans l'éditeur de code : menu outils/références : selectionner Microsoft DAO.

DarkAurora · Answer

oui je viens de le faire, je n'avais même pas la dll microsoft dao object library ça à l'air de marcher il a reconnue le type déjà^^

DarkAurora · Answer

juste un problème d'incompatibilité de type entre dbs qui est un database ou un dao.database et le rst qui est un recordset
l'erreur se passe sur la linge :
set rst = dbs.openrecordset(mysql)

yg_be · Answer

dao.recordset...

DarkAurora · Answer

yg_be je fait une soiré chez moi vendredi ça te dit de venir sérieux tu es le bienvenu il y auras tout ce que tu veux

nan sérieux je te remercie de ton aide (mais si t'es dans mon coin vendredi passe à la maison^^)

DarkAurora · Answer

y'aurait il une solution pour que mon formulaire envoie le résultat de la requête qui se trouve dans mon code à la macro qui lui est associé

en clair :

je souhaite récupérer les information sélectionné par ma requête dans mon formulaire pour que celui ci puisse envoyé toute ses données à la macro

Creer et exécuter requete selection sql vba

11 réponses

Discussions similaires