Discussion :

[insoo]

Bonjour, voici le problème auquel je suis confronté :

J'affiche le contenu d'une table de ma base MYSQL dans un DBGrid via un TQuery.

J'utilise des champs TEdit afin de modifier l'enregistrement en cours dans le TQuery. Les données sont bien modifiées mais la DBGrid n'est pas mise à jour.
Je fais donc pour cela un Query1->Refresh(); mais j'obtiens l'erreur suivante :
Table Does not support this operation because it's not uniquely indexed.

La table combien bien un champ indexé en "unique". Faut il que je définisse quelque chose de special au niveau du TQuery ou DBGrid pour qu'il soit pris en compte ?

J'ai également vu que je pouvais rafraichir le contenu de la DBGrid en faisant un Close et Open de la TQuery mais dans ce cas, je perd la ligne en cours, et je trouve que cela fait un peu bidouille de toute façon.

Merci d'avance pour l'aide que vous pourrez m'apporter

[Freeze]

Je suppose que pour ta dbgrid tu utilises un datasource... donc tu dois faire tes modifications de la facon suivante :

1°/ DataSource->Enabled=false;
2°/ Ta requete...
3°/ DataSource->Enabled=true;

[littledoudou]

bonjour,

pour récupérer ton enregistrement en cours, en suivant le raisonnement de Freeze, tu dois sauvegarder la position ("index") dans le jeu d'enregistrements:

Code :

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

1
2
3
4
5
6
7
8
9
int Index=Query->RecNo;
DataSource->Enabled=false;
Query->Active=false;
/*
ici tu rafraichis ta requête
*/
Query->Active=true;
Query->RecNo=Index;
DataSource->Enabled=true;

[Freeze]

moi j'utilise plutot un locate sur un champ unique :

1°/ DataSource->Enabled=false;
2°/ Mémorisation valeur champ unique
3°/ Ta requete ...
4°/ Locate sur la valeur du champ unique mémorisé...
5°/ DataSource->Enabled=true;

[insoo]

merci pour les réponses rapides.

En effet j'utilise bien un datasource mais le désactiver et le réactiver ne me rafraichis pas la DBGrid.

Je pense avoir compris la logique du Query1->recNo, la DBgrid se rafraichis bien mais le curseur retourne sur la 1ère ligne.

Voici le code de mon bouton "update" au cas ou j'aurais ecrit une grosse erreur :

AnsiString REQ;
QueryMod->SQL->Clear();
REQ="update company set ";
REQ=REQ+"name=:param14, ";
REQ=REQ+"street=:param15, ";
REQ=REQ+"zip=:param16, ";
REQ=REQ+"pobox=:param17, ";
REQ=REQ+"city=:param18, ";
REQ=REQ+"country=:param19, ";
REQ=REQ+"phone=:param20, ";
REQ=REQ+"fax=:param21, ";
REQ=REQ+"website=:param22 ";

REQ=REQ+" where id_company=:param23";
QueryMod->SQL->Add(REQ);
QueryMod->ParamByName("Param14")->AsString = Edit14->Text;
QueryMod->ParamByName("Param15")->AsString = Edit15->Text;
QueryMod->ParamByName("Param16")->AsString = Edit16->Text;
QueryMod->ParamByName("Param17")->AsString = Edit17->Text;
QueryMod->ParamByName("Param18")->AsString = Edit18->Text;
QueryMod->ParamByName("Param19")->AsString = ComboBox2->Text;
QueryMod->ParamByName("Param20")->AsString = Edit20->Text;
QueryMod->ParamByName("Param21")->AsString = Edit21->Text;
QueryMod->ParamByName("Param22")->AsString = Edit22->Text;

QueryMod->ParamByName("Param23")->AsString = Query1->FieldByName("id_company")->AsString;

int Index=Query1->RecNo;
DataSource1->Enabled=false;
Query1->Active=false;

QueryMod->ExecSQL();

Query1->Active=true;
Query1->RecNo=Index;
DataSource1->Enabled=true;

