malhivertman1
Messages postés489Date d'inscriptionmardi 16 novembre 2004StatutMembreDernière intervention22 novembre 2007
-
1 févr. 2005 à 09:53
malhivertman1
Messages postés489Date d'inscriptionmardi 16 novembre 2004StatutMembreDernière intervention22 novembre 2007
-
2 févr. 2005 à 09:38
En fait, g une base de donné access. G fé une page d'identification de l'utilisateur mais juste avec un numéro, pas de mot de pass er je voudrai dire en fait :
Si le numero ke l'utlisateur rentre (idlog) existe dan la table (champ idlog), alors le champ K1 de mon formulaire recoi la valeur K1 de la table et pareil pour K2
Et si l'idlog n'existe pa, il se cré dan la tabl avec K1 et K2 qui recevron les donné qui seron saisi dan le formulaire
Nicolas_kojack
Messages postés136Date d'inscriptionvendredi 19 novembre 2004StatutMembreDernière intervention25 mai 2012 1 févr. 2005 à 13:44
ta page 1 :
<form action="tapage2.asp" method="post">
</form>
ta page 2 :
<%
' recuprer le request du formulaire
if request("identifier") <> "" then
identifier = request("identifier")
else
end if
'ta connection
Conn = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.mapPath("database/base.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM tatable WHERE k1 like '"& identifier &"'"
rs.Open SQL, conn ,3 ,3
'vérification de l'existence d'un compte :
if rs.recordcount < 1 then
's'il n'y en a pas :
Set rs2 = Server.CreateObject("ADODB.Recordset")
SQL2 = "SELECT * FROM tatable"
rs2.Open SQL2, conn ,3 ,3
'creation de l'enregistrement
rs2.addnew
rs2("k1") = "valeur" (ou variable sans guillemet)
rs2("k2") = "valeur" (ou variable sans guillemet)
rs2.update
response.redirect "tapage1.asp" '<==== ou la personne devra rerentrer la valeur
else
end if
'tu as pleins de manières de faire la c la plus simple
%>
<html><head></head>
malhivertman1
Messages postés489Date d'inscriptionmardi 16 novembre 2004StatutMembreDernière intervention22 novembre 20071 1 févr. 2005 à 16:25
oui mes valeur sont bien K1 et K2 mais aussi idlog ki identifie l'utilisateur
maintenan mon code c ca :
<%
' connexion
conn = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.mapPath("/base.mdb")
Set Rsbase = Server.CreateObject("ADODB.Recordset") sql "SELECT * FROM T1 WHERE idlog '" & idlog & "'"
Rsbase.Open sql, conn, 3, 3
' vérification de l'existence d'un compte :
if Rsbase.recordcount < 1 then
' s'il n'y en a pas :
Set Rsbase2 = Server.CreateObject("ADODB.Recordset")
sql2 = "SELECT * FROM T1"
Rsbase2.Open sql2, conn, 3, 3
' création de l'enregistrement
Rsbase2.addnew
Rsbase2("idlog") = request("idlog")
Rsbase2("K1") = "0"
Rsbase2("K2") = "0"
Rsbase2.update
response.redirect "page2.asp"
else
end if
%>
mais ca ne march tjs pa, mêm erreur ke tou ta leur, c sur le .open sql
malhivertman1
Messages postés489Date d'inscriptionmardi 16 novembre 2004StatutMembreDernière intervention22 novembre 20071 1 févr. 2005 à 16:42
Ah serieu? lol ben je lé pa mise
bon atten...j'essay.....
bon avec la lign ca chang rien
maintenan jessay de changer le '=' par un 'like'........
pareil
maintenan avec like "& idlog &"..........
ah ca a marché un cou et apré qd je fé préceden pr réssayé, ca ne ve plu, ca me remet l'ereur mé ca a qd mêm marché une foi, jten sui reconnaissan
ca doi etr un detail le reste jpens..comm d'hab, tjs des pti detail..
Nicolas_kojack
Messages postés136Date d'inscriptionvendredi 19 novembre 2004StatutMembreDernière intervention25 mai 2012 1 févr. 2005 à 16:59
ca le fait que les utilisateurs les modifie c encore autre chose c que tu ne dois pas mettre de addnew sinon ca re enregistre un autre... donc tu enleve si tu ne veux que la mofication ou tu fais un autre bouton B2 et en haut de page tu met :
if request("b2") <> "" then
ton sql normal puis :
rs("K1") = request("K1")
pareil pour K2 et tu renvoies avec le response.redirect pour enregistrer les modifs...
Nicolas_kojack
Messages postés136Date d'inscriptionvendredi 19 novembre 2004StatutMembreDernière intervention25 mai 2012 1 févr. 2005 à 17:06
un autre bouton qui te permet de faire juste une modif mais je vient de te dire chaque chose en son temps <==== je regarde tes pages hahaha je sais pas comment tu fais pour t'y retrouver
malhivertman1
Messages postés489Date d'inscriptionmardi 16 novembre 2004StatutMembreDernière intervention22 novembre 20071 2 févr. 2005 à 09:38
Fait moi signe quand tu as du nouveau, j'essaye de voir comen permmetr que les infos qui son modifié soi enregistrer a leur tour. Parce qui fo qd mêm que je boss, je présente ce projet eu bts en fin d'anné