Fórum inclusao com adoQuery #608375
26/02/2020
0
como faço para fazer uma inclusão pelo delphi no banco de dados usando adoQuery
Lucas
Curtir tópico
+ 0
Responder
Post mais votado
28/02/2020
Assim boy
Vamos tomar como exemplo uma tabela de clientes onde temos a seguinte estrutura.
TABELA = TBCLIENTE
CAMPOS
CODIGO - INT - PK - NOTNULL
NOME - VARCHAR(50) - NOTNULL
CPF - VARCHAR(20) - NOTNULL
With ADOQuery1 do
begin
close; // fecha a query
sql.clear; // limpar os comando contidos na query
sql.add('insert into CLIENTE'); // Incluir linda com o comando na query
sql.add('(CODIGO, NOME, CPF)'); // Campos da tabela
sql.add('values'); // determinar que depois desse comando entraram valores.
sql.add('(:CODIGO, :NOME, :CPF)'); // Parametros de passagem de informações dos campos Edits da tela para os campos da Tabela;
parameters.parambyname('codigo').value := Edit1.Text; // passagem de dados dos edits
parameters.parambyname('nome').value := Edit2.Text; // passagem de dados dos edits
parameters.parambyname('cpf').value := Edit3.Text; // passagem de dados dos edits
ExecSQL; // executar o comando informado depois de preenchido os campos da tabela com os dados dos edits da tela.
end;
Espero ter ajudado.
Vamos tomar como exemplo uma tabela de clientes onde temos a seguinte estrutura.
TABELA = TBCLIENTE
CAMPOS
CODIGO - INT - PK - NOTNULL
NOME - VARCHAR(50) - NOTNULL
CPF - VARCHAR(20) - NOTNULL
With ADOQuery1 do
begin
close; // fecha a query
sql.clear; // limpar os comando contidos na query
sql.add('insert into CLIENTE'); // Incluir linda com o comando na query
sql.add('(CODIGO, NOME, CPF)'); // Campos da tabela
sql.add('values'); // determinar que depois desse comando entraram valores.
sql.add('(:CODIGO, :NOME, :CPF)'); // Parametros de passagem de informações dos campos Edits da tela para os campos da Tabela;
parameters.parambyname('codigo').value := Edit1.Text; // passagem de dados dos edits
parameters.parambyname('nome').value := Edit2.Text; // passagem de dados dos edits
parameters.parambyname('cpf').value := Edit3.Text; // passagem de dados dos edits
ExecSQL; // executar o comando informado depois de preenchido os campos da tabela com os dados dos edits da tela.
end;
Espero ter ajudado.
Anderson Gonçalves
Responder
Gostei + 1
Clique aqui para fazer login e interagir na Comunidade :)