débutant firebird delphi

Version imprimable

28/09/2008, 09h24
looping

débutant firebird delphi

bonjour,

je débute en firebird que j'utilise avec delphi
voila ma question:

j'ai crée une base avec IBexpert avec des champs qui s'initialisent à une valeur par défaut.
quand je crée un nouveau enregistrement dans IBexpert ca fonctionne, les champs sont bien initialisés à la valeur par défaut.

par contre dans delphi:

que j'utilise la base avec le composant IBtable ou le couple IBquery/IBsqlupdate ca ne fonctionne pas: les champs qui ont une valeur par défaut ne sont pas initialisé correctement dans mon prog ?

merci
28/09/2008, 11h02
skywaukers

bonjour,

dans ton programme cela ne m'étonne pas, les valeurs par défaut ne doivent être renseignées par Firebird au moment de l'insert dans le cas où le champ a la valeur nul.

Si tu veux connaitre cette valeur, tu peux interroger la table système RDB$RELATION_FIELDS :

Code:

select RDB$DEFAULT_VALUE, RDB$DEFAULT_SOURCE from rdb$relation_fields where rdb$field_name = 'VALEUR'

ça te permettra de les afficher dans les champs de ton formulaire.

@++
Dany
28/09/2008, 18h31
JP.NUAGE

Citation:

Envoyé par Skywaulker
les valeurs par défaut ne doivent être renseignées par Firebird

Ah bon ?

Euh, j'ai pas tout saisi : j'utilise Firebird, j'ai des champs avec des valeurs par défaut et n'ai pas de pb. Looping, peux-tu mettre un exemple de code que tu utilises ? J'aimerais comparer avec ce que je fais. Merci d'avance
28/09/2008, 20h28
skywaukers

bonsoir,

oups, il fallait bien sûr lire "les valeurs par défaut doivent être renseignées par Firebird"
Sur ma version d'ibexpert les valeurs par défaut ne sont pas affichées en création sur le formulaire, mais elles sont bien prises en compte dans l'enregistrement.

@++
Dany
28/09/2008, 20h51
alheuredudejeuner

pour firebird

il y a un couple qui fonctionne bien

UIB et GZFBDdataset

le premier se trouve là : http://www.progdigy.com/?page_id=5 il comporte beaucoup d'exemples

le deuxième se trouve là : http://www.zoo-logique.org/made_in_d...8.18.2001.html

Ils sont régulièrement actualisés et maintenus par leurs auteurs.

Pour ton problème effectivement ce qui est traité par la base ne se voit qu'après rafraichissement de ton post.

bon courage

André
29/09/2008, 21h33
looping

explication
bonsoir

explications complémentaires:
j'ai crée la petite table exemple ci dessous avec IBexpert
sur une feuille delphi je mets tout ce qu'il faut pour se connecter à la table:
IBdatabase, IBtransaction, IBquery et IBupdateSQL
je place un DBgrid lié à un dataset

quand je lance le prog:
la table s'affiche dans la grille, je peux modifier les données.
par contre en insertion: le champ "NOM" ne se remplit pas automatiquement par la valeur 'ALPHA'. Et si je valide la ligne (avec un dbnavigator) il y a une erreur comme quoi le champ doit avoir une valeur ?

j'aimerais que le champ se mette automatiquement à la valeur par défaut sans trop coder sous delphi ?

merci
Code:

1 2 3 4 5 6 7 8 CREATE TABLE TABLE1 ( ID INTEGER NOT NULL, NOM VARCHAR(10) DEFAULT 'ALPHA' NOT NULL ); ALTER TABLE TABLE1 ADD CONSTRAINT PK_TABLE1 PRIMARY KEY (ID);

Bonjour looping

Essaye ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure TForm1.DBGrid1ColExit(Sender: TObject);
var x : string;
begin
   x :=ClientDataSet1NOM.AsString;
   ShowMessage(x);
   if ClientDataSet1NOM.AsString = '' then
      begin
         ClientDataSet1NOM.AsString := 'ALPHA';
         ClientDataSet1.Post;
            showmessage(ClientDataSet1NOM.AsString);
      end
   else
      ShowMessage('Oups');
 
