Botão para inserir dados do BD.

winv · 14 de abril de 2010

Gente sei que pra a maioria isso deve ser uma besteira mais estou aprendendo delphi a pouco tempo, é o seguinte criei um form para cadastro de usuarios nele existem 4 campos Tedit, quero pegar o que for preenchido nos campos e salvar na tabela do BD, mais num sei como faço num consegui colocar a instrução no botão para salvar alguem pode me ajudar.

valecovo · 16 de abril de 2010

Porque é que você não utiliza um "TDBEdit" em vez do "TEdit" e faz logo a ligação à tabela?

Se quiser fazer com o "TEdit", eu faria qualquer coisa do género:


procedure TForm1.Button1Click(Sender: TObject);
begin
  tabela.campo1:= Edit1.tex;
  tabela.campo2:= Edit2.tex;
  tabela.campo3:= Edit3.tex;
end;

winv · 16 de abril de 2010

Alguem pode me dizer o q esta errado:


procedure TForm1.btnSalvarClick(Sender: TObject);
begin
with con_bd.DataModule1.Query1 do
begin
    close;
    sql.Clear;
    sql.Add('insert into usuarios (NOME,LOGIN,SENHA,NIVEL) values ('+dbeNome.Text+','+dbeLogin.Text+','+dbeSenha.Text+','+dbeNivel.Text+')');

end;

end;

end.in.Text+','+dbeSenha.Text+','+dbeNivel.Text+')');

valecovo · 16 de abril de 2010

Com a instrução close você fechou a Query1. Depois é necessário abri-la para que possa escrever no ficheiro. Penso eu de que...

winv · 16 de abril de 2010

Bem consegui resolver segue abaixo o codigo caso alguem tenha a mesma duvida.


procedure TfrmCadastroUsuario.btnSalvarClick(Sender: TObject);
begin
    //como para insersão de dados no bd
with DataModule1.Query1 do
begin
    close;
    SQL.Clear;
    SQL.Add('INSERT INTO USUARIOS (NOME,LOGIN,SENHA,NIVEL) VALUES (:NCAMPO,:LCAMPO,:SCAMPO,:NICAMPO)');
    Params.ParamByName('NCAMPO').Value := dbeNome.Text;
    Params.ParamByName('LCAMPO').Value := dbeLogin.Text;
    Params.ParamByName('SCAMPO').Value := dbeSenha.Text;
    Params.ParamByName('NICAMPO').Value := dbeNivel.Text;
    ExecSQL;
    //limpa os campos
    dbeNome.Text := '';
    dbeLogin.Text := '';
    dbeSenha.Text := '';
    dbeNivel.Text := '';

end;


end;