Discussion :

[MaTHieU_]

Bonjour,

J'utilise les composants TIBSQL, TIBTransaction et TIBQuery et je souhaiterai avoir votre avis sur l'utilisation que j'en fais :

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
28
29
30
31
32
33
 
     try
          if not IBDatabase1.Connected then IBDatabase1.Connected := true;
          IBQuery1.SQL.Clear;
          IBQuery1.SQL.Add('SELECT * FROM xxx');
          IBQuery1.Open;
          IBQuery1.First;
          while not IBQuery1.Eof do
          begin
               if IdFTP1.Size(Path) <> -1 then
               begin
                    try
                         IBSQL1.SQL.Clear;
                         IBSQL1.SQL.Add('INSERT INTO xxx');
                         IBSQL1.ExecQuery;
                    except
                         on E : Exception do
                         begin
                              Log(E.Message);
                              Log('SQL : ' + IBSQL1.SQL.Text);
                         end;
                    end;
               end;
               IBQuery1.Next;
          end;
          IBQuery1.Close;
     except
          on E : Exception do
          begin
               Log(E.Message);
               MessageDlg(E.Message, mtError, [mbOK], 0);
          end;
     end;

Le code a été volontairement simplifié afin de ne laisser que la partie qui nous interesse : base de données.

Pour IBDatabase1 :

DefaultTransaction = IBTransaction1
LoginPrompt = False
SQLDialect = 1

Pour IBQuery1 :

Database = IBDatabase1
Transaction = IBTransaction1

Pour IBTransaction1 :

DefaultDatabase = IBDatabase1

Pour IBSQL1 :

Database = IBDatabase1
Transaction = IBTransaction1

Merci,
MaTHieU_

[evarisnea]

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
28
29
30
31
32
33
34
35
36
37
     try
          if not IBDatabase1.Connected then IBDatabase1.Connected := true;
          IBQuery1.SQL.Clear;
          IBQuery1.SQL.Add('SELECT * FROM xxx');
          IBQuery1.Open;
          IBQuery1.First;//est ce vraiment néccessaire ? en général il se trouve sur le premier enregistrement
          while not IBQuery1.Eof do
          begin
               if IdFTP1.Size(Path) <> -1 then
               begin
                    try 
                         //puisque tu es dans une boucle, il faut impérativement fermer l'IBSQL avant de modifier sa propriété SQL
                         IBSQL1.Close;
                         IBSQL1.SQL.Clear;
                         IBSQL1.SQL.Add('INSERT INTO xxx');
                         IBSQL1.ExecQuery;
                    except
                         on E : Exception do
                         begin
                              Log(E.Message);
                              Log('SQL : ' + IBSQL1.SQL.Text);
                         end;
                    end;
               end;
               IBQuery1.Next;
          end;
          IBQuery1.Close;
          //bon il n'y a pas de mal à fermer aussi le composant IBSQL...
          IBSQL1.Close;
     except
          on E : Exception do
          begin
               Log(E.Message);
               MessageDlg(E.Message, mtError, [mbOK], 0);
          end;
     end;

Pour ce qui est du SQLDialect, en général l'utilisation du Dialect3 est préconisée, car c'est celle utilisée par les nouveau moteurs IB/Fb.

[MaTHieU_]

Bonjour,

Merci pour ces précisions, je vais apporter les corrections préconisées

MTHieU_