DBEdit mise à jour de la base [Résolu]
jderf
- Messages postés
- 192
- Date d'inscription
- mercredi 29 décembre 2004
- Statut
- Membre
- Dernière intervention
- 2 octobre 2014
- Messages postés
- 2233
- Date d'inscription
- mardi 10 décembre 2002
- Statut
- Modérateur
- Dernière intervention
- 15 décembre 2014
A voir également:
- Dbedit delphi
- Delphi dbedit - Meilleures réponses
- Dbedit - Meilleures réponses
- Valeur de DBedit - Forum - Delphi / Pascal
- Comment faire pour que les DBEDIT et DBGRIDs soient en lecture seule ✓ - Forum - Delphi / Pascal
- DBEDIT - Forum - Delphi / Pascal
- Ecrire dans DBEdit - Forum - Delphi / Pascal
- Vider un dbedit - Forum - Delphi / Pascal
11 réponses
Meilleure réponse
- Messages postés
- 2233
- Date d'inscription
- mardi 10 décembre 2002
- Statut
- Modérateur
- Dernière intervention
- 15 décembre 2014
C' est évident!
Tant que tu ne fais pas "ClientDataSet2.Open;", le champ n' existe pas voyons!
Voilà le code correct:
Composants Cindy pour Delphi
Faites une donation.
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.
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
196 internautes nous ont dit merci ce mois-ci
- Messages postés
- 2233
- Date d'inscription
- mardi 10 décembre 2002
- Statut
- Modérateur
- Dernière intervention
- 15 décembre 2014
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.
ç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.
- Messages postés
- 192
- Date d'inscription
- mercredi 29 décembre 2004
- Statut
- Membre
- Dernière intervention
- 2 octobre 2014
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
Mais il trouve pas la clé "Unable to find record No key specified"
Jean
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
- Messages postés
- 2233
- Date d'inscription
- mardi 10 décembre 2002
- Statut
- Modérateur
- Dernière intervention
- 15 décembre 2014
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.
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.
- Messages postés
- 2233
- Date d'inscription
- mardi 10 décembre 2002
- Statut
- Modérateur
- Dernière intervention
- 15 décembre 2014
Non,
fais donc plutot comme ça après ouverture du ClientDataset:
ClientDataSet2.FindField('idVoiture').ProviderFlags := [pkInKey];
A+
Composants Cindy pour Delphi
Faites une donation.
fais donc plutot comme ça après ouverture du ClientDataset:
ClientDataSet2.FindField('idVoiture').ProviderFlags := [pkInKey];
A+
Composants Cindy pour Delphi
Faites une donation.
- Messages postés
- 192
- Date d'inscription
- mercredi 29 décembre 2004
- Statut
- Membre
- Dernière intervention
- 2 octobre 2014
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
Merci encore pour ton aide. J'ai pas trouver de tuto un peu complet pour expliquer comment faire des choses simple en apparence !
Jean
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
- Messages postés
- 2233
- Date d'inscription
- mardi 10 décembre 2002
- Statut
- Modérateur
- Dernière intervention
- 15 décembre 2014
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.
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.