Discussion :

[cantador]

Bonjour à tous,

j'obtiens un message d'erreur sur la suppression lancée à partir d'un code sous D7, d'une table Firebird,
lorsque celle-ci n'existe pas..
Ce évènement s'est produit lors du passage de la version 2.5.6.27020_0_Win32.exe à la version 2.5.7.27050_0_Win32.exe.

voici le code :

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
18
19
20
21
22
23
24
25
 
procedure TFMain.EraseArtefact(mode: boolean);
var
  StrSQL: string;
  i: integer;
begin
  try
{ suppression des tables temporaires créées }
    for i := 100 downto 1 do 
      with QImport.SQL do
      begin
        if QImport.Active then
          QImport.Close;
        Clear;
          StrSQL := 'DROP TABLE ' + UpperCase(MTable.Lines.Strings[i]) + ';';
        Add(StrSQL);
        try
         QImport.ExecSQL;
        except
        end;
      end;
  finally
    MTable.Clear;
  end;
end;

si la table n'existe pas, le message d'erreur est le suivant:
Invalid Command
unknown ISC Error

j'ai contourné la difficulté en introduisant une fonction testant la présence de la table
mais je ne comprends pas le phénomène que je n'avais pas avec la version 2.6.

avez-vous rencontrez ce souci ?
merci

[SergioMaster]

Bonjour,

QImport : c'est quel type de composant ? TQuery ou un quelconque composant permettant un script SQL
s'il s'agit d'un TQuery quel est la taille du SQL final ? il y a peut être débordement

Perso je n'aurais pas fait ce cette manière mais créé une procédure Firebird

[anapurna]

Bonjour à tous,

...
voici le code :

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
18
19
20
21
22
23
24
25
26
27
 
procedure TFMain.EraseArtefact(mode: boolean);
var
  StrSQL: string;
  i: integer;
begin
  try
{ suppression des tables temporaires créées }
    for i := 100 downto 1 do 
    begin
      with QImport.SQL do
      begin
        if QImport.Active then
          QImport.Close;
        Clear;
          StrSQL := 'DROP TABLE ' + UpperCase(MTable.Lines.Strings[i]) + ';';
        Add(StrSQL);
        try
         QImport.ExecSQL;
        except
        end;
      end;
   end;
  finally
    MTable.Clear;
  end;
end;

...
merci

pour palier a la non existence d'une table utilise la fonction exists

Code :

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

1
2
3
4
  st :=' if (exists (select 1 from rdb$relations where rdb$relation_name = "%0:s") ) then'
       +' execute statement drop table %0:s '
       +' end ';
  ExecSQL(Format(st,[nom]));

[cantador]

@anapurna :
merci
comme je l'indique, j'ai fait cette fonction et tout fonctionne bien
mais l'objectif est de comprendre pourquoi cette erreur apparait.

@sergiomaster :
merci
il s'agit d'un TiboQuery
oui, effectivement j'aurai pu créer une procédure stockée mais vu la simplicité du code..
toutes les tables supprimées sont nommées (TABLE1, TABLE2, TABLE3 etc..)
ce sont des tables qui peuvent comporter une quarantaine de champs et pas mal de données
mais l'erreur se produit aussi sur des toutes petites..
??