Discussion :

[Peter K.]

1°)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Procedure ModifClick(Sender: TObject);
   Begin
       DataModule1.ADOTable_Grades.Open;
       DataModule1.ADOTable_Grades.Edit;
       DataModule1.ADOTable_Grades.FieldValues['Code_Grade']:= VarCode.Text;
       DataModule1.ADOTable_Grades.FieldValues['Grade']:= VarGrade.Text;
       DataModule1.ADOTable_Grades.Close;  DataModule1.ADOTable_Grades.Post;
End;

Pourquoi cette procedure insère t-elle plutôt de nouvelle données dans ma table en conservant l’origine inchangées ?

2°)
MESSAGE
Lorsque j’index un champs pour utiliser la méthode de recherche Seek, je reçois le message :

« Fournisseur actuel ne prend ne prend pas en charge l’interface nécessaire pour la fonctionnalité d’index. » lorque j'applique:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
DataModule1.ADOTable_Grades.IndexName:=’Code_Grade’;
BOOL:= datamodule;adotabe_grades.seek(‘vargrade.Text’, SoFirstEQ);

Je travaille sous WinXP avec Delphi 6 et Mysql

Merci de me donner un coup de main.

[Rayek]

Ne connaissant pas ton application, je vais faire des suppositions, s'il y a des erreurs dans le raisonnement , dit le moi.

Pour la première question :

Tu positionnes le curseur de la table sur un enregistrement puis tu cliques sur un bouton pour faire les modifications de cet enregistrement.
Le problème, c'est que tu fais un Open (qui normalement réouvre la table et repositionne sur le premier enregistrement) puis tu fais ton Edit qui va modifer le nouvel enregistrement en cours et pas celui que tu avais sélectionné.
Enfin , ca devrait être le fonctionnement, ce que je ne comprend pas c'est que ca t'ajoute un enregistrement.

Pour la 2em question :

Utilises Locate à la place de seek