Requete sur bdd Access

Bonjour,
Je souhaite écrire un code VBscript qui permet des requetes sur une bdd Access. (access 2007)
J'ai créé une base de donnée toute simple avec une table nommée "TableTest" contenant un champ "Ville" avec 3 entrées.

J'ai écrit le code suivant pour récupéré les villes présentes dans la bdd :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Sub fonctionTest Dim dbs, DbFullName, acc, rs Set acc = createobject("Access.Application")   DbFullName = "D:\EDF_vb\BDD_test.accdb" Set dbs = acc.DBEngine.OpenDatabase(DbFullName, False, False) Set rs = dbs.Execute ("SELECT Ville FROM TableTest")   'While loop, loops through all available results DO WHILE NOT rs.EOF 'add names seperated by comma to getNames getNames = getNames + rs.Fields(0) & "," 'move to next result before looping again 'this is important rs.MoveNext 'continue loop Loop   dbs.Close   End Sub

---

Le problème est que quand j'execute ce code je reçois le message suivant :

"DAO.Database : Impossible d'executer une requête de sélection"


Quelqu'un aurait il une idée d'où vient l'erreur ?
Merci d'avance

Bonjour,

Une autre piste :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Set Rs = CreateObject("ADODB.RecordSet") connstring = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=D:\EDF_vb\BDD_test.accdb"   mysql = "" mysql = mysql & "SELECT Ville FROM TableTest "   Rs.open mySQL, connstring if not Rs.EOF then do while not Rs.eof getNames = getNames + rs.Fields(0) & "," Rs.MoveNext loop end if Rs.Close Set Rs = Nothing MsgBox "Terminé."

---

Citation:

---

Set rs = dbs.Execute ("SELECT Ville FROM TableTest")

---

Le problème est que la méthode ne retourne rien et qu'elle soit désignée pour faire des actions comme update ou insert ... Vous pouvez pourtant utilser la méthode OpenRecordSet pour le but, comme ça.

Code:

---

1 2	'Set rs = dbs.Execute ("SELECT Ville FROM TableTest") Set rs = dbs.OpenRecordSet("SELECT Ville FROM TableTest")

---

Mais je suis d'accord aussi que utilisant ADODB semble donner un peu plus de confort de ne pas se faire lier à DAO ...