Bonjour,

Voici mon code:
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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
 
'connexion bdd compte
Set conn = Server.CreateObject("ADODB.Connection")
connstring="DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & Server.MapPath("../database/compte.mdb")
conn.Open connstring 
'Set Session("DatabasePath") = conn
Set cmdDC = Server.CreateObject("ADODB.Command")
cmdDC.ActiveConnection = conn
 
...
 
Const adOpenKeyset = 1
 
'exportation adresse e-mail
select case Request.form("news")
case "Tous les clients"
Query = "SELECT * FROM CLIENT ORDER BY EMAIL_CLIENT"
 
case "Inscrit aux news"
Query = "SELECT * FROM CLIENT WHERE ACCEPT_NEWS='Oui' ORDER BY EMAIL_CLIENT"
 
case "Non-inscrit aux news"
Query = "SELECT * FROM CLIENT WHERE ACCEPT_NEWS='Non' ORDER BY EMAIL_CLIENT"
end select
 
Set RS = Server.CreateObject("ADODB.Recordset")
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
fic = Server.MapPath("../export_file/mail.txt")
set inF = FSO.CreateTextFile(fic)
'Execution de la requete
RS.Open Query, conn, adOpenKeyset
while not RS2.eof
	inF.writeLine RS.fields("EMAIL_CLIENT")
	RS.movenext 
wend
inF.close
Et voici l'erreur:

ADODB.Recordset error '800a0bb9'

Les arguments sont de type incorrect, en dehors des limites autorisées ou en conflit les uns avec les autres.

Ligne qui pose probleme: RS.Open Query, conn, adOpenKeyset


Si quelqu'un a une idée, je l'en remercie d'avance...