如何编写用adotable向sql数据库增加记录呢？

Question

这是有一段程序procedure TWebModule1.WebModule1WebActionItem3Action(Sender: TObject;
  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin    adotable1.Open;
    adotable1.Append;
    adotable1.FieldByName('姓名').Value:=request.ContentFields.Values['myname'];
    adotable1.FieldByName('性别').Value:=request.ContentFields.Values['sex'];
    adotable1.FieldByName('生日').Value:=request.ContentFields.Values['birthday'];
    adotable1.FieldByName('QQ').Value:=request.ContentFields.Values['qqnumber'];
    adotable1.FieldByName('手机').Value:=request.ContentFields.Values['phone'];
    adotable1.FieldByName('家庭住址').Value:=request.ContentFields.Values['address'];
    adotable1.Post;
    adotable1.Close;end;
不知道可行否，请高手指点。
应该怎么改呢？

Answer 1

自己的问题最好自己先行解决。自己搞不定后再问。顺便说一句，你的揭帖率也太低了

Answer 2

都写了这么多了，就不知道运行一下看看，还费半天劲到这里来问

Answer 3

可行，呵呵。。不是你自己写的代码？

Answer 4

运行下，在打开数据库看看不就知道了？