Tester l'existence d'une table sous Access

Version imprimable

:salut:

J'aimerai tester l'existence d'une table dans une base Access dans mon programme et la créer si elle n'existe pas.
J'ai fais le code suivant qui fonctionne mais me renvoie quand même le message d'erreur quand la table n'existe pas

Citation:

erreur à la création du handle du curseur
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 tableexiste := true; try QuerySel.close; QuerySel.sql.Clear; QuerySel.sql.Add('select * from '+NomTable+'sauv'); QuerySel.open; except Tableexiste := false; end; if (not tableexiste) then begin QuerySel.close; QuerySel.sql.Clear; QuerySel.sql.Add('select * into '+NomTable+'sauv from '+Nomtable); QuerySel.open; end;
D'où vient le problème ? :roll:

Merci !

26/08/2005, 13h04
Andry

Salut;

Le message d'erreur, est ce que tu l'as si tu lance l'appli via l'IDE de Delphi ou bien avec l'appli autonome ?

A+
26/08/2005, 13h50
Oluha

je l'ai dans l'appli autonome
26/08/2005, 14h48
Oluha

pas d'idée ou une autre façon de faire à me proposer ? :roll:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Function IsTableExist (Table : TTable;sTableName : String) : Boolean;
begin
  With Table do
  begin
    Active := False;
    TableName := sTableName;
    Try
      Active := True;
      Result := True; 
    Except on Exception do
      Result := False;
    End;
  end;
end;

Essaie comme ca, tu as juste a changer le TTable dans le type de composant table que tu utilises.

26/08/2005, 15h35
Oluha

Merci beaucoup, je vais essayer :)
26/08/2005, 15h51
Oluha

même chose, ca me donne le même message d'erreur même si ca fonctionne 8O
26/08/2005, 16h25
Rayek

Tu peux nous dire la version de delphi que tu utilises ainsi que les composants db ?
26/08/2005, 16h36
Oluha

je suis sous delphi 5 et j'utilise BDE
26/08/2005, 17h02
Rayek

Hum le bde ... ca fait plus de 2ans que je l'utilise plus et je me souviens plus vraiement des problèmes que l'on peut rencontré avec ce dernier.

Je n'utilises plus que les composants ADO maintenant (et dbexpress de temps en temps).

Le bout de code que je t'ai passé fonctionne sans problème avec ADO, je ne comprend pas comment le composant peut passé outre le try except a ce niveau. En pas a pas l'erreur n'est elle pas plus haut ?
29/08/2005, 09h42
Oluha

autant pour moi, l'erreur venait de la requête de création :lol:
Merci pour ton aide :wink: