Question

Delphi7 如何用程序向数据库添加信息

procedure Tperson.bsaveClick(Sender: TObject);
begin
with dm.adoquery6 do
begin
close;
sql.clear;
sql.add('insert into(id,pname,psex,pbirth,pindate,poutdate,pdep,pphone,ptitle,ppwd,pmemo)values(:a,:b,:c,:d,:e,:f,:g,:h,:i,:j,:k)');
Parameters.ParamByName('a').Value:=eid.text;
Parameters.ParamByName('b').Value:=ename.text;
Parameters.ParamByName('c').Value:=cbsex.text;
Parameters.ParamByName('d').Value:=datetostr(dbirth.date);
Parameters.ParamByName('e').Value:=datetostr(din.Date);
Parameters.ParamByName('f').Value:=datetostr(dout.Date);
Parameters.ParamByName('g').Value:=cbdep.text;
Parameters.ParamByName('h').Value:=ephone.text;
Parameters.ParamByName('i').Value:=etitle.text;
Parameters.ParamByName('j').Value:=epass.text;
Parameters.ParamByName('k').Value:=emote.text;
execsql;
end;
ShowMessage('提交成功!');
end;

老是报这个错误，我删了showmessage那行还是报

Answer 1

从截图错误提示来看，是 SQL 语法错误。建议可以如下操作：
先在程序里生成最终的 SQL 语句，然后将其复制到 实际的数据库（如 access 等）中，检查实际运行情况。

Answer 2

字符类型的字段是要加引号的
你这个用数据敏感控件，直接post就可以

追问

不太懂，我是新手，，麻烦你说具体点行吗？

Answer 3

  sql.add('insert into(id,pname,psex,pbirth,pindate,poutdate,pdep,pphone,ptitle,ppwd,pmemo) values(:a,:b,:c,:d,:e,:f,:g,:h,:i,:j,:k)');

追问

这个什么意思啊？