Dúvida simples de ClientDataSet
12/08/2008
0
Nome e CPF
Criei um CDS apontando para esta tabela.
Acontece que neste CDS eu criei dois parametros:pNome e pCpf;
No meu código eu carrego assim:
Params[00].AsString := Edit1.Text;
Params[01].AsString := Edit2.Text;
Agora preciso dar um Insert nesta tabela, com os parametros. Como faço?
INSERT INTO TABELA VALUES(... E aí, como carrego aqui os parametros?
Paulo
Posts
12/08/2008
Estanieski
Exemplo
insert into FORNECEDOR_EXAME
(CODIGO, VALOR_CUSTO, VALOR_VENDA, CODIGO_INDEX, FORNECEDOR, NOMEEXAME,
INDEXFORNECEDOR)
values
(:CODIGO, :VALOR_CUSTO, :VALOR_VENDA, :CODIGO_INDEX, :FORNECEDOR, :NOMEEXAME,
:INDEXFORNECEDOR)
update FORNECEDOR_EXAME
set
CODIGO = :CODIGO,
VALOR_CUSTO = :VALOR_CUSTO,
VALOR_VENDA = :VALOR_VENDA,
CODIGO_INDEX = :CODIGO_INDEX,
FORNECEDOR = :FORNECEDOR,
NOMEEXAME = :NOMEEXAME,
INDEXFORNECEDOR = :INDEXFORNECEDOR
where
CODIGO = :OLD_CODIGO
delete from FORNECEDOR_EXAME
where
CODIGO = :OLD_CODIGO
12/08/2008
Paulo
12/08/2008
Paulo
CommandText :=
´INSERT INTO TABELA VALUES(pNome,pCpf)´;//Assim vem null
CommandText :=
´INSERT INTO TABELA VALUES(´+pNome+´,´+pCPF+´)´;//Assim dá erro
12/08/2008
Emerson Nascimento
cds.commandtext := ´INSERT INTO TABELA VALUES(:pNome, :pCpf)´;
cds.Params[0].AsString := Edit1.Text;
cds.Params[1].AsString := Edit2.Text;
cds.Execute;
ou direto:
cds.CommandText := ´INSERT INTO TABELA VALUES(´ + QuotedStr(Edit1.Text) + ´,´ + QuotedStr(Edit2.Text) + ´)´;
cds.Execute;
12/08/2008
Paulo
Clique aqui para fazer login e interagir na Comunidade :)