creation dynamique base de donnée

Question

bonsoir 
je suis actullement entraint de developper un appli  de gestion sous delphi 7 et interbase ma question est la suivante: je voudrais savoir si c'est possible de creer une nouvelle base a chaque excercice annuel, je sais le faire avec une bases paradox dynamiquement mais avec interbase sa coince une peut
cordialement

cs_cantador · Answer

Bonsoir,

mais non mais non..
c'est exactement la même chose :

script SQL


cantador

beckerich · Answer

bonsoir Cantador,

le lien du script n'est pas un lien 

Luc .

cs_cantador · Answer

oui, car ici, on ne fait pas le boulot des autres..
il faut que strong_prince
apprenne à chercher et poser des questions.

Il existe quelques modèles de script SQL sur le net
il suffit de les adapter à son problème.

on va le laisser mariner un peu et s'il revient, on lui donnera un court
et simple exemple.

cantador

Caribensila · Answer

Ah bon ?
On ne leur donne même plus de lien ?
( 'pas l'air de bon poil, Cantador... )


...

Et si on leur donnait une grande baffe avant qu'ils posent la question ?
Là, ils feraient gaffe !
Non mais...

cs_cantador · Answer

un lien vers un script c'est donner le script..
et puis selon la complexité de la base, on peut en créer 
plusieurs..

CS, ce n'est pas une plage où l'on jette une bouteille à la mer..

pour chercher 

MotClé : CreateDatabase

Mais lorsque l'ami strong_prince nous en dira un peu plus, on
fera un pas de plus aussi..

J'aime bien quand il y a un minimum d'échanges..
sinon c'est triste..

mais le coup de pied avant la question, c'est quand même une idée à retenir

qui pourrait se traduire par un petit message à l'écran ou Cari en tutu ou en train de manger une tarte aux concombres
histoire de déstabiliser l'animal et le rendre plus docile..

non ?
qu'en penses-tu ?

cantador

Caribensila · Answer

Moi, je trouve que Delphi c'est déjà pas mal pour qu'ils arrivent pas très stables...

Maintenant, si 'faut une tarte en plus, on leur donnera.

cs_cantador · Answer

hé, hé , oui, tu as raison..
pour devenir un bon programmeur delphi, il faut en baver et taper du code.
pas sûr qu'une tarte suffise..

mais pour le questionneur on aura tous compris :
c'est le devoir du week-end à rendre pour lundi qu'il nous refile.

cantador

cs_MAURICIO · Answer

"c'est le devoir du week-end à rendre pour lundi qu'il nous refile"
N&#180;oublions pas que Cantador a répondu à la question: oui, c' est possible. 
Après, on est pas lá pour faire le travail à leur place. 
S' il avait demandé la travail tout fait, il n' aurait même pas eu de réponse. 

Débutant ou pas, on est lá pour aprendre et pas faire du copier/coller. 
De plus, pour quelqu' un qui utilise déjà Interbase, il devrait avoir lu au moins un tuto et donc, grâce à une base de connaissances suffisante, il lui aurait été facile de trouver la réponse sur le net (chose difficile il y a 15 ans). 
L' information est si facile à trouver de nos jours que l' on se donne même plus la peine de chercher: on pose la question et on attend que quelqu' in y répond ... 

Maurício


Composants Cindy pour Delphi
Faites une donation.

korgis · Answer

on va le laisser mariner un peu et s'il revient, on lui donnera un court
et simple exemple

[b]Un jour strong_prince r'viendra...
La, la, la la, la la.../b

cs_cantador · Answer

bon allez c'est noël...

