Discussion :

[cedji]

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

[pc75]

Bonjour,

Une autre piste :

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
 
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é."

[tsuji]

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 vbs :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ...