F�rum Firebird #380087

24/06/2010

Ol� , Pessoal Estou com dificuldades em meu sistema, quando pe�o para gravar algo numa tabela ocorre o seguinte erro: Must have a value. O Id_ esta definido como Not Null e como chave Primaria. Li Alguns topicos sobre o assunto na net, mais ainda n�o consegui resolver o problema. Eu uso a ferramenta IBEXPERT para conectar ao banco de dados firebird versao 2.0, meu sistema esta sendo desenvolvido em delphi 7. Por Favor preciso de ajuda. Sempre usei estes 3 programas , e sempre deu certo. Nunca tive problema com este erro Must have a value, este problema apareceu de uma hora para outra, algguem sabe me dizer porque disto? Grato. Alexsander

Alexsander

Curtir t�pico

+ 0

Responder

Posts

24/06/2010

Maur�cio Zanatta

Alexsander,

al�m da chave prim�ria e da configura��o de not null para o campo id, voc� precisa ter tamb�m um generator e uma trigger para gerar o o autoincremento se for um id do tipo c�digo (neste artigo aqui explica isso: https://www.devmedia.com.br/articles/viewcomp.asp?comp=1070)

Se n�o for este o caso, essa mensagem ocorre quando se tem configurado na base de dados um campo not null, e n�o se est� preenchendo o campo com algum valor.

E se voc� estiver usando os componentes DBExpress, verifique tamb�m a propriedade Required, que caso esteja True, tamb�m exigir� que o campo referido seja preenchido.

[]s.

Responder

Gostei + 0

29/06/2010

Carlos Mazzi

Deu certo amigao?

Responder

Gostei + 0

29/06/2010

Alexsander

Ola, Carlos N�o deu certo , n�o. Criei um genereton no firebird, mais n�o deu certo. quando pe�o para gravr no delphi.

Responder

Gostei + 0

30/06/2010

Maur�cio Zanatta

Alexsander, explique uma coisa: voc� consegue gravar pelo IBExpert?

Responder

Gostei + 0

01/07/2010

Alexsander

Caro, Carlos Sim. Pelo IBExpert, consigo gravar, fazer consultas, e etc. So que eu tenho q digitar um codigo qualquer, no ibexpert para que ele possa gravar.

Responder

Gostei + 0

01/07/2010

Alexsander

Caro, Mauricio. O meu banco de dados est�o com estes dados: OBS: EStou usando o IBExpert para acessar o firebird     CREATE TABLE CONTATO (
    ID_CONTATO     INTEGER NOT NULL,
    CONTATO        VARCHAR(30) COLLATE WIN_PTBR,
    IDADE          CHAR(3),
    FOTO           BLOB SUB_TYPE 1 SEGMENT SIZE 80,
    NASCIMENTO     VARCHAR(9),
    EMAIL          VARCHAR(20) COLLATE WIN_PTBR,
    SIGNO          VARCHAR(20) COLLATE WIN_PTBR,
    TIPOSANGUINIO VARCHAR(5),
    TELEFONE       VARCHAR(14),
    CELULAR        VARCHAR(14),
    N              CHAR(7),
    CIDADE         VARCHAR(20) COLLATE WIN_PTBR,
    RUA            VARCHAR(20) COLLATE WIN_PTBR,
    CEP            VARCHAR(10),
    ESTADO         CHAR(2) COLLATE WIN_PTBR,
    BAIRRO         VARCHAR(30) COLLATE WIN_PTBR
);

Responder

Gostei + 0

01/07/2010

Emerson Nascimento

tire o NOT NULL do campo ID_CONTATO e crie um generator e uma trigger para ele. assim n�o ser� necess�rio preenche-lo ao criar um novo registro.

CREATE GENERATOR GEN_CONTATO_ID; -- cria o generator

CREATE TABLE CONTATO (
    ID_CONTATO     INTEGER, -- note que n�o tem mais o NOT NULL
    CONTATO        VARCHAR(30) COLLATE WIN_PTBR,
    IDADE          CHAR(3),
    FOTO           BLOB SUB_TYPE 1 SEGMENT SIZE 80,
    NASCIMENTO     VARCHAR(9),
    EMAIL          VARCHAR(20) COLLATE WIN_PTBR,
    SIGNO          VARCHAR(20) COLLATE WIN_PTBR,
    TIPOSANGUINIO VARCHAR(5),
    TELEFONE       VARCHAR(14),
    CELULAR        VARCHAR(14),
    N              CHAR(7),
    CIDADE         VARCHAR(20) COLLATE WIN_PTBR,
    RUA            VARCHAR(20) COLLATE WIN_PTBR,
    CEP            VARCHAR(10),
    ESTADO         CHAR(2) COLLATE WIN_PTBR,
    BAIRRO         VARCHAR(30) COLLATE WIN_PTBR
);

/* Trigger: CONTATO_BI */
CREATE TRIGGER CONTATO_BI FOR CONTATO
ACTIVE BEFORE INSERT POSITION 0
AS
BEGIN
IF (NEW.ID_CONTATO IS NULL) THEN
    NEW.ID_CONTATO = GEN_ID(GEN_CONTATO_ID,1);
END

Responder

Gostei + 0

02/07/2010

Euclides Cunha

Alexsander , na rotina de grava��o do Delphi, passe ao parametro ID antes gravar , o Valor "1";

Ex:

???.ParamByName('ID').Value := 1;

...
...

???.post

claro, gravando por meio da fun��o post de componentes do Delphi.

Responder

Gostei + 0

02/07/2010

Alexsander

Valeu, Pessoal Agrade�o a todos que me ajudaram. Agora meu sistema esta gravndo sem problemas. Valeu Emerson. sua ajuda foi fundamental.

Responder

Gostei + 0