Discussion :

[Crazynoss]

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

[pmboutteau]

Dans les 2 QUERY où tu teste oui et non c'est là l'erreur.

Tu les mets entre les quotes de commentaires => bug.

Essaie

Dim oui
Dim non
oui="oui"
non="non"

et dans tes QUERY

ACCEPT_NEWS='"&oui&"'

et idem avec non.

[Crazynoss]

C'est bon ça fonctionne, par contre il n'y avait que ça comme problème. En fait dans le select case, j'ai fait une grosse erreur de newbie=> je n'ai pas gérer tout les cas possibles...

Merci beaucoup tout de même pour la réponse!!!