Pb d'execution de requete sql
Bonjour,
Voici mon code:
Code:
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...
