[Resolvido] Delphi inserindo nulo

[Marcelo de Andrade 2]

Boa noite. Estou com uma dúvida que está me chateando, o delphi está inserindo valores nulos no banco de dados, segue o código que estou utilizando:

 

Tabelas:

CREATE TABLE agenda.pessoa (
   id INT NOT NULL AUTO_INCREMENT,
   PRIMARY KEY (ID),
   nome  VARCHAR(50),
   endereco VARCHAR(50),
   cidade VARCHAR(50),
   estado VARCHAR(2),
   observacao TEXT
);

CREATE TABLE agenda.fone (
   id INT AUTO_INCREMENT NOT NULL,
   PRIMARY KEY(ID),
   id_pessoa INT NOT NULL,
   telefone VARCHAR(14),
   celular VARCHAR(14),
   CONSTRAINT id_pessoa FOREIGN KEY(id_pessoa) REFERENCES pessoa(id)
   ON DELETE CASCADE
   ON UPDATE CASCADE
);

 

Delphi:

       With UnitDM.DM.ZQuery1 DO
       Begin
         SQL.Clear;
         SQL.Add('INSERT INTO pessoa (nome, endereco, cidade, estado, observacao) VALUES (:nome, :endereco, :cidade, :estado, :observacao )');
         ParamByName('nome').AsString        := EditNome.Text;
         ParamByName('endereco').AsString    := EditEndereco.Text;
         ParamByName('cidade').AsString      := EditCidade.Text;
         ParamByName('estado').AsString      := ComboBoxEstado.Items[ComboBoxEstado.ItemIndex];
         ParamByName('observacao').AsString  := MemoObservacao.Lines.Text;
         ExecSql;
      End;

 

Alguém saberia me dizer por favor, onde estou errando?

[Yoshi 1]

Você tentou debbugar para ver se n ocorre nenhum erro? Tem algum trigger para tratamento na tabela?

[itepi 0]

Olá, realmente aparentemente não há nenhum erro, poderia nos dar maiores detalhes? Não dá nenhum erro quando você debugga a aplicação? Apenas insere null sem nenhum erro?

[Marcelo de Andrade 2]

Me desculpem, havia esquecido o tópico, eu já consegui resolver e o problema estava na concatenação e nos parametros. Concatenei as variáveis utilizando SQL.Text.