Discussion :

[jackvpt]

Bonjour à toutes et à tous,

Soient des composants UIB et un petit bout de code:

Code :

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

1
2
3
4
5
6
query.SQL.Clear;
query.SQL.Add('DELETE FROM MA_TABLE');
query.execsql;
transaction.Commit;
dataset.Active:=false;
dataset.Active:=true;

Ceci a pour effet de vider MA_TABLE sauf que le DBGrid qui affiche MA_TABLE me laisse le dernier enregistrement .
Quand je quitte et que je relance le programme, MA_TABLE apparaît parfaitement vide.

J'ai vérifié MA_TABLE et ce code suffit pour la vider mais l'affichage ne représente pas la réalité.

Comment faire ?

[Cl@udius]

Salut

As-tu fait un Close puis Open sur la DataSet lié au DBGrid, suite à l'exécution de cette requête ?

[edit]
Ah mince, je n'avais pas vu le Active à False puis True.
@+

[kroma23]

Bonjour
comme t'a dit Claudius, vous devez rajouter query1.close après le query1.sql.clear;
ton code sera comme ça

Code :

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

1
2
3
4
5
 
query1.close;
query1.sql.clear;
....
...

A++

[Cl@udius]

@kroma.
Ce n'est pas ça puisque que ce n'est pas le Query qui est relié au DBGrid (on ne peut pas d'ailleurs avec TUIBQuery).

[jackvpt]

Avec une pirouette comme:

Code :

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

1
2
3
4
5
6
7
var Nom:string;
Nom:=base.databasename;
dataset.Active:=false;
base.Connected:=false;
Base.DatabaseName:=nom;
Base.Connected:=true;
dataset.Active:=true;

ça fonctionne.

C'est pas très "propre" mais ça suffit...

[defluc]

C'est pas très "propre" mais ça suffit...

Pourquoi ne pas utiliser la procédure EmptyTable du composant TTable ?

[jackvpt]

Bonsoir,

Pourquoi ne pas utiliser la procédure EmptyTable du composant TTable ?

Parce-que je n'utilise pas de composant TTable mais des composants UIB (UIBDataBase, UIBTransaction, UIBDataSet et UIBQuery) et que tout passe par SQL...

[fab256]

Essai

Code :

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

query.SQL.Add('TRUNCATE TABLE MA_TABLE');

ou bien

Code :

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

query.SQL.Add('TRUNCATE MA_TABLE');

[jackvpt]

J'avais déjà essayé avec TRUNCATE mais ça me donne un message d'erreur, le composant UIBQuery ne semble pas connaître ce terme :

Dynamic SQL error
SQL error code= -104
Token unknown -line 1, column 1
TRUNCATE
Invalid token
Error Code: 249

[TryExceptEnd]

Bonjour à toutes et à tous,

Soient des composants UIB et un petit bout de code:

Code :

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

1
2
3
4
5
6
query.SQL.Clear;
query.SQL.Add('DELETE FROM MA_TABLE');
query.execsql;
transaction.Commit;
dataset.Active:=false;
dataset.Active:=true;

Ceci a pour effet de vider MA_TABLE sauf que le DBGrid qui affiche MA_TABLE me laisse le dernier enregistrement .
Quand je quitte et que je relance le programme, MA_TABLE apparaît parfaitement vide.

J'ai vérifié MA_TABLE et ce code suffit pour la vider mais l'affichage ne représente pas la réalité.

Comment faire ?

Le Dataset est relié a quelle composant transaction ?

[SergioMaster]

Je ne comprends pas cet histoire de dataset . Il est relié a quoi ce dataset ? à la query ? a une query différente ? dans ce cas là il suffirait peut être simplement de rafraichir (fermer&ouvrir) cette dernière

[jackvpt]

a) Le DataSet est relié au composant Transaction, lui même relié au composant DataBase. Le Query est relié au Transaction et au DataBase.

b) J'ai essayé

Code :

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

1
2
  query.Close(etmcommit);
  query.Open(true);

mais pas mieux .

Je suis persuadé que ça vient plutôt de l'affichage du DBGrid mais le fait de faire

Code :

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

1
2
DataBase.Active:=False;
DataBase.Active:=True

ça résout le problème.

J'arrête de chercher et je classe le sujet en RESOLU.

Merci de votre aide à tous .

[TryExceptEnd]

Code :

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

1
2
DataBase.Active:=False;
DataBase.Active:=True

C'est bien la preuve que c'est un problème de transaction, puisque en fermant le DataBase tu ferme les transactions liées.