Javascript sql access

Version imprimable

Bonjour,

je récupère des infos depuis un slider:
Code:

1 2 3 4 5 6 amount = document.getElementById("amount").value; p1 = amount.substring(0,2); Pref1 = p1 * 12 // nombre de mois var now = new Date(); now.setMonth(-Pref1);
now me donne une info du genre : Thu Jan 01 1988 08:22:37 GMT+0100(europe de l'Ouest)

j'aimerai passer cette information dans une chaîne sql:

Age est un champ de type date
Code:

1 2 sqlMain = "select Pays FROM Membres WHERE Pays LIKE '%"&str & "%' and Sex = " & "'" & genre & "'" & " and Age < " & "#" & now & "#" & " order by Pays ASC"
Or apparemment la chaîne ne fonctionne pas à cause du format retourné par le javascript: Thu Jan 01 1988 08:22:37 GMT+0100(europe de l'Ouest)

comment transformer cette valeur pour être utilisable dans une chaîne SQL ?

merci d'avance !

----------------------------------------------------------------------------------------------------------

J'ai crée une page de test :
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 <!doctype html> <html lang="en"> <head> <meta charset="UTF-8" /> <title>TestSQL</title> </head> <body><% strAccessDB = "/Base/xx.mdb" DSN_BASE2 = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath(strAccessDB) Set CONN2 = Server.CreateObject("ADODB.Connection") CONN2.Open DSN_BASE2 str = "Australien" genre = "Homme" pref1 = "Thu Jan 01 1988 08:22:37 GMT+0100(europe de l'Ouest)" 'Set rs = Server.CreateObject("ADODB.RecordSet") sqlMain = "select Pays FROM Membres WHERE Pays = 'Australien' and Sex = " & "'" & genre & "'" & " and Age < " & "#" & pref1 & "#" & " order by Pays ASC" rs.Open sqlMain, CONN2,3,2,1 rs.close set rs = nothing CONN2.close set CONN2 = nothing %> </body> </html>
cela me donne une erreur 500

01/11/2016, 11h16
Zekraoui_Jakani
A mon humble avis, "Thu Jan 01 1988 08:22:37 GMT+0100(europe de l'Ouest)" n'est pas reconnu comme date dans SQL; il faudrait donc décomposer cette info pour en extraire une date standard du style "myDate = datevalue("jan 1 1988")" pour pouvoir l'exploiter dans la chaîne sql.

Pour décomposer le texte, il faudra utiliser les fonctions MID et InStr. Exemple avec MID:
Code:

1 2 3 4 myStr = "Thu Jan 01 1988 08:22:37 GMT+0100(europe de l'Ouest)" myStr = mid(myStr,5,11) myDate = datevalue(myStr) debug.print myDate
On peut dès lors exploiter myDate entourée de '#' dans votre SQL

J'ai essayé le code dans ma page de test et cela fonctionne, néanmoins dans mes pages qui traitent différemment les informations cela ne marche pas: J'ai une erreur 500 ( autocompletePaysR.asp)

indexR.asp

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
 
<script>
 
function autocompletePays(arg, genre, pref1, pref2){
			var objxhr = xhr_connect()
			if (objxhr){
				objxhr.onreadystatechange = function(){
					if (objxhr.readyState == 4) {
						if (objxhr.status == 200) {
							var retour = objxhr.responseText
							var n = retour.substring(27, 29)
							ret = document.getElementById("retourP")
							retV = ret.value
 
							if (n != "]}" && ret.value != ""){
 
								var html = '<ul>';
								var json = eval( '('+ retour + ')' );							
								for (var i =0;i<8;i++){							
									if (json.suggestions[i] != undefined){
										html += "<li id='l' onClick='remp4(this)'><span>" + json.suggestions[i] + "</span></li>"
									}
								}
								html += '</ul>'
 
								if (html != "<ul><li id='l' onClick='remp4(this)'><span></span></li></ul>"){										
									ret.innerHTML = html
									ret.style.display = "block"																						
									ret.style.zIndex = 3
								}
								else{
									ret.style.display = "none"
								}							
							}	
						}
					}
				}
				var sql = "str="+arg+"&genre="+genre+"&pref1="+pref1+"&pref2="+pref2
				objxhr.open("Post", "autocompletePaysR.asp", true)				
				objxhr.setRequestHeader('Content-Type', 'application/x-www-form-urlencoded; charset=utf-8');				
				objxhr.send(sql)
			} else {
				alert("")
			}
		}
 
function pref1(){
					amount = document.getElementById("amount").value;
					p1 = amount.substring(0,2);	
					Pref1 = p1 * 12 // nombre de mois	
					var now = new Date();
					now.setMonth(-Pref1);	
 
					return now;			
				}
 
				function pref2(){
					amount = document.getElementById("amount").value;
					p2 = amount.substring(5,7);	
					Pref2 = p2 * 12 // nombre de mois	
					var now = new Date();
					now.setMonth(-Pref2);	
 
                                       return now;			
				}
</script>
 
plus loin....
 
 
<input type="text" id="pays" name="pays" autocomplete="off" onKeyUp="autocompletePays(this.value, contrR(), pref1(), pref2())" class="form-control">

autocompletePaysR.asp

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
 
<%@ CODEPAGE = 65001 %>
<%
 
str = UCase(request.form("str"))
genre = request.form("genre")
pref1 = request.form("pref1")
pref2 = request.form("pref2")
Dim rsMain,sqlMain,rettxt,JobOpenToArr
 
myStr = pref1
myStr = mid(myStr,5,11)
myDate = datevalue(myStr)
 
myStr2 = pref2
myStr2 = mid(myStr2,5,11)
myDate2 = datevalue(myStr2)
 
strAccessDB = "/Base/xx.mdb"
DSN_BASE2 = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath(strAccessDB)
Set CONN2 = Server.CreateObject("ADODB.Connection")
CONN2.Open DSN_BASE2
 
Set rsMain = Server.CreateObject("ADODB.RecordSet")
sqlMain = "select Pays FROM Membres WHERE Pays LIKE '%"&str & "%' and Sex = " & "'" & genre & "'" & " and Age < " & "#" & myDate & "#" & " and Age > " & "#" & myDate2 & "#" & "  order by Pays ASC" 
rsMain.Open sqlMain, CONN2,3,2,1
 
if Not rsMain.Eof  Then
     rettxt = "{localite:""" & str & """, suggestions:["
     JobOpenToArr = rsMain.getRows()
 
     For i = 0 to UBound(JobOpenToArr,2)          
	     extrac = UCase(Left(JobOpenToArr(0,i), len(str)))	     
	     if extrac = str then
	     	rettxt = rettxt & """" & JobOpenToArr(0,i) & ""","       
	     end if
     Next
 
     rettxt = left(rettxt,len(rettxt)-1)
     rettxt = rettxt & "]}"
     Response.Write rettxt     
else
	rettxt = "{localite:""" & str & """, suggestions:["   
	rettxt = rettxt & """" & undefined & ""","
	rettxt = left(rettxt,len(rettxt)-1)
	rettxt = rettxt & "]}"
    Response.Write rettxt
end if
 
%>

je viens de tester la ligne de code qui provoque une erreur 500 dans autocompletePaysR est c'est celle ci:

Code:

1
2
3
4
5
......
myStr = pref1
myStr = mid(myStr,5,11)
myDate = datevalue(myStr)   ' C'est ici que cela plante .............................................................................................................

03/11/2016, 07h54
Zekraoui_Jakani

Après l'instruction

Code:

myStr = mid(myStr,5,11)

, mettez l'instruction

Code:

Debug.Print, "le contenu de myStr est : ", myStr

Ainsi, vous verrez la source de l'erreur; l'erreur peut être due soit aux paramètres "5,11", soit au format de la date (USA vs Europe).
03/11/2016, 12h21
surfeur2

Avec Firefox en regardant dans le débogueur, je me suis aperçu que je récupèrais ainsi les paramètres (autocompletePaysR.asp)

Pref1: SatJan03198812:01:53GMT 0100
Pref2: TueJan03193912:01:536MT 0100

J'ai modifidié la function : autocompletePays(arg, genre, pref1, pref2)

et ajouté ceci

pref1 = encodeURIComponent(pref1)
pref2 = encodeURIComponent(pref2)

le problème et résolu ! :-)

merci !