Bonjour,
Voici mon code:
Et voici l'erreur:
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
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...
Partager