Accueil > Forum > > > > Quelqu'un saurait-il ??
 Quelqu'un saurait-il ??
jeudi 4 avril 2002 à 23:52:26 |
Quelqu'un saurait-il ??
BarOpen
|
Quelqu'un saurait-il comment je peux deleter une ou plusieur donnée dans une base de donnée access en fonction de la date. Je m'expliques on verifie si la date d'aujourd'hui correspond avec la date préalablement entrer dans la base de donnee si c'est le cas on efface tout ce qui est de la meme date et il affiche tout ce qui n'a pas ete deleter Cela fais au moins 1 mois que je suis sur ce probleme et je n'arrive toujours pas a le resoudre Merci beaucoup de votre aide voila mon code source au cas ou : <HTML> <HEAD> <TITLE>Annonces classes</TITLE> </HEAD> <CENTER> <H3> </STRONG> <H1> <BR> Voici les donnees entrées dans la base <%djour= Date()%><br> <% jour = request.form("jour") choix = request.form("choix") region = request.form("region") Set OBJdbConnection = Server.CreateObject("ADODB.Connection") OBJdbConnection.Open "mabase","","" Set Rb = Server.CreateObject("ADODB.Recordset") req_sql ="select * from infoclient where date_poster = '"& djour &"'" response.write djour &" <BR>" response.write req_sql & "<BR>" Rb.Open req_sql,Conn, 1, 3 if rb.recordcount > 0 then do while not EOF rb.delete rb.movenext loop rb.updatebatch end if 'conn.execute(req_sql) SQL = "SELECT * FROM infoclient where (categorie = '" & region & "') and (region = '" & choix & "') order by userid" Set rs = OBJdbConnection.Execute(SQL) %> <% do while not rs.EOF %> <br> <% =rs("message") %>, <% =rs("telephone") %>, <br> <% rs.movenext loop %> <% rs.close set rs = nothing %> <BR> <BR> </FONT> </FRAMESET> </HTML> |
|
vendredi 5 avril 2002 à 10:34:31 |
Re : Quelqu'un saurait-il ??
bboi
|
<% Set RS = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM nomdetatable WHERE datediff('d',now(),nomdetonchampdate)<0"
%><% RS.open SQL, conn, 1, 2 , 1
do while not RS.EOF
RS.delete
RS.movenext
loop %>
-------------------------------
Réponse au message :
-------------------------------
Quelqu'un saurait-il comment je peux deleter une ou plusieur donnée dans une base de donnée access en fonction de la date. Je m'expliques on verifie si la date d'aujourd'hui correspond avec la date préalablement entrer dans la base de donnee si c'est le cas on efface tout ce qui est de la meme date et il affiche tout ce qui n'a pas ete deleter
Cela fais au moins 1 mois que je suis sur ce probleme et je n'arrive toujours pas a le resoudre
Merci beaucoup de votre aide
voila mon code source au cas ou :
<HTML>
<HEAD>
<TITLE>Annonces classes</TITLE>
</HEAD>
<CENTER>
<H3>
</STRONG>
<H1>
<BR>
Voici les donnees entrées dans la base
<%djour= Date()%><br>
<%
jour = request.form("jour")
choix = request.form("choix")
region = request.form("region")
Set OBJdbConnection = Server.CreateObject("ADODB.Connection")
OBJdbConnection.Open "mabase","",""
Set Rb = Server.CreateObject("ADODB.Recordset")
req_sql ="select * from infoclient where date_poster = '"& djour &"'"
response.write djour &" <BR>"
response.write req_sql & "<BR>"
Rb.Open req_sql,Conn, 1, 3
if rb.recordcount > 0 then
do while not EOF
rb.delete
rb.movenext
loop
rb.updatebatch
end if
'conn.execute(req_sql)
SQL = "SELECT * FROM infoclient where (categorie = '" & region & "') and (region = '" & choix & "') order by userid"
Set rs = OBJdbConnection.Execute(SQL)
%>
<% do while not rs.EOF %> <br>
<% =rs("message") %>, <% =rs("telephone") %>, <br>
<% rs.movenext
loop %>
<% rs.close
set rs = nothing %>
<BR>
<BR>
</FONT>
</FRAMESET>
</HTML>
|
|
vendredi 5 avril 2002 à 16:46:25 |
Re : Quelqu'un saurait-il ??
BarOpen
|
merci beaucoup pour ton aide mais voila ce qu'il me dit :
Microsoft VBScript compilation error '800a03fb'
Expected 'Loop'
/baropen/test.asp, line 50
:(
Bar Open
-------------------------------
Réponse au message :
-------------------------------
<% Set RS = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM nomdetatable WHERE datediff('d',now(),nomdetonchampdate)<0"
%><% RS.open SQL, conn, 1, 2 , 1
do while not RS.EOF
RS.delete
RS.movenext
loop %>
-------------------------------
Réponse au message :
-------------------------------
Quelqu'un saurait-il comment je peux deleter une ou plusieur donnée dans une base de donnée access en fonction de la date. Je m'expliques on verifie si la date d'aujourd'hui correspond avec la date préalablement entrer dans la base de donnee si c'est le cas on efface tout ce qui est de la meme date et il affiche tout ce qui n'a pas ete deleter
Cela fais au moins 1 mois que je suis sur ce probleme et je n'arrive toujours pas a le resoudre
Merci beaucoup de votre aide
voila mon code source au cas ou :
<HTML>
<HEAD>
<TITLE>Annonces classes</TITLE>
</HEAD>
<CENTER>
<H3>
</STRONG>
<H1>
<BR>
Voici les donnees entrées dans la base
<%djour= Date()%><br>
<%
jour = request.form("jour")
choix = request.form("choix")
region = request.form("region")
Set OBJdbConnection = Server.CreateObject("ADODB.Connection")
OBJdbConnection.Open "mabase","",""
Set Rb = Server.CreateObject("ADODB.Recordset")
req_sql ="select * from infoclient where date_poster = '"& djour &"'"
response.write djour &" <BR>"
response.write req_sql & "<BR>"
Rb.Open req_sql,Conn, 1, 3
if rb.recordcount > 0 then
do while not EOF
rb.delete
rb.movenext
loop
rb.updatebatch
end if
'conn.execute(req_sql)
SQL = "SELECT * FROM infoclient where (categorie = '" & region & "') and (region = '" & choix & "') order by userid"
Set rs = OBJdbConnection.Execute(SQL)
%>
<% do while not rs.EOF %> <br>
<% =rs("message") %>, <% =rs("telephone") %>, <br>
<% rs.movenext
loop %>
<% rs.close
set rs = nothing %>
<BR>
<BR>
</FONT>
</FRAMESET>
</HTML>
|
|
vendredi 5 avril 2002 à 16:59:22 |
Re : Quelqu'un saurait-il ??
bboi
|
C'est quoi ton code maintenant ?
Tu l'as changé ou c'est l'erruer que tu avais déjà ?
-------------------------------
Réponse au message :
-------------------------------
merci beaucoup pour ton aide mais voila ce qu'il me dit :
Microsoft VBScript compilation error '800a03fb'
Expected 'Loop'
/baropen/test.asp, line 50
:(
Bar Open
-------------------------------
Réponse au message :
-------------------------------
<% Set RS = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM nomdetatable WHERE datediff('d',now(),nomdetonchampdate)<0"
%><% RS.open SQL, conn, 1, 2 , 1
do while not RS.EOF
RS.delete
RS.movenext
loop %>
-------------------------------
Réponse au message :
-------------------------------
Quelqu'un saurait-il comment je peux deleter une ou plusieur donnée dans une base de donnée access en fonction de la date. Je m'expliques on verifie si la date d'aujourd'hui correspond avec la date préalablement entrer dans la base de donnee si c'est le cas on efface tout ce qui est de la meme date et il affiche tout ce qui n'a pas ete deleter
Cela fais au moins 1 mois que je suis sur ce probleme et je n'arrive toujours pas a le resoudre
Merci beaucoup de votre aide
voila mon code source au cas ou :
<HTML>
<HEAD>
<TITLE>Annonces classes</TITLE>
</HEAD>
<CENTER>
<H3>
</STRONG>
<H1>
<BR>
Voici les donnees entrées dans la base
<%djour= Date()%><br>
<%
jour = request.form("jour")
choix = request.form("choix")
region = request.form("region")
Set OBJdbConnection = Server.CreateObject("ADODB.Connection")
OBJdbConnection.Open "mabase","",""
Set Rb = Server.CreateObject("ADODB.Recordset")
req_sql ="select * from infoclient where date_poster = '"& djour &"'"
response.write djour &" <BR>"
response.write req_sql & "<BR>"
Rb.Open req_sql,Conn, 1, 3
if rb.recordcount > 0 then
do while not EOF
rb.delete
rb.movenext
loop
rb.updatebatch
end if
'conn.execute(req_sql)
SQL = "SELECT * FROM infoclient where (categorie = '" & region & "') and (region = '" & choix & "') order by userid"
Set rs = OBJdbConnection.Execute(SQL)
%>
<% do while not rs.EOF %> <br>
<% =rs("message") %>, <% =rs("telephone") %>, <br>
<% rs.movenext
loop %>
<% rs.close
set rs = nothing %>
<BR>
<BR>
</FONT>
</FRAMESET>
</HTML>
|
|
vendredi 5 avril 2002 à 18:15:56 |
Re : Quelqu'un saurait-il ??
BarOpen
|
ceci est un nouveau message , mais je me souvient de l'avoir deja eu comme message
merci enormement de m'aider c'est vraiment sympa et
voila mon code maintenant apres modification
<HTML>
<HEAD>
<TITLE>Annonces classes</TITLE>
</HEAD>
<CENTER>
<H3>
</STRONG>
<H1>
<BR>
Voici les donnees entrées dans la base
<%djour= Date()%><br>
<%
jour = request.form("jour")
choix = request.form("choix")
region = request.form("region")
Set OBJdbConnection = Server.CreateObject("ADODB.Connection")
OBJdbConnection.Open "mabase","",""
Set RS = Server.CreateObject("ADODB.Recordset")
sql ="select * from infoclient where datediff('d',now(),date)<0"
RS.Open sql,Conn, 1, 2 , 1
do while not RS.EOF
rs.delete
rs.movenext
loop
%>
<body>
Test 28
<BR>
<BR>
</body>
</FONT>
</FRAMESET>
</HTML>
-------------------------------
Réponse au message :
-------------------------------
C'est quoi ton code maintenant ?
Tu l'as changé ou c'est l'erruer que tu avais déjà ?
-------------------------------
Réponse au message :
-------------------------------
merci beaucoup pour ton aide mais voila ce qu'il me dit :
Microsoft VBScript compilation error '800a03fb'
Expected 'Loop'
/baropen/test.asp, line 50
:(
Bar Open
-------------------------------
Réponse au message :
-------------------------------
<% Set RS = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM nomdetatable WHERE datediff('d',now(),nomdetonchampdate)<0"
%><% RS.open SQL, conn, 1, 2 , 1
do while not RS.EOF
RS.delete
RS.movenext
loop %>
-------------------------------
Réponse au message :
-------------------------------
Quelqu'un saurait-il comment je peux deleter une ou plusieur donnée dans une base de donnée access en fonction de la date. Je m'expliques on verifie si la date d'aujourd'hui correspond avec la date préalablement entrer dans la base de donnee si c'est le cas on efface tout ce qui est de la meme date et il affiche tout ce qui n'a pas ete deleter
Cela fais au moins 1 mois que je suis sur ce probleme et je n'arrive toujours pas a le resoudre
Merci beaucoup de votre aide
voila mon code source au cas ou :
<HTML>
<HEAD>
<TITLE>Annonces classes</TITLE>
</HEAD>
<CENTER>
<H3>
</STRONG>
<H1>
<BR>
Voici les donnees entrées dans la base
<%djour= Date()%><br>
<%
jour = request.form("jour")
choix = request.form("choix")
region = request.form("region")
Set OBJdbConnection = Server.CreateObject("ADODB.Connection")
OBJdbConnection.Open "mabase","",""
Set Rb = Server.CreateObject("ADODB.Recordset")
req_sql ="select * from infoclient where date_poster = '"& djour &"'"
response.write djour &" <BR>"
response.write req_sql & "<BR>"
Rb.Open req_sql,Conn, 1, 3
if rb.recordcount > 0 then
do while not EOF
rb.delete
rb.movenext
loop
rb.updatebatch
end if
'conn.execute(req_sql)
SQL = "SELECT * FROM infoclient where (categorie = '" & region & "') and (region = '" & choix & "') order by userid"
Set rs = OBJdbConnection.Execute(SQL)
%>
<% do while not rs.EOF %> <br>
<% =rs("message") %>, <% =rs("telephone") %>, <br>
<% rs.movenext
loop %>
<% rs.close
set rs = nothing %>
<BR>
<BR>
</FONT>
</FRAMESET>
</HTML>
|
|
samedi 6 avril 2002 à 04:04:07 |
Re : Quelqu'un saurait-il ??
BarOpen
|
bon oki apres avoir changer quelque varible qui n'etait pas les bonnes (je crois que je dormais) il me sort un nouveau message d'erreur qui est :
-------------------------------
ADODB.Recordset error '800a0bb9'
Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.
/baropen/test.asp, line 25
-------------------------------
Tu sais a quoi peut etre du cette erreur ??
voila mon nouveau code :
<HTML>
<HEAD>
<TITLE>Annonces classes</TITLE>
</HEAD>
<CENTER>
<H3>
</STRONG>
<H1>
<BR>
Voici les donnees entrées dans la base
<%djour= Date()%><br>
<%
Set OBJdbConnection = Server.CreateObject("ADODB.Connection")
OBJdbConnection.Open "mabase","",""
Set RS = Server.CreateObject("ADODB.Recordset")
sql ="select * from infoclient where datediff('d',now(),date_poster)<0"
RS.Open sql,Conn, 1, 2 , 1
do while not RS.EOF
rs.delete
rs.movenext
loop
%>
<body>
Test 28
<BR>
<BR>
</body>
</FONT>
</FRAMESET>
</HTML>
-------------------------------
Réponse au message :
-------------------------------
ceci est un nouveau message , mais je me souvient de l'avoir deja eu comme message
merci enormement de m'aider c'est vraiment sympa et
voila mon code maintenant apres modification
<HTML>
<HEAD>
<TITLE>Annonces classes</TITLE>
</HEAD>
<CENTER>
<H3>
</STRONG>
<H1>
<BR>
Voici les donnees entrées dans la base
<%djour= Date()%><br>
<%
jour = request.form("jour")
choix = request.form("choix")
region = request.form("region")
Set OBJdbConnection = Server.CreateObject("ADODB.Connection")
OBJdbConnection.Open "mabase","",""
Set RS = Server.CreateObject("ADODB.Recordset")
sql ="select * from infoclient where datediff('d',now(),date)<0"
RS.Open sql,Conn, 1, 2 , 1
do while not RS.EOF
rs.delete
rs.movenext
loop
%>
<body>
Test 28
<BR>
<BR>
</body>
</FONT>
</FRAMESET>
</HTML>
-------------------------------
Réponse au message :
-------------------------------
C'est quoi ton code maintenant ?
Tu l'as changé ou c'est l'erruer que tu avais déjà ?
-------------------------------
Réponse au message :
-------------------------------
merci beaucoup pour ton aide mais voila ce qu'il me dit :
Microsoft VBScript compilation error '800a03fb'
Expected 'Loop'
/baropen/test.asp, line 50
:(
Bar Open
-------------------------------
Réponse au message :
-------------------------------
<% Set RS = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM nomdetatable WHERE datediff('d',now(),nomdetonchampdate)<0"
%><% RS.open SQL, conn, 1, 2 , 1
do while not RS.EOF
RS.delete
RS.movenext
loop %>
-------------------------------
Réponse au message :
-------------------------------
Quelqu'un saurait-il comment je peux deleter une ou plusieur donnée dans une base de donnée access en fonction de la date. Je m'expliques on verifie si la date d'aujourd'hui correspond avec la date préalablement entrer dans la base de donnee si c'est le cas on efface tout ce qui est de la meme date et il affiche tout ce qui n'a pas ete deleter
Cela fais au moins 1 mois que je suis sur ce probleme et je n'arrive toujours pas a le resoudre
Merci beaucoup de votre aide
voila mon code source au cas ou :
<HTML>
<HEAD>
<TITLE>Annonces classes</TITLE>
</HEAD>
<CENTER>
<H3>
</STRONG>
<H1>
<BR>
Voici les donnees entrées dans la base
<%djour= Date()%><br>
<%
jour = request.form("jour")
choix = request.form("choix")
region = request.form("region")
Set OBJdbConnection = Server.CreateObject("ADODB.Connection")
OBJdbConnection.Open "mabase","",""
Set Rb = Server.CreateObject("ADODB.Recordset")
req_sql ="select * from infoclient where date_poster = '"& djour &"'"
response.write djour &" <BR>"
response.write req_sql & "<BR>"
Rb.Open req_sql,Conn, 1, 3
if rb.recordcount > 0 then
do while not EOF
rb.delete
rb.movenext
loop
rb.updatebatch
end if
'conn.execute(req_sql)
SQL = "SELECT * FROM infoclient where (categorie = '" & region & "') and (region = '" & choix & "') order by userid"
Set rs = OBJdbConnection.Execute(SQL)
%>
<% do while not rs.EOF %> <br>
<% =rs("message") %>, <% =rs("telephone") %>, <br>
<% rs.movenext
loop %>
<% rs.close
set rs = nothing %>
<BR>
<BR>
</FONT>
</FRAMESET>
</HTML>
|
|
mercredi 10 avril 2002 à 15:52:08 |
Re : Quelqu'un saurait-il ??
bboi
|
Essaye de changer ça :
Set OBJdbConnection = Server.CreateObject("ADODB.Connection")
OBJdbConnection.Open "mabase","",""
Set RS = Server.CreateObject("ADODB.Recordset")
sql ="select * from infoclient where datediff('d',now(),date_poster)<0"
RS.Open sql,Conn, 1, 2 , 1
en ça :
Set OBJdbConnection = Server.CreateObject("ADODB.Connection")
OBJdbConnection.Open "mabase","",""
Set RS = Server.CreateObject("ADODB.Recordset")
sql ="select * from infoclient where datediff('d',now(),date_poster)<0"
RS.Open sql,OBJdbConnection, 1, 2 , 1
-------------------------------
Réponse au message :
-------------------------------
bon oki apres avoir changer quelque varible qui n'etait pas les bonnes (je crois que je dormais) il me sort un nouveau message d'erreur qui est :
-------------------------------
ADODB.Recordset error '800a0bb9'
Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.
/baropen/test.asp, line 25
-------------------------------
Tu sais a quoi peut etre du cette erreur ??
voila mon nouveau code :
<HTML>
<HEAD>
<TITLE>Annonces classes</TITLE>
</HEAD>
<CENTER>
<H3>
</STRONG>
<H1>
<BR>
Voici les donnees entrées dans la base
<%djour= Date()%><br>
<%
Set OBJdbConnection = Server.CreateObject("ADODB.Connection")
OBJdbConnection.Open "mabase","",""
Set RS = Server.CreateObject("ADODB.Recordset")
sql ="select * from infoclient where datediff('d',now(),date_poster)<0"
RS.Open sql,Conn, 1, 2 , 1
do while not RS.EOF
rs.delete
rs.movenext
loop
%>
<body>
Test 28
<BR>
<BR>
</body>
</FONT>
</FRAMESET>
</HTML>
-------------------------------
Réponse au message :
-------------------------------
ceci est un nouveau message , mais je me souvient de l'avoir deja eu comme message
merci enormement de m'aider c'est vraiment sympa et
voila mon code maintenant apres modification
<HTML>
<HEAD>
<TITLE>Annonces classes</TITLE>
</HEAD>
<CENTER>
<H3>
</STRONG>
<H1>
<BR>
Voici les donnees entrées dans la base
<%djour= Date()%><br>
<%
jour = request.form("jour")
choix = request.form("choix")
region = request.form("region")
Set OBJdbConnection = Server.CreateObject("ADODB.Connection")
OBJdbConnection.Open "mabase","",""
Set RS = Server.CreateObject("ADODB.Recordset")
sql ="select * from infoclient where datediff('d',now(),date)<0"
RS.Open sql,Conn, 1, 2 , 1
do while not RS.EOF
rs.delete
rs.movenext
loop
%>
<body>
Test 28
<BR>
<BR>
</body>
</FONT>
</FRAMESET>
</HTML>
-------------------------------
Réponse au message :
-------------------------------
C'est quoi ton code maintenant ?
Tu l'as changé ou c'est l'erruer que tu avais déjà ?
-------------------------------
Réponse au message :
-------------------------------
merci beaucoup pour ton aide mais voila ce qu'il me dit :
Microsoft VBScript compilation error '800a03fb'
Expected 'Loop'
/baropen/test.asp, line 50
:(
Bar Open
-------------------------------
Réponse au message :
-------------------------------
<% Set RS = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM nomdetatable WHERE datediff('d',now(),nomdetonchampdate)<0"
%><% RS.open SQL, conn, 1, 2 , 1
do while not RS.EOF
RS.delete
RS.movenext
loop %>
-------------------------------
Réponse au message :
-------------------------------
Quelqu'un saurait-il comment je peux deleter une ou plusieur donnée dans une base de donnée access en fonction de la date. Je m'expliques on verifie si la date d'aujourd'hui correspond avec la date préalablement entrer dans la base de donnee si c'est le cas on efface tout ce qui est de la meme date et il affiche tout ce qui n'a pas ete deleter
Cela fais au moins 1 mois que je suis sur ce probleme et je n'arrive toujours pas a le resoudre
Merci beaucoup de votre aide
voila mon code source au cas ou :
<HTML>
<HEAD>
<TITLE>Annonces classes</TITLE>
</HEAD>
<CENTER>
<H3>
</STRONG>
<H1>
<BR>
Voici les donnees entrées dans la base
<%djour= Date()%><br>
<%
jour = request.form("jour")
choix = request.form("choix")
region = request.form("region")
Set OBJdbConnection = Server.CreateObject("ADODB.Connection")
OBJdbConnection.Open "mabase","",""
Set Rb = Server.CreateObject("ADODB.Recordset")
req_sql ="select * from infoclient where date_poster = '"& djour &"'"
response.write djour &" <BR>"
response.write req_sql & "<BR>"
Rb.Open req_sql,Conn, 1, 3
if rb.recordcount > 0 then
do while not EOF
rb.delete
rb.movenext
loop
rb.updatebatch
end if
'conn.execute(req_sql)
SQL = "SELECT * FROM infoclient where (categorie = '" & region & "') and (region = '" & choix & "') order by userid"
Set rs = OBJdbConnection.Execute(SQL)
%>
<% do while not rs.EOF %> <br>
<% =rs("message") %>, <% =rs("telephone") %>, <br>
<% rs.movenext
loop %>
<% rs.close
set rs = nothing %>
<BR>
<BR>
</FONT>
</FRAMESET>
</HTML>
|
|
mercredi 10 avril 2002 à 17:49:53 |
Re : Quelqu'un saurait-il ??
BarOpen
|
Merci beaucoup c'est impec
-------------------------------
Réponse au message :
-------------------------------
Essaye de changer ça :
Set OBJdbConnection = Server.CreateObject("ADODB.Connection")
OBJdbConnection.Open "mabase","",""
Set RS = Server.CreateObject("ADODB.Recordset")
sql ="select * from infoclient where datediff('d',now(),date_poster)<0"
RS.Open sql,Conn, 1, 2 , 1
en ça :
Set OBJdbConnection = Server.CreateObject("ADODB.Connection")
OBJdbConnection.Open "mabase","",""
Set RS = Server.CreateObject("ADODB.Recordset")
sql ="select * from infoclient where datediff('d',now(),date_poster)<0"
RS.Open sql,OBJdbConnection, 1, 2 , 1
-------------------------------
Réponse au message :
-------------------------------
bon oki apres avoir changer quelque varible qui n'etait pas les bonnes (je crois que je dormais) il me sort un nouveau message d'erreur qui est :
-------------------------------
ADODB.Recordset error '800a0bb9'
Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.
/baropen/test.asp, line 25
-------------------------------
Tu sais a quoi peut etre du cette erreur ??
voila mon nouveau code :
<HTML>
<HEAD>
<TITLE>Annonces classes</TITLE>
</HEAD>
<CENTER>
<H3>
</STRONG>
<H1>
<BR>
Voici les donnees entrées dans la base
<%djour= Date()%><br>
<%
Set OBJdbConnection = Server.CreateObject("ADODB.Connection")
OBJdbConnection.Open "mabase","",""
Set RS = Server.CreateObject("ADODB.Recordset")
sql ="select * from infoclient where datediff('d',now(),date_poster)<0"
RS.Open sql,Conn, 1, 2 , 1
do while not RS.EOF
rs.delete
rs.movenext
loop
%>
<body>
Test 28
<BR>
<BR>
</body>
</FONT>
</FRAMESET>
</HTML>
-------------------------------
Réponse au message :
-------------------------------
ceci est un nouveau message , mais je me souvient de l'avoir deja eu comme message
merci enormement de m'aider c'est vraiment sympa et
voila mon code maintenant apres modification
<HTML>
<HEAD>
<TITLE>Annonces classes</TITLE>
</HEAD>
<CENTER>
<H3>
</STRONG>
<H1>
<BR>
Voici les donnees entrées dans la base
<%djour= Date()%><br>
<%
jour = request.form("jour")
choix = request.form("choix")
region = request.form("region")
Set OBJdbConnection = Server.CreateObject("ADODB.Connection")
OBJdbConnection.Open "mabase","",""
Set RS = Server.CreateObject("ADODB.Recordset")
sql ="select * from infoclient where datediff('d',now(),date)<0"
RS.Open sql,Conn, 1, 2 , 1
do while not RS.EOF
rs.delete
rs.movenext
loop
%>
<body>
Test 28
<BR>
<BR>
</body>
</FONT>
</FRAMESET>
</HTML>
-------------------------------
Réponse au message :
-------------------------------
C'est quoi ton code maintenant ?
Tu l'as changé ou c'est l'erruer que tu avais déjà ?
-------------------------------
Réponse au message :
-------------------------------
merci beaucoup pour ton aide mais voila ce qu'il me dit :
Microsoft VBScript compilation error '800a03fb'
Expected 'Loop'
/baropen/test.asp, line 50
:(
Bar Open
-------------------------------
Réponse au message :
-------------------------------
<% Set RS = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM nomdetatable WHERE datediff('d',now(),nomdetonchampdate)<0"
%><% RS.open SQL, conn, 1, 2 , 1
do while not RS.EOF
RS.delete
RS.movenext
loop %>
-------------------------------
Réponse au message :
-------------------------------
Quelqu'un saurait-il comment je peux deleter une ou plusieur donnée dans une base de donnée access en fonction de la date. Je m'expliques on verifie si la date d'aujourd'hui correspond avec la date préalablement entrer dans la base de donnee si c'est le cas on efface tout ce qui est de la meme date et il affiche tout ce qui n'a pas ete deleter
Cela fais au moins 1 mois que je suis sur ce probleme et je n'arrive toujours pas a le resoudre
Merci beaucoup de votre aide
voila mon code source au cas ou :
<HTML>
<HEAD>
<TITLE>Annonces classes</TITLE>
</HEAD>
<CENTER>
<H3>
</STRONG>
<H1>
<BR>
Voici les donnees entrées dans la base
<%djour= Date()%><br>
<%
jour = request.form("jour")
choix = request.form("choix")
region = request.form("region")
Set OBJdbConnection = Server.CreateObject("ADODB.Connection")
OBJdbConnection.Open "mabase","",""
Set Rb = Server.CreateObject("ADODB.Recordset")
req_sql ="select * from infoclient where date_poster = '"& djour &"'"
response.write djour &" <BR>"
response.write req_sql & "<BR>"
Rb.Open req_sql,Conn, 1, 3
if rb.recordcount > 0 then
do while not EOF
rb.delete
rb.movenext
loop
rb.updatebatch
end if
'conn.execute(req_sql)
SQL = "SELECT * FROM infoclient where (categorie = '" & region & "') and (region = '" & choix & "') order by userid"
Set rs = OBJdbConnection.Execute(SQL)
%>
<% do while not rs.EOF %> <br>
<% =rs("message") %>, <% =rs("telephone") %>, <br>
<% rs.movenext
loop %>
<% rs.close
set rs = nothing %>
<BR>
<BR>
</FONT>
</FRAMESET>
</HTML>
|
|
Cette discussion est classée dans : date, sql, rb, quelqu, saurait
 Répondre à ce message
 Sujets en rapport avec ce message
date [ par amefee ]
bonjour a tous si quelqu'un pouvait m'aider ce serait vachement sympaMon probleme :j'ai une table demande ou se trouve une duree et une date d'action.
date [ par amefee ]
bonjour a tous si quelqu'un pouvait m'aider ce serait vachement sympaMon probleme :j'ai une table demande ou se trouve une duree et une date d'action.
Requete SQL nouvelle entree [ par schlada ]
Helloje recherche une requete SQL me permettant de faire se ki suima Bd acceesn°|Nom|equipe|dateje veux verifier si le Nom existe, si il existe je rec
Format d'une date sous SQL Serveur [ par Hesky ]
Comment definir le format d'une date sous SQL Serveur 7 ?Mercic'est assez urgent !Cordialement
Probleme de date [ par Bar Open ]
Je voudrais savoir si quelqu'un pourrait m'aider voila mon probleme:Je voudrais que lorsque quelqu'un entre un message sur ma page web, que la date s'
Problème de trigger en SQL server [ par diabolooo ]
Salut à tous,j'ai une table dans une base SQL server qui comporte 4 champs (id, date, heure, mesure)la clé primaire est composée des champs id, date,
SQL Where - debutant [ par Kiryan ]
BonjourJ'ai un probleme: Je suis en train d'essayer d'ecrire une page "events" pour un club de golf.J'ai mis tous mes events dans une db access, dans
SQL, Date et encores plus... [ par Bergueira ]
Bonjour,J' aimerais savoir comment faire pour trouver les enregistrements (dans ma BD) qui ont été inséré après la DATE1 et archivé avant la DATE2 (DA
date en sql server [ par scory ]
Je veux afficher les dates d'action qui ont moins de 2 mois.j'ai écris:Dim datedujour=date()datedujour=date()vbsql=select * from actionwhere Month(da
sql [ par joGTS ]
J'ai un souci en SQLJe voudrais lancer une procédure en automatique pour alimenter une table'JourschomesTMP' avec des jours non travaillés (champ idJC
 Livres en rapport
|
Derniers Blogs
 SESSION SILVERLIGHT 5 3D : SLIDES ET DEMOSSESSION SILVERLIGHT 5 3D : SLIDES ET DEMOS par Groc
Durant les techdays, j'ai eu le plaisir d'animer une session sur Silverlight 5 et la 3D avec Simon Ferquel. Comme promis, voici nos slides et mes démos (celles avec le viper BSG) ici et là. Pour mémoire, les démos utilisent toutes le viper BSG...
Cliquez pour lire la suite de l'article par Groc [TECHDAYS 2012] SESSION WEBMATRIX 2 : LE COUTEAU SUISSE GRATUIT POUR VOS DéVELOPPEMENTS WEB - SLIDES[TECHDAYS 2012] SESSION WEBMATRIX 2 : LE COUTEAU SUISSE GRATUIT POUR VOS DéVELOPPEMENTS WEB - SLIDES par gpommier
Suite à la session que j'ai présenté sur WebMatrix 2, vous pouvez trouver les slides ici, ainsi que les démos en packages nuget : démos1 et démos2 J'en profite pour remercier chaleureusement tous ceux qui sont venus très nombreux à cette sess...
Cliquez pour lire la suite de l'article par gpommier [SHAREPOINT] LES SESSIONS TECHDAYS 2012.[SHAREPOINT] LES SESSIONS TECHDAYS 2012. par Patrick Guimonet
Voici donc pour ceux qui n'ont pas pu venir, ou ceux qui n'ont pas pu toutes les suivre la liste des sessions SharePoint aux TechDays 2012, que je mettrais à jour dès que les liens des vidéo seront disponibles. Ou ici : http...
Cliquez pour lire la suite de l'article par Patrick Guimonet TECHDAYS PARIS 2012 : SESSION PLEINIèRE JOUR 3TECHDAYS PARIS 2012 : SESSION PLEINIèRE JOUR 3 par ROMELARD Fabrice
Speaker: Bernard Ourghanlian Cette session est comme chaque jour transmise en live par BrainSonic, et j'ai donc suivi cette troisième pleinière par ce moyen sur mon iPad . Elle est dédiée comme chaque année à la mise en perspective de l'é...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice MISHRA READER : UN LECTEUR RSS TRèS ZUNE STYLE EN OPEN SOURCE !MISHRA READER : UN LECTEUR RSS TRèS ZUNE STYLE EN OPEN SOURCE ! par Vko
Hier durant une session dédiée aux Techdays 2012, j'ai eu le plaisir d'annoncer la sortie de la Béta 2 de Mishra Reader. C'est quoi ? Pour les utilisateurs, c'est une vraie expérience de lecture de flux RSS sur Windows. Rien à voir avec les produit...
Cliquez pour lire la suite de l'article par Vko
Forum
 RE : FORMULAIRERE : FORMULAIRE par ap24dp
Cliquez pour lire la suite par ap24dp RE : FORMULAIRERE : FORMULAIRE par Megafan
Cliquez pour lire la suite par Megafan FORMULAIREFORMULAIRE par ap24dp
Cliquez pour lire la suite par ap24dp
Logiciels
 Tribler (2012)TRIBLER (2012)Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des... Cliquez pour télécharger Tribler OneSwarm (2012)ONESWARM (2012)Le peer-to-peer qui protège votre vie privée, c'est OneSwarm.
Ce logiciel de peer-to-peer crypté... Cliquez pour télécharger OneSwarm PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System Easy-Planning (1.0.0.1)EASY-PLANNING (1.0.0.1)Basé sur les mêmes principes que MyPlanning, Easy-Planning permet de créer des plannings sous la ... Cliquez pour télécharger Easy-Planning
|