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

Version imprimable

2 pièce(s) jointe(s)

salut
Voila j'ai essayé de créer dynamiquement une BDD interbase ; voici le code :

Code:

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;

j'ai l'erreur suivantePièce jointe 146565
erreur après l’exécution Pièce jointe 146566
est ce que faut il utiliser un IBScript ?
merci

22/05/2014, 17h42
Ph. B.

Bonjour,

Citation:

Envoyé par delrama

Voila j'ai essayé de créer dynamiquement une BDD interbase

:fessee::faq:
Comment créer dynamiquement une base Interbase ?

merci pour ton orientation
en fait c pas une création dynamique des composants mais du fichier NomBDD.GDB j'ai déposé les composants IB sur un datamodule

pour afficher ma base sur un DBgrid (avec select) j'ai resolu le probleme :
je ferme la base
Code:

1 2 3 4 5 6 7 with IBDatabase1 do begin Params.Clear; Params.Add('user=SYSDBA'); Params.Add('password=masterkey'); Params.Add('sql_dialect=3'); LoginPrompt := False;
j'ouvre la base

Lorsque je veux me connecter à ma base via un ibdatabase avec connected à true et LoginPrompt à false,
et d'ignorer la boite de dialoque ID+PASSEWORD
j'ai le message d'erreur suivant :
(your user name and password are not defined ask your database administrator ti set up an interbase)

Merci d'avance

22/05/2014, 19h42
Ph. B.
Les paramètres sont saisis différemment dans vos 2 exemples de code... :?. Vérifiez quelle est la syntaxe à employer !

Pour toute requête renvoyant un ensemble de données, il faut utiliser Open; ou Active := True;
Pour toute autre requête, il faut utiliser ExecSQL;
Code:

1 2 3 4 IBQgle.SQL.Clear; IBQgle.SQL.Add('select * from T_CLIENT'); //IBQgle.ExecSQL; // strictement inutile ! IBQgle.Active := true;

bonjour:
désolé pour les retards de messages (on a pas de connexion à domicile)
bref voici le code complet : (résolu)

Code:

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
49
50
51
52
53
54
55
56
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.Close;
                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.ExecSQL;
                 IBTransGle.Commit;
 
      IBDBgle.Connected:=false;
      IBDBgle.Params.Add('user_name=SYSDBA');
      IBDBgle.Params.Add('password=masterkey');
      IBDBgle.LoginPrompt := false;
       IBQgle.Close;
       IBQgle.SQL.Clear;
       IBQgle.SQL.Add('select * from T_CLIENT');
       IBDBgle.Connected:=true;
       IBTransGle.Active:=true;
       IBQgle.Open;
             end; // end DMgle do
        end; // end RadioBtn1
 
      if  RadioBtn2.Checked then       // Création d'une BDD à partir d'une BDD existante
        begin
 
        end;  // end RadioBtn2
   end  //end JvEdit <> ''
 else
 begin
      MessageDlg('Specifiez d''abord le Nom de la BDD !!!', mtError, [mbOk],0);
 end; // end else
end;

je constate qu'il y a une différence entre :

Code:

1
2
IBDBgle.Params.Add('USER "SYSDBA"');
                IBDBgle.Params.Add('PASSWORD "masterkey"');

Code:

1
2
IBDBgle.Params.Add('user_name=SYSDBA');
      IBDBgle.Params.Add('password=masterkey');

salut à +