IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

ASP Discussion :

Modifications non sauvegardées sur BD Access


Sujet :

ASP

  1. #1
    Membre du Club
    Profil pro
    Inscrit en
    Juillet 2008
    Messages
    90
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2008
    Messages : 90
    Points : 47
    Points
    47
    Par défaut Modifications non sauvegardées sur BD Access
    Bonjour,

    J'ai une page "Modif_Facturation.asp" et une page "Valid_Facturation.asp", ces deux pages fonctionnent très bien.

    Mon problème est le suivant :

    Si j'ouvre ma page "Valid_Facturation.asp" sur Dream MX2004 et je fais F12 pour visualiser ma page, toute les données modifiées auparavant son effacées.

    Je pense qu'il manque une fin sur ma requete UPDATE. Mais quoi ???

    Voici mon code de ma page "Valid_Facturation.asp"

    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
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
     
    <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
    "http://www.w3.org/TR/html4/loose.dtd">
     
    <html>
     
    <%
    Set connexAdmin = Server.CreateObject("ADODB.Connection")
    connexAdmin.Open "copyright"	
    %>
    -->
     
    <% if session("identOk")<>true then response.redirect("Identification.asp")%>  
     
    <head>
    <meta http-equiv="Content-Type" content="text/html; charset=">
    <title>Modification</title>
    <link rel="stylesheet" href="/Nouveaux site/Style/MesDonnees.css" type="text/css">
    </head>
    <!-- The structure of this file is exactly the same as 2col_rightNav.html;
         the only difference between the two is the stylesheet they use -->
    <body> 
     
     
    <%
    		Str_identifiant = Request.QueryString("identifiant")
     
    		strRequete="SELECT * FROM Tbl_MonCompte WHERE identifiant='" & Session("user") & "'"
    		Set RsMonCompte=Server.CreateObject("ADODB.Recordset")
    		RsMonCompte.Open strRequete,ConnexAdmin
     
     
    %>
     
     
    <%
     
     maVar = true
     If maVar Then
    		Response.Write("<font color='red'><b>Votre nouvelle adresse de facturation à bien été prise en compte</b></font>")
    	End If	
    %>	
     
     
    <br> 
     
     
     
    <%
    StrSQL = "UPDATE Tbl_MonCompte SET Contact_facturation= '" & Request.Form("NewContactFacturation" ) & "', Etabl_facturation ='" & Request.Form("NewContactFacturation1" ) & "' , Adresse_facturation ='" & Request.Form("NewContactFacturation2" ) & "'  , Telephone_facturation ='" & Request.Form("NewContactFacturation3" ) & "'  , mail_facturation ='" & Request.Form("NewContactFacturation4" ) & "' WHERE identifiant='" & Session("user") & "'" 
     
     
    Set RsMonCompte=Server.CreateObject("ADODB.Recordset")
    RsMonCompte.Open StrSQL,ConnexAdmin
     
    %>
     
    </body>
    </html>

  2. #2
    Expert confirmé
    Avatar de pc75
    Profil pro
    Inscrit en
    Septembre 2004
    Messages
    3 662
    Détails du profil
    Informations personnelles :
    Âge : 68
    Localisation : France, Paris (Île de France)

    Informations forums :
    Inscription : Septembre 2004
    Messages : 3 662
    Points : 4 047
    Points
    4 047
    Par défaut
    Bonjour,

    Pourquoi tu crées une seconde instance de RsMonCompte ?

  3. #3
    Membre du Club
    Profil pro
    Inscrit en
    Juillet 2008
    Messages
    90
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2008
    Messages : 90
    Points : 47
    Points
    47
    Par défaut
    Re,

    Si je retire une instance RsMonCompte, dois-je là remplacer par quelque chose d'autre ?

    Cédric.

  4. #4
    Expert confirmé
    Avatar de pc75
    Profil pro
    Inscrit en
    Septembre 2004
    Messages
    3 662
    Détails du profil
    Informations personnelles :
    Âge : 68
    Localisation : France, Paris (Île de France)

    Informations forums :
    Inscription : Septembre 2004
    Messages : 3 662
    Points : 4 047
    Points
    4 047
    Par défaut
    Re,

    Set RsMonCompte=Server.CreateObject("ADODB.Recordset")
    Cette ligne (le dernière dans ton code), est inutile.

  5. #5
    Membre du Club
    Profil pro
    Inscrit en
    Juillet 2008
    Messages
    90
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2008
    Messages : 90
    Points : 47
    Points
    47
    Par défaut
    Re,

    J'ai supprimé la ligne inutile de mon dernier code voici le code après modif

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
     
    <%
    StrSQL = "UPDATE Tbl_MonCompte SET Contact_facturation= '" & Request.Form("NewContactFacturation" ) & "', Etabl_facturation ='" & Request.Form("NewContactFacturation1" ) & "' , Adresse_facturation ='" & Request.Form("NewContactFacturation2" ) & "'  , Telephone_facturation ='" & Request.Form("NewContactFacturation3" ) & "'  , mail_facturation ='" & Request.Form("NewContactFacturation4" ) & "' WHERE identifiant='" & Session("user") & "'" 
     
     
    RsMonCompte.Open StrSQL,ConnexAdmin
     
    %>
    et j'obtiens le message suivant en bas de ma page web

    ADODB.Recordset error '800a0e79'

    Cette opération n'est pas autorisée si l'objet est ouvert.

    /Nouveaux site/Pages/Valid_Facturation.asp, line 147
    la line 147 correspond à RsMonCompte.Open StrSQL,ConnexAdmin.

  6. #6
    Expert confirmé
    Avatar de pc75
    Profil pro
    Inscrit en
    Septembre 2004
    Messages
    3 662
    Détails du profil
    Informations personnelles :
    Âge : 68
    Localisation : France, Paris (Île de France)

    Informations forums :
    Inscription : Septembre 2004
    Messages : 3 662
    Points : 4 047
    Points
    4 047
    Par défaut
    Re,

    Tu veux tenter cette méthode ?

    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
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
     
    <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
    "http://www.w3.org/TR/html4/loose.dtd">
     
    <html>
     
    <%
    Set connexAdmin = Server.CreateObject("ADODB.Connection")
    connexAdmin.Open "copyright"	
    %>
    -->
     
    <% if session("identOk")<>true then response.redirect("Identification.asp")%>  
     
    <head>
    <meta http-equiv="Content-Type" content="text/html; charset=">
    <title>Modification</title>
    <link rel="stylesheet" href="/Nouveaux site/Style/MesDonnees.css" type="text/css">
    </head>
    <!-- The structure of this file is exactly the same as 2col_rightNav.html;
         the only difference between the two is the stylesheet they use -->
    <body> 
     
     
    <%
    		Str_identifiant = Request.QueryString("identifiant")
     
    		strRequete="SELECT * FROM Tbl_MonCompte WHERE identifiant='" & Session("user") & "'"
    		Set RsMonCompte=Server.CreateObject("ADODB.Recordset")
    		RsMonCompte.Open strRequete,ConnexAdmin
                    RsMonCompte.close
                    Set RsMonCompte=Nothing
    %>
     
     
    <%
     
     maVar = true
     If maVar Then
    		Response.Write("<font color='red'><b>Votre nouvelle adresse de facturation à bien été prise en compte</b></font>")
    	End If
    %>
     
     
    <br>
     
     
     
    <%
    Set Conn=Server.CreateObject("ADODB.Connection")
    Conn.Open(ConnexAdmin)
    StrSQL = "UPDATE Tbl_MonCompte SET Contact_facturation= '" & Request.Form("NewContactFacturation" ) & "', Etabl_facturation ='" & Request.Form("NewContactFacturation1" ) & "' , Adresse_facturation ='" & Request.Form("NewContactFacturation2" ) & "'  , Telephone_facturation ='" & Request.Form("NewContactFacturation3" ) & "'  , mail_facturation ='" & Request.Form("NewContactFacturation4" ) & "' WHERE identifiant='" & Session("user") & "'"
    Conn.Execute (StrSQL)
    Conn.close
    set Conn = nothing 
     
    %>
     
    </body>
    </html>

  7. #7
    Membre du Club
    Profil pro
    Inscrit en
    Juillet 2008
    Messages
    90
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2008
    Messages : 90
    Points : 47
    Points
    47
    Par défaut
    Re,

    J'ai fais les modifs et j'ai le message suivant

    ADODB.Field error '80020009'

    BOF ou EOF est égal à True ou l'enregistrement actuel a été supprimé. L'opération demandée nécessite un enregistrement actuel.

    /Nouveaux site/Pages/Valid_Facturation.asp, line 0
    Une petite précision : j'ai fais une prévisualisation depuis DREAM après avoir réinitialisé et vider le cache de Safari et j'obtiens le message ci-dessus. Hors sans réinitialisé aucun message d'erreur et mais données modifiées ne sont toujours pas sauvegardées !!!!

  8. #8
    vva
    vva est déconnecté
    Membre averti Avatar de vva
    Profil pro
    Inscrit en
    Décembre 2004
    Messages
    463
    Détails du profil
    Informations personnelles :
    Localisation : Suisse

    Informations forums :
    Inscription : Décembre 2004
    Messages : 463
    Points : 447
    Points
    447
    Par défaut
    cela veut dire que la valeur recherchée dasn ta DB n'existe pas il faut donc faire le test suivant avant de faire le traitement de lecture du recordset

    if objRs.EOF AND objRs.BOF then
    response.write "Désolé, pas de résultat"
    else
    while not objRs.eof
    'traitment du recordset
    objRs.MoveNext
    wend
    end if

  9. #9
    Membre du Club
    Profil pro
    Inscrit en
    Juillet 2008
    Messages
    90
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2008
    Messages : 90
    Points : 47
    Points
    47
    Par défaut
    Re,

    J'ai regroupé la page "Modif_Facturation" et "Valid_Facturation en une seule page "Modif_Facturation".

    Voici mon nouveau 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
    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
    72
    73
    74
    75
    76
    77
    78
    79
    80
    81
    82
    83
    84
    85
    86
    87
    88
    89
    90
    91
     
    <html>
     
    <!--
    <%
    Set connexAdmin = Server.CreateObject("ADODB.Connection")
    connexAdmin.Open "copyright"	
    %>
    -->
     
    <% if session("identOk")<>true then response.redirect("Identification.asp")%>  
     
    <head>
    <meta http-equiv="Content-Type" content="text/html; charset=">
    <title>Modification</title>
    <link rel="stylesheet" href="/Nouveaux site/Style/MesDonnees.css" type="text/css">
    </head>
    <!-- The structure of this file is exactly the same as 2col_rightNav.html;
         the only difference between the two is the stylesheet they use -->
    <body> 
     
    <%
    		Str_identifiant = Request.QueryString("identifiant")
     
    		strRequete="SELECT * FROM Tbl_MonCompte WHERE identifiant='" & Session("user") & "'"
    		Set RsMonCompte=Server.CreateObject("ADODB.Recordset")
    		RsMonCompte.Open strRequete,ConnexAdmin
     
    %>
     
     
     
     
    <fieldset><legend>Nouvelle adresse de facturation</legend>
     
    <p>
     
    <form action="Modif_Facturation.asp" method="get">
     
    			<input name="NewContactFacturation" size="70%" type="text" value="<%=RsMonCompte("Contact_facturation")%>"> <p>
    			<input name="NewContactFacturation1" size="70%" type="text" value="<%=RsMonCompte("Etabl_facturation")%>"> <p> 
    			<input name="NewContactFacturation2" size="70%" type="text" value="<%=RsMonCompte("Adresse_facturation")%>"> <p> 
    			<input name="NewContactFacturation3" size="70%" type="text" value="<%=RsMonCompte("Telephone_facturation")%>"> <p> 
    			<input name="NewContactFacturation4" size="70%" type="text" value="<%=RsMonCompte("mail_facturation")%>"> <p> 
    <p>
     
    	<input type="submit" value="Valider" name="Action">
     
    </form>
     
    </fieldset>
     
     
     
    <%
     
    Select Case Request("Action")
    	CASE "Valider"
     
     if RsMonCompte.EOF AND RsMonCompte.BOF then
     response.write "Désolé, pas de résultat"
     else
     while not RsMonCompte.eof
     
    		strRequete="UPDATE Tbl_MonCompte"
    		strRequete=strRequete & " SET Contact_facturation= '" & NewContactFacturation & "',"
    		strRequete=strRequete & " SET Etabl_facturation= '" & NewContactFacturation1 & "',"
    		strRequete=strRequete & " SET Adresse-facturation= '" & Request("NewContactFacturation2") & "',"
    		strRequete=strRequete & " SET Telephone_facturation= '" & Request("NewContactFacturation3") & "',"
    		strRequete=strRequete & " SET mail_facturation= '" & Request("NewContactFacturation4") & "'"
    		strRequete=strRequete & " WHERE identifiant='" & Session("user") & "'"
     
    		Response.Redirect "MesDonnees.asp"
    		RsUpdate.Open strRequete,ConnexAdmin
     
    		Set RsUpdate=Nothing
     
    	Set RsMonCompte=Nothing
     
     
     Rs.MoveNext
     wend
     end if
     
    Set ConnexAdmin=Nothing
    End Select
    %>
     
     
    </body>
    </html>
    Et j'ai toujours aucune modif. de prises en compte, et aucun message d'erreur.

    Est-ce ma requete Update qui est mal construite.

    Y a t'il une autre solution que Update... Je pense à la requete INSERT INTO

    Merci d'avance

    Cédric.

  10. #10
    vva
    vva est déconnecté
    Membre averti Avatar de vva
    Profil pro
    Inscrit en
    Décembre 2004
    Messages
    463
    Détails du profil
    Informations personnelles :
    Localisation : Suisse

    Informations forums :
    Inscription : Décembre 2004
    Messages : 463
    Points : 447
    Points
    447
    Par défaut
    insert to tu créés un nouvel enregistrement et update c'est la mise à jour d'un enregistrement existant. si tu veux utiliser l'insert il faut d'abord supprimer l'enregistrement obsolète mais normalement l'update est de rigueur pour ton cas

  11. #11
    Membre du Club
    Profil pro
    Inscrit en
    Juillet 2008
    Messages
    90
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2008
    Messages : 90
    Points : 47
    Points
    47
    Par défaut
    Bonjour vva,

    Certe la requete Update est de rigueur pour mon cas, mais je n'arrive pas à la faire fonctionner, et je ne vois pas pourquoi.

    Cédric.

  12. #12
    Modérateur
    Avatar de roro06
    Profil pro
    Inscrit en
    Avril 2007
    Messages
    1 480
    Détails du profil
    Informations personnelles :
    Âge : 54
    Localisation : France

    Informations forums :
    Inscription : Avril 2007
    Messages : 1 480
    Points : 1 978
    Points
    1 978
    Par défaut
    bonjour

    Pas besoin d'un objet recordset pour balancer une requête update à un SGBD, il faut utiliser un objet command :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    <%
    StrSQL = "UPDATE Tbl_MonCompte SET Contact_facturation= '" & Request.Form("NewContactFacturation" ) & "', Etabl_facturation ='" & Request.Form("NewContactFacturation1" ) & "' , Adresse_facturation ='" & Request.Form("NewContactFacturation2" ) & "'  , Telephone_facturation ='" & Request.Form("NewContactFacturation3" ) & "'  , mail_facturation ='" & Request.Form("NewContactFacturation4" ) & "' WHERE identifiant='" & Session("user") & "'"
    
    
    Set comm=Server.CreateObject("ADODB.Command")
    comm.ActiveConnection=connexAdmin
    comm.commandText=StrSQL
    comm.Execute ()
    
    set comm= nothing 
     
    %>
    Si ça ne veut rien savoir, faire :
    ça aide souvent


    N'oubliez pas de consulter les FAQ ASP et les cours et tutoriels ASP

    " La vie c'est quelque chose de très fort et de très beau.... La vie appartient a tous les vivants. It's both a dream and a feeling. C'est être ce que nous ne sommes pas sans le rester. La vie c'est mourir aussi....Et mourir c'est vraiment strong...c'est rester en vie au delà de la mort...Tous ceux qui sont morts n'ignorent pas de le savoir."
    (J.C. VanDamme, humoriste et philosophe belge . A moins que ce ne soit l'inverse ...)

    Chuck Norris comprend JC Van Damme.

  13. #13
    Membre du Club
    Profil pro
    Inscrit en
    Juillet 2008
    Messages
    90
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2008
    Messages : 90
    Points : 47
    Points
    47
    Par défaut
    Bonjour roro06,

    J'ai remplacé mon dernier code par ton code. Si je fais une modif tous mes champ (contact_facturation, adresse_facturation...) sont vide après exécution de ma requete.

    Cédric.

  14. #14
    Modérateur
    Avatar de roro06
    Profil pro
    Inscrit en
    Avril 2007
    Messages
    1 480
    Détails du profil
    Informations personnelles :
    Âge : 54
    Localisation : France

    Informations forums :
    Inscription : Avril 2007
    Messages : 1 480
    Points : 1 978
    Points
    1 978
    Par défaut
    On avance, on avance ...

    2 conclusions :

    1 / les modifications sont (enfin !) prises en compte.
    2 / Ta collection Request.form est probablement vide. As tu fait

    pour voir ?


    N'oubliez pas de consulter les FAQ ASP et les cours et tutoriels ASP

    " La vie c'est quelque chose de très fort et de très beau.... La vie appartient a tous les vivants. It's both a dream and a feeling. C'est être ce que nous ne sommes pas sans le rester. La vie c'est mourir aussi....Et mourir c'est vraiment strong...c'est rester en vie au delà de la mort...Tous ceux qui sont morts n'ignorent pas de le savoir."
    (J.C. VanDamme, humoriste et philosophe belge . A moins que ce ne soit l'inverse ...)

    Chuck Norris comprend JC Van Damme.

  15. #15
    Membre du Club
    Profil pro
    Inscrit en
    Juillet 2008
    Messages
    90
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2008
    Messages : 90
    Points : 47
    Points
    47
    Par défaut
    Bonjour roro06,

    Voilà le résultat sur Safari

    UPDATE Tbl_MonCompte SET Contact_facturation= '', Etabl_facturation ='' , Adresse_facturation ='' , Telephone_facturation ='' , mail_facturation ='' WHERE identifiant='guide.congres@copyright.fr'
    Mon erreur vient peut-être de mon formulaire.

    J'ai
    "<%=RsMonCompte("Contact_facturation")%>"
    faut-il pas mettre autre chose. Du genre replace qqch...

    Cédric.

  16. #16
    Modérateur
    Avatar de roro06
    Profil pro
    Inscrit en
    Avril 2007
    Messages
    1 480
    Détails du profil
    Informations personnelles :
    Âge : 54
    Localisation : France

    Informations forums :
    Inscription : Avril 2007
    Messages : 1 480
    Points : 1 978
    Points
    1 978
    Par défaut
    Voilà le résultat sur Safari
    (rien a voir avec le navigateur)

    Mon erreur vient peut-être de mon formulaire.
    Il faut surtout qu'il soit défini en méthode POST pour pouvoir utiliser la collection Request.form()

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    <form method="post" action="...">


    N'oubliez pas de consulter les FAQ ASP et les cours et tutoriels ASP

    " La vie c'est quelque chose de très fort et de très beau.... La vie appartient a tous les vivants. It's both a dream and a feeling. C'est être ce que nous ne sommes pas sans le rester. La vie c'est mourir aussi....Et mourir c'est vraiment strong...c'est rester en vie au delà de la mort...Tous ceux qui sont morts n'ignorent pas de le savoir."
    (J.C. VanDamme, humoriste et philosophe belge . A moins que ce ne soit l'inverse ...)

    Chuck Norris comprend JC Van Damme.

  17. #17
    Membre du Club
    Profil pro
    Inscrit en
    Juillet 2008
    Messages
    90
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2008
    Messages : 90
    Points : 47
    Points
    47
    Par défaut
    Re, Ok, j'ai mis mon formulaire en POST mais modif sont prises en compte. Mais je retrouve mon problème du début. A savoir si j'ouvre directement ma page ?Modif_Facturation?, mes modif effectuées auparavant sont effacées. Comme ci ma requete Update n'avait pas été enregistrée dans ma BD. Cédric.

  18. #18
    vva
    vva est déconnecté
    Membre averti Avatar de vva
    Profil pro
    Inscrit en
    Décembre 2004
    Messages
    463
    Détails du profil
    Informations personnelles :
    Localisation : Suisse

    Informations forums :
    Inscription : Décembre 2004
    Messages : 463
    Points : 447
    Points
    447
    Par défaut
    je viens de regarder ton code et il est en méthode get, essaye de le passer en methode post

  19. #19
    Membre du Club
    Profil pro
    Inscrit en
    Juillet 2008
    Messages
    90
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2008
    Messages : 90
    Points : 47
    Points
    47
    Par défaut
    Re,

    J'ai mis mon formulaire en "POST" et ça marche.

    Mais il y a encore un petit problème. Si j'ouvre ma page "Modif_Facturation", j'ai bien mon formulaire avec les données de ma BD. Hors si je ne clique pas sur le bouton "Valider" et que je quitte cette page il m'enregistre un formulaire vierge. Comment faire ? Dois-je utiliser (si Contact_facturation=qqch alors...).

    Merci à tous pour votre aide précieuse.

    Voici mon code actuel

    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
    37
    38
    39
    40
     
    <%
    		Str_identifiant = Request.QueryString("identifiant")
     
    		strRequete="SELECT * FROM Tbl_MonCompte WHERE identifiant='" & Session("user") & "'"
    		Set RsMonCompte=Server.CreateObject("ADODB.Recordset")
    		RsMonCompte.Open strRequete,ConnexAdmin
     
    %>
    <form action="Modif_Facturation.asp" method="post">
     
    			<input name="NewContactFacturation" size="70%" type="text" value="<%=RsMonCompte("Contact_facturation")%>"> <p>
    			<input name="NewContactFacturation1" size="70%" type="text" value="<%=RsMonCompte("Etabl_facturation")%>"> <p> 
    			<input name="NewContactFacturation2" size="70%" type="text" value="<%=RsMonCompte("Adresse_facturation")%>"> <p> 
    			<input name="NewContactFacturation3" size="70%" type="text" value="<%=RsMonCompte("Telephone_facturation")%>"> <p> 
    			<input name="NewContactFacturation4" size="70%" type="text" value="<%=RsMonCompte("mail_facturation")%>"> <p> 
    <p>
     
    	<input type="submit" value="Valider" name="Action">
     
    </form>
    <%
    StrSQL = "UPDATE Tbl_MonCompte SET Contact_facturation= '" & Request.Form("NewContactFacturation") & "', Etabl_facturation ='" & Request.Form("NewContactFacturation1" ) & "' , Adresse_facturation ='" & Request.Form("NewContactFacturation2" ) & "'  , Telephone_facturation ='" & Request.Form("NewContactFacturation3" ) & "'  , mail_facturation ='" & Request.Form("NewContactFacturation4" ) & "' WHERE identifiant='" & Session("user") & "'"
     
     
    Set comm=Server.CreateObject("ADODB.Command")
    comm.ActiveConnection=connexAdmin
    comm.commandText=StrSQL
    comm.Execute ()
     
    set comm= nothing 
     
    Response.write StrSQL
     
    %>
     
    <%
    RsMonCompte.MoveNext
    Set RsMonCompte=Nothing
    %>

  20. #20
    vva
    vva est déconnecté
    Membre averti Avatar de vva
    Profil pro
    Inscrit en
    Décembre 2004
    Messages
    463
    Détails du profil
    Informations personnelles :
    Localisation : Suisse

    Informations forums :
    Inscription : Décembre 2004
    Messages : 463
    Points : 447
    Points
    447
    Par défaut
    en principe tu dois avoir une page de formulaire avec une methode post et une action sur une page de traitement de ton formulaire et c'est dans cette page de traitement de formulaire que tu fais un update ou insert ou delete

+ Répondre à la discussion
Cette discussion est résolue.
Page 1 sur 2 12 DernièreDernière

Discussions similaires

  1. ObservableCollection non actualisée sur modifs TextBox
    Par Bindy dans le forum Windows Presentation Foundation
    Réponses: 17
    Dernier message: 27/04/2009, 18h18
  2. Modifications non effectuées sur sortie de formulaire
    Par jojodid dans le forum VBA Access
    Réponses: 1
    Dernier message: 28/08/2008, 17h19
  3. [VB2005] Problème de modification sur BD access
    Par Marmo31 dans le forum Windows Forms
    Réponses: 3
    Dernier message: 27/02/2008, 22h56
  4. conditionnelle sur table access vide ou non
    Par SylvainJ dans le forum Access
    Réponses: 4
    Dernier message: 24/07/2006, 16h10
  5. sauvegarder un fichier Access sur un réseau
    Par ginger dans le forum Access
    Réponses: 9
    Dernier message: 08/11/2004, 16h20

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo