Discussion :

[kiminfor]

Bonjour,
Je veux effectuer des modification dans la Table(Paradox7) mais comme j'utilise un Query (Pour effectuer le Tri

Code :

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

 select * from PAPERSG order by 1 ASC

) je ne sais pas comment procéder.

Code :

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

1
2
3
 
Form1.Table1.Edit;
Form1.Table1.FieldValues['FSR'] := 1;

Ce code ne fonctionne pas en présence de Query!
Je me documente sur le Query car je n'ai pas de bonne connaissance sur ce composant, mais S.V.P si vous avez une solution n'hésitez pas car c'est urgent!
Merci s.v.p

(Delphi5)

[kroma23]

salut
alors il te manque une 3eme ligne
voila le code

Code :

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

1
2
3
4
 
form1.table1.edit;
form1.table1.fieldvalues['ton_champ']:=1;
form1.table1.post;

remarque:
ce code marche a la presence du composant TTABLE

[kiminfor]

Merci kroma23 pour la réponse

salut
remarque:
ce code marche a la presence du composant TTABLE

Je suis d'accord avec toi mais dès que je rajoute le query cela ne fonctionne pas.
La présence de query est indispensable car je l'utilise pour le Tri.

[kroma23]

re
jai pas comprie bien ta question
vous voulez faire un tri a votre talble ou koi

[kiminfor]

Salut,
Je m'explique: Mon application effectue le Tri, la Recherche et la modification.
Le Tri marche Bien avec la code suivant:

Code :

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

1
2
 
select * from PAPERSG order by 1 ASC

La recherche aussi:

Code :

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

1
2
3
4
5
 
procedure TForm1.Edit1Change(Sender: TObject);
begin
Form1.Query1.Locate('NOM',Edit1.Text,[Lopartialkey]); //J'ai remplacé Table1 avec query1 et ça à marcher
end;

Mais la modification ne fonctionne pas

Code :

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

1
2
3
4
5
6
7
8
 
procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
form1.table1.edit;
form1.table1.fieldvalues['FSR']:=1;
form1.table1.post;
 
end;

Les composants utilisés: DataSource1, Query1 et Table1


Est ce qu'il y a un autre moyen pour effectuer la modification sans utiliser Table1 dans le code?

Si ce n'est pas clair je peux reexpliquer !
L'important est de trouver une solution, Merci de m'aider.

[Aka Guymelef]

Bonjour,

mmmh ça reste un peu confus ton histoire car on ne sait pas quelles sont les interactions entre tes composants, qui est liés à qui, etc...

Aussi je vais partir sur quelques généralités, peut-être que ça t'aidera :

Les TTables travaillent directement avec les tables de la base de données, ainsi un edit-post sur un TTable enregistre automatiquement la modification en base. Il est également possible de trier les enregistrement via IndexFieldNames (bien que sous Paradox il faut créer un index correspondant sur la table elle-même si je me rappelle bien).

Les TQuery exécute une requête et récupère un jeu d'enregistrement déconnecté de la base de donnée. On peut les trier via IndexFieldNames mais faire un edit-post sur un TQuery ne fait la modification que sur le TQuery en lui-même, pas en base de donnée. Pour ce faire il faut exécuter une requête d'update pour que la modification soit bien effective en base de donnée.

Évidemment ce que je viens de dire est également vrai pour la suppression et l'insertion.

[Franck SORIANO]

Salut,
Je m'explique: Mon application effectue le Tri, la Recherche et la modification.
Le Tri marche Bien avec la code suivant:

Code :

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

1
2
 
select * from PAPERSG order by 1 ASC

La recherche aussi:

Code :

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

1
2
3
4
5
 
procedure TForm1.Edit1Change(Sender: TObject);
begin
Form1.Query1.Locate('NOM',Edit1.Text,[Lopartialkey]); //J'ai remplacé Table1 avec query1 et ça à marcher
end;

Mais la modification ne fonctionne pas

Code :

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

1
2
3
4
5
6
7
8
 
procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
form1.table1.edit;
form1.table1.fieldvalues['FSR']:=1;
form1.table1.post;
 
end;

Les composants utilisés: DataSource1, Query1 et Table1


Est ce qu'il y a un autre moyen pour effectuer la modification sans utiliser Table1 dans le code?

Si ce n'est pas clair je peux reexpliquer !
L'important est de trouver une solution, Merci de m'aider.

Qu'est-ce que tu veux dire par la "modification de fonctionne pas" ?
Est-ce que tu as un message d'erreur ?

Je dis ça parce que je sens venir le coup, où la modification serait bien faite dans la table, mais que tu ne rafraichirais pas la query ensuite. Comme l'a dit Aka Guymelef, le TQuery retourne un jeu de données déconnecté. Les modifications faites dans les tables ne sont pas visibles tant que la query n'est pas rééxécutée !