1. Accueil
  2. Forum Codes-Sources
  3. Delphi / Pascal
Sujet Précédent Sujet Suivant

DBEdit mise à jour de la base

Résolu
Signaler
Messages postés
189
Date d'inscription
mercredi 29 décembre 2004
Statut
Membre
Dernière intervention
2 octobre 2014
 -
Messages postés
2106
Date d'inscription
mardi 10 décembre 2002
Statut
Modérateur
Dernière intervention
15 décembre 2014
 -
Bonjour,

Encore moi, après le DBcomboBox le DBedit !!

J'ai, à la conception, configuré la chaine TSqlconnexion, TSQLQuery, TDataSetProvider, TClientDataSet, TDataSource, TDBedit. La première valeur remonter par TSQlQuery est affiché dans le DBedit.

La requete est "select annee_fab from voiture"

A l'éxécution, dans l'évenement Onclick d'un bouton, j'ai ce code dans le ClientDataset :

if ClientDataset3.State in [dsEdit,dsInsert] then
ClientDataSet3.Post;
ClientDataSet3.ApplyUpdates(-1);

Si je modifie la valeur du DBedit puis je clique sur le bouton j'obtiens ce message d'erreur :
"Update affected more than 1 record"
Je ne comprend pas, pourtant le clientDataSet est sur first et il n'affiche qu'une valeur dans le DbEdit donc c'est cette valeur à mettre à jour ?

Merci pour votre aide.
Jean
A voir également:

11 réponses

Réponse 1 / 11
Messages postés
2106
Date d'inscription
mardi 10 décembre 2002
Statut
Modérateur
Dernière intervention
15 décembre 2014
 5
C' est évident!

Tant que tu ne fais pas "ClientDataSet2.Open;", le champ n' existe pas voyons!

Voilà le code correct: 

ClientDataSet2.Close;
  DataSetProvider2.UpdateMode := UpWhereKeyOnly;
  SQLQuery2.Close;
  SQLQuery2.SQL.Clear;
  SQLQuery2.SQL.Add('select id_voiture, annee_fab from avion');
  SQLQuery2.Open;



  ClientDataSet2.Open;
  ClientDataSet2.First;

  ClientDataSet2.FindField('id_voiture').ProviderFlags := [pfInKey];

  DBEdit1.DataField:='annee_fab';



Composants Cindy pour Delphi
Faites une donation.
Réponse 2 / 11
Messages postés
2106
Date d'inscription
mardi 10 décembre 2002
Statut
Modérateur
Dernière intervention
15 décembre 2014
 5
Salut Jean,

ça veux dire simplement qu' il lui est impossible de faire la mise à jour car il ne sait pas quel enregistrement mettre à jour étant donné que plusieurs enregistrements sont "candidats" à la mise à jour (côté SQL serveur) !

Il faut tout simplement éviter les doublons ou encore créer une clé unique dans la table.

PS: il te manque les connaissances necessaires et tu risques de buter sur ce genre de problèmes tous les jours si tu t' obstines à apprendre sur le tas. Un peu de lecture est plus que conseillé.

A+


Composants Cindy pour Delphi
Faites une donation.
Réponse 3 / 11
Messages postés
189
Date d'inscription
mercredi 29 décembre 2004
Statut
Membre
Dernière intervention
2 octobre 2014
 1
Bonjour Mauricio,

Pour moi le ClientDataSet avait un pointeur sur l'enregistrement en cours et donc savait quel champs à modifier. Mais effectivement comment peut-il connaître la clé primaire de la table, oups, désolé

J'ai donc chercher comment indiquer la clé primaire. Mais j'ai pas trouvé de champs keyfield ou un truc du genre ??
J'ai fais cela, mais sans grand succes 
SQLQuery2.SQL.Add('select id_voiture, annee_fab from voiture');
SQLQuery2.Open;
SQLQuery2.FieldByName('id_voiture').ProviderFlags := [pfInKey];

DataSetProvider2.UpdateMode := UpWhereKeyOnly;


Mais il trouve pas la clé "Unable to find record No key specified"

Jean
Réponse 4 / 11
Messages postés
2106
Date d'inscription
mardi 10 décembre 2002
Statut
Modérateur
Dernière intervention
15 décembre 2014
 5
Salut Jean,

