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

Bases de données Delphi Discussion :

[ADO] Problème de mise à jour d'un record


Sujet :

Bases de données Delphi

  1. #1
    Membre régulier
    Profil pro
    Inscrit en
    Mai 2003
    Messages
    186
    Détails du profil
    Informations personnelles :
    Âge : 47
    Localisation : Belgique

    Informations forums :
    Inscription : Mai 2003
    Messages : 186
    Points : 84
    Points
    84
    Par défaut [ADO] Problème de mise à jour d'un record
    Bonjour à tous,

    J'ai une erreur assez bizarre. J'ai un dbgrid avec une liste de fournisseur. Dans l'événement OnCellClick j'ai mis :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    edit1.Text := monADODataSet.FieldByName('name').AsString
    Jusque là pas de problème...
    Maintenant dans mon edit1 dans l'événement OnExit :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    with monADODataSet do
    begin
      Edit;
      FieldByName('Fournisseur').AsString := edtName.Text;
      Post;
    end;
    Je n'ai aucun soucis si je change la valeur dans mon edit, par contre si je ne change rien et que je sors j'ai l'erreur suivante :
    Le projet a déclenché la classe d'exception EOleException avec le message 'La ligne n'a pas pu être trouvée pour la mise à jour. Certaines valeurs ont peut-être changé depuis leur dernière lecture'.

    Pour info je suis avec Delphi 2007 et je me connecte à une base de données MySQL via ADO

    Merci

  2. #2
    Membre régulier
    Inscrit en
    Novembre 2006
    Messages
    107
    Détails du profil
    Informations forums :
    Inscription : Novembre 2006
    Messages : 107
    Points : 115
    Points
    115
    Par défaut
    Essayé plutot sa

    if edtName.Text<>'' then
    Begin
    with monADODataSet do
    begin
    Edit;
    FieldByName('Fournisseur').AsString := edtName.Text;
    Post;
    end;
    end
    Else
    Abort;

    Bonnes continuations

  3. #3
    Membre régulier
    Profil pro
    Inscrit en
    Mai 2003
    Messages
    186
    Détails du profil
    Informations personnelles :
    Âge : 47
    Localisation : Belgique

    Informations forums :
    Inscription : Mai 2003
    Messages : 186
    Points : 84
    Points
    84
    Par défaut
    Bonjour ProgD et merci de ta réponse

    J'ai essayé ta solution mais toujours le même problème.
    En fait j'ai qqch dans mon edit1, si je ne le modifie pas et que je fais un post ça plante, par contre si je fais la moindre modif ça fonctionne.
    Même si je mets un espace puis que je le supprime ça plante, donc il n'aime pas que je remplace la valeur par une valeur identique... Quid ???

  4. #4
    Expert éminent sénior
    Avatar de Cl@udius
    Homme Profil pro
    Développeur Web
    Inscrit en
    Février 2006
    Messages
    4 878
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 61
    Localisation : France, Haute Garonne (Midi Pyrénées)

    Informations professionnelles :
    Activité : Développeur Web
    Secteur : High Tech - Matériel informatique

    Informations forums :
    Inscription : Février 2006
    Messages : 4 878
    Points : 10 008
    Points
    10 008
    Par défaut
    Salut

    Une question comme ca ! Pourquoi tu ne travailles pas avec DBEdit ?

    Il me semble que tu aurais moins de soucis. Surtout que tu cherches à reproduire le comportement un DBEdit.

    @+ Claudius

  5. #5
    Membre régulier
    Profil pro
    Inscrit en
    Mai 2003
    Messages
    186
    Détails du profil
    Informations personnelles :
    Âge : 47
    Localisation : Belgique

    Informations forums :
    Inscription : Mai 2003
    Messages : 186
    Points : 84
    Points
    84
    Par défaut
    je m'attendais à cette question

    Et c'est vrai que je pourrais le faire mais je me pose quand même la question de savoir pourquoi ça ne fonctionne pas...

  6. #6
    Expert éminent sénior
    Avatar de Cl@udius
    Homme Profil pro
    Développeur Web
    Inscrit en
    Février 2006
    Messages
    4 878
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 61
    Localisation : France, Haute Garonne (Midi Pyrénées)

    Informations professionnelles :
    Activité : Développeur Web
    Secteur : High Tech - Matériel informatique

    Informations forums :
    Inscription : Février 2006
    Messages : 4 878
    Points : 10 008
    Points
    10 008
    Par défaut
    Re,

    Citation Envoyé par yamino
    Dans l'événement OnCellClick j'ai mis :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    edit1.Text := monADODataSet.FieldByName('name').AsString
    Personnellement je ne mettrais pas à jour le TEdit sur le OnCellClick du DBGrid, mais sur l'AfterScroll de l'ADODataSet.

    Supposition car je n'ai pas vérifié, je ne suis pas certain que ton ADO soit déjà sur le bon enregistrement au moment du CellClick.

    A vérifier !

    @+ Claudius

  7. #7
    Membre régulier
    Profil pro
    Inscrit en
    Mai 2003
    Messages
    186
    Détails du profil
    Informations personnelles :
    Âge : 47
    Localisation : Belgique

    Informations forums :
    Inscription : Mai 2003
    Messages : 186
    Points : 84
    Points
    84
    Par défaut
    Ca marche pas

    Même avec un dbEdit ça ne fonctionne pas... le pire c'est que je suis toujours sur le bon enregistrement...

  8. #8
    Membre régulier
    Profil pro
    Inscrit en
    Mai 2003
    Messages
    186
    Détails du profil
    Informations personnelles :
    Âge : 47
    Localisation : Belgique

    Informations forums :
    Inscription : Mai 2003
    Messages : 186
    Points : 84
    Points
    84
    Par défaut
    Bon... j'ai changé le paramètre de connection

    de ceci :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
        ConnectionString :=
          'Provider=MSDASQL.1;' +
          'Persist Security Info=False;' +
          'User ID=User;' +
          'Password=Pass;' +
          'Data Source=ODBCCmaDB';
    je suis passé à ceci :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    ConnectionString :=
          'Driver={MySQL ODBC 3.51 Driver};' +
          'server=localhost;' +
          'Database=maDB;' +
          'User=User;' +
          'Password=Pass;' +
          'Option=3;';
    et ça fonctionne...
    Si qqun sait pourquoi ça m'intéresse

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

Discussions similaires

  1. [AC-2003] Problème de mise jour à des données avec ADO
    Par @omzo dans le forum VBA Access
    Réponses: 2
    Dernier message: 24/06/2010, 14h25
  2. Réponses: 3
    Dernier message: 05/01/2009, 17h12
  3. [2000 Server] Problème de mise à jour windowsupdate !!
    Par rohstev dans le forum Autres Logiciels
    Réponses: 8
    Dernier message: 24/08/2005, 16h03
  4. Problème de mise à jour de base de données
    Par poirier dans le forum ASP
    Réponses: 2
    Dernier message: 26/05/2004, 12h38
  5. problème de mise à jour de BD
    Par tidiane dans le forum Bases de données
    Réponses: 5
    Dernier message: 04/03/2004, 16h32

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