×

Welcome to TagMyCode

Please login or create account to add a snippet.
0
0
 
0
Language: Python
Posted by: Mario Lopes
Added: Mar 23, 2018 4:50 PM
Views: 2
Insere registo em Delphi
  1. zquery1.close;
  2. zquery1.SQL.Clear;
  3. zquery1.SQL.Add('insert into contatos (nome,email,movel) values (:a,:b,:c)');
  4. zquery1.ParamByName('a').AsString:=edit1.Text;
  5. zquery1.ParamByName('b').AsString:=edit2.Text;
  6. zquery1.ParamByName('c').AsString:=edit3.Text;
  7. zquery1.ExecSQL;
  8. showmessage('Elemento adicionado a base de dados');