Discussion :

[delphino7]

bonjour

j'ai une table créée avec paradox quand je veux vider la table je fais ça :

Code :

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

1
2
if not table1.isempty then
table1.emptytable;

il m'affiche le message suivant :

table is busy

est-ce que quelqu'un sait comment vider une table ?


merci

[Cl@udius]

Salut

Je ne manipule plus les tables dBase/Paradox depuis longtemps, mais 2 conditions me reviennent à l'esprit pour utiliser EmpyTable:

1. la table doit être fermée
2. et en accès exclusif

Ces 2 conditions sont-elles respectées ?

PS: As-tu fait une recherche sur le forum? Le sujet a déjà été abordé il me semble.

@+ Claudius

[delphino7]

tu veux dire :

Code :

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

1
2
table1.active := false
table1.exclusive := True

c sa ?


merci

[Cl@udius]

c sa ?

C'est ça !

[delphino7]

ok je vai lessayer

merci

[delphino7]

voila le program :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm3.Button7Click(Sender: TObject);
begin
table1.active := False;
 Table1.Exclusive := True;
if not table1.IsEmpty then
 begin
 table1.EmptyTable ;
 end
 else
 begin
 table1.Active := True;
 Table1.Exclusive := False;
 end;
end;

maintenant il maffiche le message derreur suivant :

'table is busy '

en plus il ne vide rien

merci

[Cl@udius]

Re,

Il faut accéder à la propriété IsEmpty alors que la table est ouverte.
Essaye comme ceci:

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
procedure TForm3.ViderTableClick(Sender: TObject);
begin
  with Table1 do
  begin
    if IsEmpty then Exit;
    begin
      Active := False;
      Exclusive := True;
      try
        EmptyTable;
      finally
        Exclusive := False;
        Active := True;
      end;
    end;
  end;
end;

@+

[Nono40]

Il ne faut pas que la table soit ouverte ailleurs dans un autre TTable, dans Delphi, etc...

[delphino7]

toujours le meme message avec ce program

table1 is busy

[Cl@udius]

Et bien comme le suggère Nono40, ta table est très certainement utilisée ailleurs par un autre composant.

@+

[delphino7]

non ele nest pas utiliser

merci

[Cl@udius]

Si si !

table1 is busy

Ce message est explicite: la table est utilisée.

Vérifie bien que celle-ci n'est pas ouverte ailleurs:

• dans ton programme via un autre TTable/TQuery
• dans un autre programme: Module Base de données par exemple
• dans l'EDI avec un composant actif
• etc...

@+

[delphino7]

et ben non parce que jutilise une seul fiche avec une seul table un seul dbgrid
ya pas dautres fiches?


merci

[Franck SORIANO]

Regarde si tu n'as pas des fichiers .LCK et .NET qui trainent dans le dossier de tes données. Si c'est le cas, supprime les.

Paradox a peut-être conservé des verrous sur une table qui était ouverte et qui n'a pas été fermée correctement (Un petit Ctrl+F2 en debug.... et c'est foutu, le BDE est en rade...).

[Cl@udius]

Regarde si tu n'as pas des fichiers .LCK et .NET qui trainent dans le dossier de tes données.

Bien vu Frank. là est peut-être (surement) la réponse.
Je dois t'avouer que je n'y avais pas pensé. D'un autre côté le BDE je l'avais aussi oublié.

[Nono40]

D'un autre côté le BDE je l'avais aussi oublié.

Pas BDE, mais paradox

[delphino7]

non c t un simple repertoire avec une seul table une fiche ya pas de .net,et .lck il selement c fichier :

Unit1.pas;Unit1.dfm;Unit1.dcu;Project1.res;tablejour.db;Project1.dpr;Project1.exe;Project1.cfg;Project1.dof c tout


merci

[Nono40]

Si tu fermes Delphi (et le module base de données si tu l'as ouvert) et ensuite tu lances ton appli seule, est-ce que tu as le même problème ?

[delphino7]

oui jai le meme probleme

merci

[blue_bird]

Lance le module base de données et fait une copie de ta base sous un autre nom (Delphi fermé bien sur) ensuite relance Delphi et change les propriétés de ton objet TTable avec le bouveau nom et teste si ça marche