Discussion :

[colombe]

Bonjour a tous,
je travaille sous delphi 6, avec base de données dbaseIII, lors de la fermeture de mon application j le message d'erreur table occupée, bien que j bien fermer toute lmes tables,
je travaille aussi avec des requete, lors de la creation je fais

Code :

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

1
2
3
4
5
6
7
8
9
10
 
qmat.SQL.Clear;
Qmat.DatabaseName:='paie';
Qmat.Active:=false;
qmat.SQL.Add('select a.matricule, b.nom');
qmat.SQL.Add('from fig b, nouv_sal a');
qmat.SQL.Add('where a.matricule=b.mat');
Qmat.ExecSQL;
Qmat.Active:=true;
DMat.Dataset:=Qmat;

et lors de la fermeture de la fiche je fais

Code :

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

1
2
3
4
5
 
qmat.Active:=false;
qmat.SQL.Clear;
qmat.Close;
qmat.Free;

que faire pour remedier a se genre de message de table occupée
merci d'avance

[Cl@udius]

Bonjour Colombe

Juste quelques remarques:

Pour une requête sélection (SELECT ... FROM ...), on ouvre la requête avec un Open (ou un Active := True). A l'inverse pour fermer, un Close (ou Active := False).
Pour une requête action (UPDATE, INSERT ou DELETE), on utilise ExecSQL.

Le code devient:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
with Qmat do
begin
  Active := False;    // ou Close;
  SQL.Clear;
  DatabaseName := 'paie';
 
  SQL.Add('select a.matricule, b.nom');
  SQL.Add('from fig b, nouv_sal a');
  SQL.Add('where a.matricule=b.mat');
  Active := True;   // ou Open;
end;
DMat.Dataset := Qmat;

Code :

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

1
2
Qmat.Active := False;  // ou Close
Qmat.Free;

Maintenant ton problème de table occupée ne vient pas forcement de ça, mais un Open au lieu d'un ExecSQL sera déjà mieux.

[edit]
Utilise plutôt un INNER JOIN pour définir tes jointures.

@+ Claudius

[colombe]

Merci Cl@udius
Mon probleme de table occupée est résolu, l'erreur c'etais Excecsql
vous avez raison pour un simple select il faut travailler avec open et close ou active a true ou a faulse.
j enlevais execsql et c reglé
merci beaucoup pour votre aide.