Discussion :

[looping]

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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[JP.NUAGE]

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

[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

[alheuredudejeuner]

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é

[looping]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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);