QueryMod ne me sert qu'a executer des requetes sur la page et n'intervient en rien dans l'affichage.


Je vais me pencher sur la fonction "locate" et voir si cela solve mon problème.

[littledoudou]

je pencherai plus pour ceci (mais je peux me tromper ):

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
 
AnsiString REQ; 
 
/************************************************/
int Index=QueryMod->RecNo; 
QueryMod->SQL->Close(); 
/************************************************/
 
QueryMod->SQL->Clear(); 
 
REQ="update company set "; 
REQ=REQ+"name=:param14, "; 
REQ=REQ+"street=:param15, "; 
REQ=REQ+"zip=:param16, "; 
REQ=REQ+"pobox=:param17, "; 
REQ=REQ+"city=:param18, "; 
REQ=REQ+"country=:param19, "; 
REQ=REQ+"phone=:param20, "; 
REQ=REQ+"fax=:param21, "; 
REQ=REQ+"website=:param22 "; 
 
REQ=REQ+" where id_company=:param23"; 
QueryMod->SQL->Add(REQ); 
QueryMod->ParamByName("Param14")->AsString = Edit14->Text; 
QueryMod->ParamByName("Param15")->AsString = Edit15->Text; 
QueryMod->ParamByName("Param16")->AsString = Edit16->Text; 
QueryMod->ParamByName("Param17")->AsString = Edit17->Text; 
QueryMod->ParamByName("Param18")->AsString = Edit18->Text; 
QueryMod->ParamByName("Param19")->AsString = ComboBox2->Text; 
QueryMod->ParamByName("Param20")->AsString = Edit20->Text; 
QueryMod->ParamByName("Param21")->AsString = Edit21->Text; 
QueryMod->ParamByName("Param22")->AsString = Edit22->Text; 
 
QueryMod->ParamByName("Param23")->AsString = Query1->FieldByName("id_company")->AsString; 
 
/************************************************/
DataSource1->Enabled=false; 
QueryMod->ExecSQL(); 
QueryMod->RecNo=Index; 
DataSource1->Enabled=true;
/************************************************/

[Freeze]

voila ma solution :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
 
AnsiString mem=Query1->FieldByName("id_company")->AsString;
 
DataSource1->Enabled=false;  
 
AnsiString REQ="update company set name=:param14, street=:param15,zip=:param16,pobox=:param17,city=:param18,country=:param19,phone=:param20,fax=:param21,website=:param22 where id_company=:param23"; 
 
QueryMod->Close();
QueryMod->SQL->Clear(); 
QueryMod->SQL->Add(REQ); 
 
QueryMod->ParamByName("Param14")->AsString = Edit14->Text; 
QueryMod->ParamByName("Param15")->AsString = Edit15->Text; 
QueryMod->ParamByName("Param16")->AsString = Edit16->Text; 
QueryMod->ParamByName("Param17")->AsString = Edit17->Text; 
QueryMod->ParamByName("Param18")->AsString = Edit18->Text; 
QueryMod->ParamByName("Param19")->AsString = ComboBox2->Text; 
QueryMod->ParamByName("Param20")->AsString = Edit20->Text; 
QueryMod->ParamByName("Param21")->AsString = Edit21->Text; 
QueryMod->ParamByName("Param22")->AsString = Edit22->Text; 
QueryMod->ParamByName("Param23")->AsString = Query1->FieldByName("id_company")->AsString; 
 
QueryMod->ExecSQL(); 
 
REQ="select * from company";
 
QueryMod->SQL->Clear(); 
QueryMod->SQL->Add(REQ); 
QueryMod->Open();
 
TLocateOptions Opts;
Variant locvalues=mem;
Opts.Clear();
Opts << loPartialKey;
QueryMod->Locate("id_company",locvalues,Opts);
 
DataSource1->Enabled=true;

en plus on utilise la même requète pour l'affichage que pour la modification...

[insoo]

C'est parfait j'ai reussi à m'en sortir grace à votre aide. Un grand Merci