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 : Sélectionner tout - Visualiser dans une fenêtre à part
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