voilà un script SQL miniscule qui créé automatiquement une base firebird
Data.fdb avec un table TEST comprenant trois champs
(une clé primaire CODETEST, un champ NUMERO (numérique) et un autre NOM (string)

Le page size est à 8192 (c'est la mémoire nécessaire au stockage des pages)
le user et password sont les codes par défaut

le collate FR_FR est nécessaire pour gérer les tris dans les tables selon la norme française.


CREATE DATABASE 'c:	est\data.fdb' page_size 8192
user 'SYSDBA' password 'masterkey';

CREATE TABLE TEST (
  CODETEST INTEGER NOT NULL,
  NUMERO INTEGER,
  NOM CHAR(18) CHARACTER SET ISO8859_1 COLLATE FR_FR);

SET TERM ^ ;



il suffit de coller ce script dans un éditeur SQL et cliquer sur GO.

la suite au prochain numéro

cantador

Francky23012301 · Answer

Après Strong_Prince dans le role du Gaulois, Cari dans le role d'Obelix et le coup de tatanes dans ta gueule, Korgis dans le role d'Assurancetourix, il reste plus que le role du chien à pourvoir : Un volontaire  ?

cs_cantador · Answer

et Francky23012301 dans le role du barde !


cantador

cs_cantador · Answer

petit correctif :


SET TERM ^ ;

CREATE DATABASE 'c:	emp\data.fdb' page_size 8192
user 'SYSDBA' password 'masterkey';

CREATE TABLE TEST (
  CODETEST INTEGER NOT NULL,
  NUMERO INTEGER,
  NOM CHAR(18) CHARACTER SET ISO8859_1 COLLATE FR_FR);

SET TERM ;^


c'est bon pour le script SQL mais il reste encore à traiter
le codage sous delphi..


cantador

Francky23012301 · Answer

Assurancetourix c'est le barde

cs_cantador · Answer

tu mets Korgis dans le rôle de panoramix et 
tu gardes le barde


voilà une suite possible :

procedure TForm1.CreateDatabase(ADBFileName: TFilename);
var
  IBDataBase: TIBDatabase;
  IBTransaction: TIBTransaction;
  IBSQL: TIBSQL;
begin
  IBDataBase := TIBDatabase.Create(nil);
  IBTransaction := TIBTransaction.Create(nil);
  IBSQL := TIBSQL.Create(nil);

  try
    IBDataBase.SQLDialect := 3;
    IBDataBase.Params.Clear;
    IBDataBase.DatabaseName := ADBFileName;
    IBDataBase.Params.Add('USER "SYSDBA"');
    IBDataBase.Params.Add('PASSWORD "masterkey"');
    IBDataBase.Params.Add('PAGE_SIZE 8192');
    IBDataBase.CreateDatabase;
    IBSQL.Database := IBDataBase;
    IBSQL.Transaction := IBTransaction;
    IBSQL.Transaction.DefaultDatabase := IBDataBase;
    IBDataBase.Connected := true;

    IBSQL.Transaction.StartTransaction;  // début transaction

    try
// création table
      IBSQL.SQL.Add('CREATE TABLE TEST (CODETEST INTEGER DEFAULT 0 NOT NULL, NUMERO INTEGER, NOM CHAR(18) CHARACTER SET ISO8859_1 COLLATE FR_FR) ');
      IBSQL.ExecQuery;

//      IBTransaction.CommitRetaining; // validation partielle possible

      IBSQL.SQL.Clear;

// création de la clé primaire

      IBSQL.SQL.Add('ALTER TABLE TEST ADD PRIMARY KEY (CODETEST); ');
      IBSQL.ExecQuery;

//      IBTransaction.CommitRetaining;  // validation partielle possible

      IBSQL.ExecQuery;

      IBTransaction.Commit;              // fin transaction

      IBSQL.Close;

    except
      IBTransaction.Rollback;
      showmessage('erreur..');
      exit;
    end;

    ShowMessage('la création de la base est terminée !');

  finally
    IBDataBase.Connected := false;
    FreeAndNil(IBTransaction);
    FreeAndNil(IBDataBase);
    FreeAndNil(IBSQL);
  end;
end;


le traitement d'erreur n'est pas top..

on peut encore compléter par des créations de TRIGGER, GENERATORS et autres CONTRAINTES etc..

cantador

Caribensila · Answer

Te fatigue pas, Cantador.

strong_prince n'a pas résisté à l'interrogatoire.    

Qu'est-ce que je fais du corps, maintenant ?

cs_MAURICIO · Answer

Bem vu qu' on a le script de création d' une base de données, t' as qu' à le mettre dedans ... 



Composants Cindy pour Delphi
Faites une donation.

Caribensila · Answer

J'vais l'mettre dans l'except. 
C'est pas très passant par-là.

cs_cantador · Answer

une photo..
une photo..


cantador

cs_cantador · Answer

le musicien est fâché..


cantador

Creation dynamique base de donnée

20 réponses

Votre réponse