end;

Attention : je travaille en dbExpress. ClientDataSet soit avoir un autre nom dans ton cas. J'espère t'avoir un peu aidé.

A+

30/09/2008, 08h14
looping

réponse

bonjour,

merci pour l'info
je suis un peu deçu par Firebird
j'avais choisi cette base pensant que tout ce qui était programmé dans la base n'avait pas besoin d'etre renseigné dans le progamme .
Ou est l'interet alors de renseigner un champ par défaut dans la base ?

A+
30/09/2008, 08h35
SergioMaster

Citation:

Envoyé par looping

je suis un peu deçu par Firebird

Moi pas :D

Citation:

Envoyé par looping

j'avais choisi cette base pensant que tout ce qui était programmé dans la base n'avait pas besoin d'etre renseigné dans le progamme .
Ou est l'interet alors de renseigner un champ par défaut dans la base ?

Le problème le not null est testé avant . Pour preuve lorsque j'utilise une date (par exemple date de dernière utilisation LAST_MODIF DATE DEFAULT "DATE" , la date se renseigne correctement après le POST.
De plus je dirais que c'est une bonne pratique que d'initialiser des valeurs dans le programme . Contrairement a JP.NUAGE ;) ,moi j'utilise l'évenement onNewRecord pour faire ce genre de chose .
30/09/2008, 12h18
alheuredudejeuner

Citation:

Envoyé par looping

bonjour,

merci pour l'info
je suis un peu deçu par Firebird
j'avais choisi cette base pensant que tout ce qui était programmé dans la base n'avait pas besoin d'etre renseigné dans le programme .
Ou est l'interet alors de renseigner un champ par défaut dans la base ?

A+

le problème c'est qu'une valeur générée par défaut ne pourra jamais être nulle.
Après quoi pour voir sur ton dbgrid le résultat du travail de la base après le post, avec les IBX il faudra committer et de mémoire ré ouvrir ton dataset.
Là un autre problème va se poser tu risques de voir tes enregistrements arriver dans n'importe quel ordre si tu n'a pas fais un " order by" dans ta requête SQL.
après quoi quand tu ajoutes un enregistrement il risque de se mettre n'importe ou sur le dbgrid, faudra alors mettre un append dans le code du DBnavigateur.
pour committer proprement j'avais enlever le bouton valide et refresh du dbnavigateur, et remplacer par un bouton
qui postait si la base était en mode édition ou insertion, puis dans tous les cas committait et rouvrais la base, j'avais aussi mis une fonction pour me repositionner automatiquement sur l'enregistrement en cours de travail.

J'ignore si c'était une méthode très pro mais cela a fonctionner super bien pendant plus de 5 ans.
23 000 lignes d'enregistrements pas une perte. Pour un amateur, j'en suis très content.

André
30/09/2008, 13h39
Andry
Citation:
Envoyé par looping

bonsoir
j'aimerais que le champ se mette automatiquement à la valeur par défaut sans trop coder sous delphi ?

merci

Code:

1 2 3 4 5 6 CREATE TABLE TABLE1 ( ID INTEGER NOT NULL, NOM VARCHAR(10) DEFAULT 'ALPHA' NOT NULL ); ALTER TABLE TABLE1 ADD CONSTRAINT PK_TABLE1 PRIMARY KEY (ID);
Salut,
Sous Delphi double clic sur ton ton IbQuery et decoche l'option Required pour le Champs NOM.
Ensuite, tu fais tes insert et si jamais le champs NOM n'a pas de valeur, ALPHA sera mis automatiquement par Firebird.
Ceci dit, tu dois commiter/Raffraichir ta grille après l'insertion pour voir la modification effective.

A+
30/09/2008, 19h05
JP.NUAGE

Citation:

Envoyé par SergioMaster ;)
j'utilise l'évenement onNewRecord

Comme quoi, il existe plusieurs chemins pour allez à l'insertion. (A Rome aussi d'ailleurs) Maintenant la question est :

Quelle méthode est la plus efficace ou la plus sûre ? (S'il y en a une qui l'est plus que l'autre) :?