Problema com Adoquery

[thiago6826 0]

Olá Amigos

Meu código esta assim. Vou explicar o funcionamento.

ele da um post antes de executar este código em outra tabela, daí entra em uma condição, se radiobutton.checked então ele vai realizar este código abaixo

 

ADOQuery1.Active := False;

ADOQuery1.SQL.Values['INSERT INTO Tipo_Fisica (cod_pessoa,cpf,Data_nasc) values (' + quotedstr(DBEcodigo.text)+ ',' + quotedstr(DBEcpf.text)+','+ quotedstr(DBEDatanasc.text)+')'];

AdoQuery1.Active := True;

 

então, ele irá gravar na tabela Tipo Fisica o código da tabela Tipo pessoa e mais o campo cpf e data_nasc que esta preenchido.

mas o delphi não esta executando a linha ADOQuery1.

Obrigado.

[Ted k' 126]

Movido de Dúvidas Gerais http://forum.imasters.com.br/public/style_emoticons/default/seta.gif Delphi

[marcio.theis 3]

A forma que esta tentando executar o comando esta incorreta, tente da seguinte forma:

 

ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('INSERT INTO Tipo_Fisica (cod_pessoa,cpf,Data_nasc) values (' + quotedstr(DBEcodigo.text)+ ',' + quotedstr(DBEcpf.text)+','+ quotedstr(DBEDatanasc.text)+')');
AdoQuery1.ExecSQL;

[thiago6826 0]

Movido de Dúvidas Gerais http://forum.imasters.com.br/public/style_emoticons/default/seta.gif Delphi

 

OLA AMIGO, MAS NA HORA Q ENTRA PRA REALIZAR A INSERÇÃO DESTE CÓDIGO NA QUERY

APARECE

MISSING CONNECTION OR CONNECTIONSTRING

[marcio.theis 3]

Você configurou uma conexão com um ADOConnection ? Vinculou a query com o mesmo ?

[thiago6826 0]

Você configurou uma conexão com um ADOConnection ? Vinculou a query com o mesmo ?

 

sim, liguei a query com o adoconection o problema e na hora de ativa-la

[marcio.theis 3]

Se tentar ativar a conexão do adoconection funciona ?

[thiago6826 0]

Se tentar ativar a conexão do adoconection funciona ?

 

ele tenta ativar, mas nao consegue por causa do sodigo sql...

bom, mas dei um jeito mto errado mas deu certo...

me da uma mao com esta triger??

Create Trigger Atualiza

on Relacionamento_Compra after insert as

Begin

Update Cadastro_Pecas

set Cadastro_Pecas.quantidade = Cadastro_Pecas.quantidade + (Select Quantidade from inserted where Cadastro_Pecas.Cod_peca = inserted.cod_peca)

end

abraços