DBEdit mise à jour de la baseRésolu

Question

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

cs_MAURICIO · Accepted Answer

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.

cs_MAURICIO · Answer

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.

jderf · Answer

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

cs_MAURICIO · Answer

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.

jderf · Answer

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

cs_MAURICIO · Answer

Non, 

fais donc plutot comme ça après ouverture du ClientDataset: 
ClientDataSet2.FindField('idVoiture').ProviderFlags := [pkInKey];

A+


Composants Cindy pour Delphi
Faites une donation.

jderf · Answer

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

jderf · Answer

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

jderf · Answer

Désolé, mais j'ai toujours le message "Unable to find record No key specified"

jderf · Answer

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

cs_MAURICIO · Answer

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.

DBEdit mise à jour de la base

11 réponses

Votre réponse

Discussions similaires