Probleme Ibquery lors de la création d’une BDD interbase

**delrama** · 21/05/2014, 20h51

salut
Voila j'ai essayé de créer dynamiquement une BDD interbase ; 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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
procedure TFNvllBDD.JvTransparentButton21Click(Sender: TObject);
begin
if JvEdit1.Text <> '' then
   begin
      if RadioBtn1.Checked then        // Création BDD vierge
        begin
           with DMgle do
           begin
                IBDBgle.DatabaseName := GetCurrentDir+'\'+JvEdit1.Text+'.GDB';
                IBDBgle.SQLDialect := 3;
                IBDBgle.Params.Clear;
                IBDBgle.Params.Add('USER "SYSDBA"');
                IBDBgle.Params.Add('PASSWORD "masterkey"');
                IBDBgle.Params.Add('PAGE_SIZE 4096');
                IBDBgle.CreateDatabase;
                IBDBgle.Connected := true;
                IBTransGle.Active := true;
                IBQgle.SQL.Clear;
                IBQgle.SQL.Add('CREATE TABLE T_CLIENT(CODE_CLIENT  CHAR(5) NOT NULL,'
                                     +'TITRE        CHAR(8),'
                                     +'NOM_PRENOM   CHAR(64) NOT NULL,'
                                     +'TYPE_CLIENT  CHAR(15) NOT NULL,'
                                     +'ADRESSE      VARCHAR(64) NOT NULL,'
                                     +'COMMUNE      VARCHAR(32) NOT NULL,'
                                     +'WILAYA       VARCHAR(32) NOT NULL,'
                                     +'CODE_POSTAL  CHAR(5) NOT NULL,'
                                     +'TELEPHONE    CHAR(20) NOT NULL,'
                                     +'EMAIL        VARCHAR(100) NOT NULL,'
                                     +'ETAT         CHAR(7) NOT NULL);') ;
                 IBQgle.Close;
                 IBQgle.ExecSQL;
                 IBTransGle.Commit;
                             // jusqu'ici ça marche  le fichier *****.GDB créé 
                  IBQgle.SQL.Clear;
                  IBQgle.SQL.Add('select * from T_CLIENT');
                  IBQgle.ExecSQL;
                  IBQgle.Active := true;
             end; // end DMgle do
        end; // end RadioBtn1
 
      if  RadioBtn2.Checked then       // Création d'une BDD à partir d'une BDD existante
        begin
            // autre traitement 
        end;  // end RadioBtn2
   end  //end JvEdit <> ''
 else
 MessageDlg('Specifiez d''abord le Nom de la BDD !!!', mtError, [mbOk],0);
end;