Discussion :

[Oluha]

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

erreur à la création du handle du curseur

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
 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 ?

Merci !

[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+

[Oluha]

je l'ai dans l'appli autonome

[Oluha]

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

[Rayek]

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
 
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.

[Oluha]

Merci beaucoup, je vais essayer

[Oluha]

même chose, ca me donne le même message d'erreur même si ca fonctionne

[Rayek]

Tu peux nous dire la version de delphi que tu utilises ainsi que les composants db ?

[Oluha]

je suis sous delphi 5 et j'utilise BDE

[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 ?

[Oluha]

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