comme tu y es presque et que je suis EXTREMEMENT sympa, double cliques sur le TClientDataset et sélectionne le champ clé "idVoiture".
Maintenant, cherche la propriété ProviderFlags du champ et ajoute l' élément pkInKey.

A+

PS: attention au champ clé qui doit avoir Required à false si c' est un champ AutoInc!




Composants Cindy pour Delphi
Faites une donation.
Réponse 5 / 11
Messages postés
189
Date d'inscription
mercredi 29 décembre 2004
Statut
Membre
Dernière intervention
2 octobre 2014
 1
Merci Mauricio,

Comme je fais cela par prog, j'ai rien dans le double clic, ce qui est normal.

J'ai donc fais ceci
with ClientDataSet2.FieldDefs.AddFieldDef do begin
DataType := ftInteger;
Attributes := [];
Name := 'id_voiture';
end;

Mais j'ai toujours le même message.

Jean
Réponse 6 / 11
Messages postés
2106
Date d'inscription
mardi 10 décembre 2002
Statut
Modérateur
Dernière intervention
15 décembre 2014
 5
Non,

fais donc plutot comme ça après ouverture du ClientDataset:
ClientDataSet2.FindField('idVoiture').ProviderFlags := [pkInKey];

A+


Composants Cindy pour Delphi
Faites une donation.
Réponse 7 / 11
Messages postés
189
Date d'inscription
mercredi 29 décembre 2004
Statut
Membre
Dernière intervention
2 octobre 2014
 1
et j'avais oublié

ClientDataSet2.FieldByName('id_avion').ProviderFlags := [pfInKey];
Du coup, j'ai un message: "ClientDataSet2:Field 'id_avion' not found"

Jean
Réponse 8 / 11
Messages postés
189
Date d'inscription
mercredi 29 décembre 2004
Statut
Membre
Dernière intervention
2 octobre 2014
 1
Arh ! Tu as répondu plus vite que moi.
J'ai testé avec FindField et j'ai un message "Access Violation at adress..."

Je te redonne tous mon code 

  ClientDataSet2.Close;

  SQLQuery2.Close;
  SQLQuery2.SQL.Clear;
  SQLQuery2.SQL.Add('select id_voiture, annee_fab from avion');
  SQLQuery2.Open;
  SQLQuery2.FieldByName('id_voiture').ProviderFlags := [pfInKey]; 

  DataSetProvider2.UpdateMode := UpWhereKeyOnly;

  with ClientDataSet2.FieldDefs.AddFieldDef do begin
    DataType := ftInteger;
    Attributes := [];
    Name := 'id_voiture';
  end;
  ClientDataSet2.FindField('id_voiture').ProviderFlags := [pfInKey];

 // ClientDataSet2.FieldByName('id_voiture').ProviderFlags := [pfInKey];

  ClientDataSet2.Open;
  ClientDataSet2.First;

  DBEdit1.DataField:='annee_fab';


Merci encore pour ton aide. J'ai pas trouver de tuto un peu complet pour expliquer comment faire des choses simple en apparence !

Jean
Réponse 9 / 11
Messages postés
189
Date d'inscription
mercredi 29 décembre 2004
Statut
Membre
Dernière intervention
2 octobre 2014
 1
Désolé, mais j'ai toujours le message "Unable to find record No key specified"
Réponse 10 / 11
Messages postés
189
Date d'inscription
mercredi 29 décembre 2004
Statut
Membre
Dernière intervention
2 octobre 2014
 1
Bon, j'ai trouvé mais je ne vois pas pourquoi il faut laisser DataSetProvider2.UpdateMode := UpWhereAll;

Merci, beaucoup Mauricio, je vais reprendre tranquillement tous ça pour assimilé un peu.

Jean
Réponse 11 / 11
Messages postés
2106
Date d'inscription
mardi 10 décembre 2002
Statut
Modérateur
Dernière intervention
15 décembre 2014
 5
Salut,

Je t' expliquerai bien pourquoi ça marche d' une façon et pas d' une autre mais j' ai largement répondu à la question posée et en plus, je vais pas écrire tout le manuel de la programation SQL découpé en petits messages: je te conseille de commencer à lire l' aide Delphi qui m' a beaucoup éclairé (regarde l' aide sur les propriétés providerFlags etc ...).

A+

PS: tu as des unités d' aide à la programation mySQL sur le site de mes compos ici:


Composants Cindy pour Delphi
Faites une donation.
Répondre Posez votre question