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

Access Discussion :

Erreur lors d’enregistrement d'une date


Sujet :

Access

  1. #1
    Membre régulier
    Profil pro
    Inscrit en
    mars 2004
    Messages
    178
    Détails du profil
    Informations personnelles :
    Localisation : Suisse

    Informations forums :
    Inscription : mars 2004
    Messages : 178
    Points : 94
    Points
    94
    Par défaut Erreur lors d’enregistrement d'une date
    Bonjour,

    lorsque j'essaie de modifier une date j'ai une erreur 500 du serveur !

    lorsque j'essaie de lire une date j'ai une erreur 500 du serveur !
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
     Response.write "Date: " & rsV("DateV") & "<br>"
    La date actuelle qui est dans la base et que je veux modifier ou lire à cette valeur : 28.09.2016 13:48:09

    son format est: Date/Heure

    le recordset est fonctionnel:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
     
    Total = rsV.recordcount
    Response.write "Total: " & Total & "<br>"
    cela me donne: Total: 1

    Voici mon 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
    <!doctype html>
    <html lang="en">
    <head>
    	<meta charset="UTF-8" />
    	<title>Test</title>
    </head>
    <body><%
    
    str = 31
    
    truc = "moi"
    
    strAccessDB = "/Base/test.mdb"
    DSN_BASE2 = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath(strAccessDB)
    Set CONN2V = Server.CreateObject("ADODB.Connection")
    CONN2V.Open DSN_BASE2
    
    Set rsV = Server.CreateObject("ADODB.RecordSet")
    sqlV = "select Distinct Pseudo from Visites where Pseudo = " & "'" & truc & "'" & " and IDmembres = " & str 
    rsV.Open sqlV, CONN2V,3,2,1
    
    if not rsV.eof then	
    	rsV("DateV") = now()    ' le problème est ici	
    	rsV.update
    end if
    
    rsV.close
    set rsV = nothing
    
    CONN2V.close
    set CONN2V = nothing 
    
    %>
    	
    </body>
    </html>

  2. #2
    Expert confirmé Avatar de nico84
    Homme Profil pro
    Consultant/développeur ERP
    Inscrit en
    mai 2008
    Messages
    2 612
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 56
    Localisation : France

    Informations professionnelles :
    Activité : Consultant/développeur ERP
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : mai 2008
    Messages : 2 612
    Points : 4 160
    Points
    4 160
    Par défaut
    Bonjour,

    Y'a des trucs qui ne ressemblent pas à du VBA là dedans mais je vois au moins 3 raisons pour que ça ne marche pas :
    - select distinct... n'est jamais un recordset éditable (sauf peut-être si le distinct ne sert à rien ?)
    - il manque rsv.edit (qui planterait pour la raison ci-dessus)
    - rsv ne contient pas le champ datev
    Utilisez Planet, gestion d'entreprise gratuite pour TPE / PME

  3. #3
    Membre régulier
    Profil pro
    Inscrit en
    mars 2004
    Messages
    178
    Détails du profil
    Informations personnelles :
    Localisation : Suisse

    Informations forums :
    Inscription : mars 2004
    Messages : 178
    Points : 94
    Points
    94
    Par défaut
    Il y avait 2 raisons pour que cela ne marche pas :

    1) Select distinct

    J'ai viré distinct, je ne savais pas que si on l'utilise on ne peut pas éditer les recordsets merci de me l'apprendre.

    2) J'ai oublier d'inclure dans la requête sql le champ DateV.

    voici le code corrigé:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
     
    sqlV = "select * from Visites where Pseudo = " & "'" & session("ps") & "'" & " and IDmembres = " & str
    si on omet rsv.edit il ne plante pas, par contre il plante si je le met (rsV.edit) ...

    PS: c'est du code ASP

  4. #4
    Expert confirmé Avatar de nico84
    Homme Profil pro
    Consultant/développeur ERP
    Inscrit en
    mai 2008
    Messages
    2 612
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 56
    Localisation : France

    Informations professionnelles :
    Activité : Consultant/développeur ERP
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : mai 2008
    Messages : 2 612
    Points : 4 160
    Points
    4 160
    Par défaut
    Citation Envoyé par surfeur2 Voir le message
    J'ai viré distinct, je ne savais pas que si on l'utilise on ne peut pas éditer les recordsets merci de me l'apprendre.
    En gros pour que le recordset soit modifiable il faut que chaque ligne pointe sur une et une seule ligne de la table "principale" sinon le truc ne saurait pas quelle ligne modifier donc ni distinct, ni group by, ni sous-requête complexe...

    Citation Envoyé par surfeur2 Voir le message
    si on omet rsv.edit il ne plante pas, par contre il plante si je le met (rsV.edit) ...
    Curieux, c'est peut-être implicite dans le ,3,2,1
    Utilisez Planet, gestion d'entreprise gratuite pour TPE / PME

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 2
    Dernier message: 03/03/2014, 19h13
  2. Réponses: 3
    Dernier message: 06/12/2010, 15h59
  3. Réponses: 15
    Dernier message: 02/06/2010, 15h08
  4. Erreur SQL lors de l'insertion d'une date
    Par jdvacheron dans le forum Langage SQL
    Réponses: 2
    Dernier message: 23/07/2007, 16h31
  5. message d'erreur lors de la création d'une base
    Par franculo_caoulene dans le forum MS SQL Server
    Réponses: 4
    Dernier message: 16/04/2004, 15h47

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