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
 [MIX10] KEYNOTE DEUXIèME JOURNéE - INTERNET EXPLORER 9, HTML5, VISUAL STUDIO 2010, ODATA[MIX10] KEYNOTE DEUXIèME JOURNéE - INTERNET EXPLORER 9, HTML5, VISUAL STUDIO 2010, ODATA par cyril
Le deuxième keynote du mix fut très riche en contenu. Internet Explorer 9 Juste un après le lancement de Internet Explorer 8, Microsoft a dévoilé les nouveautés de Internet Explorer 9. Désormais, IE supportera HTML5, SVG et CSS3. L'élément ...
Cliquez pour lire la suite de l'article par cyril CERTIFICATIONS BETA .NET 4CERTIFICATIONS BETA .NET 4 par KooKiz
Les inscriptions pour les certifications beta .NET 4 ont commencé. L'inscription est offerte pour les examens suivants : - 71-511, TS: Windows Applications Development with Microsoft .NET Framework 4 - 71-515, TS: Web Applications Development with...
Cliquez pour lire la suite de l'article par KooKiz [MIX 2010] - MICROSOFT TRANSLATOR TECHNOLOGY PREVIEW V2[MIX 2010] - MICROSOFT TRANSLATOR TECHNOLOGY PREVIEW V2 par redo
J'imagine que la plupart d'entre vous connaissent bien et utilisent le service de traduction de Google, mais connaissez-vous celui de Microsoft . Microsoft Translator ? Effectivement, Microsoft nous annoncé le lancement version 2 de la Technologie Preview...
Cliquez pour lire la suite de l'article par redo LANCEMENT EN PREVIEW DE CYCLONE LORS DES TECHDAYS 2010!LANCEMENT EN PREVIEW DE CYCLONE LORS DES TECHDAYS 2010! par MPOWARE
Toutes les vidéos de ce lancement sont en ligne!
Partie I - Intro
http://www.youtube.com/watch?v=LkQzTQ8T6CA
Partie II - Démo 1
http://www.youtube.com/watch?v=drAhYQ7lqvo
Partie III - Démo 2
http://www.youtube.com/watch?v=c8KM_1Gqybc...
Cliquez pour lire la suite de l'article par MPOWARE
Forum
 RE : ASPNETDB & CORE : ASPNETDB & CO par nhervagault
Cliquez pour lire la suite par nhervagault
Logiciels
 Academy System (10.9.4.0)ACADEMY SYSTEM (10.9.4.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System Xilisoft Convertisseur Vidéo Ultimate (5.1.39.0305)XILISOFT CONVERTISSEUR VIDéO ULTIMATE (5.1.39.0305)Xilisoft Convertisseur Vidéo Ultimate est un outil puissant de conversion vidéo, facile à utilise... Cliquez pour télécharger Xilisoft Convertisseur Vidéo Ultimate Xilisoft DVD Ripper Ultimate (5.0.64.0304)XILISOFT DVD RIPPER ULTIMATE (5.0.64.0304)Xilisoft DVD Ripper Ultimate est un logiciel excellent pour copier et convertir DVD vers presque ... Cliquez pour télécharger Xilisoft DVD Ripper Ultimate Rigs of Rods (63.3)RIGS OF RODS (63.3)c'est un jeu de multi-simulation camions,autobus voitures, avions, bateaux, hélicoptère avec défo... Cliquez pour télécharger Rigs of Rods
|