Delphi listview中已有的记录如何保存到数据库表中？

Question

比如说：
（注明：listview是设置有标题的，不需要保存标题。）
     with ADOQry do
     begin
         close;
         sql.Clear;
         sql.Add('select * from tabletempl');
         open;
         edit;
         append;
         FieldByName('inf').AsString:=SgDispNetIp.Selected.SubItems.Strings[0];
         FieldByName('comname').AsString:=SgDispNetIP.Selected.SubItems.Strings[1];
         FieldByName('group').AsString:=SgDispNetIP.Selected.SubItems.Strings[2];
         FieldByName('macset').AsString:=SgDispNetIP.Selected.SubItems.Strings[3];
         post;
     end;
我这样写，可是不对！@_@
还请知道帮忙看下为啥？

Answer 1

最简单的知道错误的方法  try
    with ADOQry do
    begin
        close;
        sql.Clear;
        sql.Add('select * from tabletempl');
        open;
        edit;
        append;
        FieldByName('inf').AsString:=SgDispNetIp.Selected.SubItems.Strings[0];
        FieldByName('comname').AsString:=SgDispNetIP.Selected.SubItems.Strings[1];
        FieldByName('group').AsString:=SgDispNetIP.Selected.SubItems.Strings[2];
        FieldByName('macset').AsString:=SgDispNetIP.Selected.SubItems.Strings[3];
        post;
    end; 
  except
    on E: Exception do
    begin
        ShowMessage(E.Message);
    end;
  end;至于怎么修改，还没想出来过

Answer 2

edit; 
append; 
这两个能连着来吗？

Answer 3

可以用语句for i:=0 to listview1.items.count-1 do
begin
  adoquery1.sql.text:= 'insert into tabletempl values('+
    quotedstr(SgDispNetIp.Selected.SubItems.Strings[0]+','+
    quotedstr(SgDispNetIp.Selected.SubItems.Strings[1]+','+
    quotedstr(SgDispNetIp.Selected.SubItems.Strings[2]+','+
    quotedstr(SgDispNetIp.Selected.SubItems.Strings[3]+')';
  adoquery1.execsql;
end;

Answer 4

我的写法是这样的，貌似没什么错了。
with ADOQry  do
     begin
         for i:=0 to  listview1.Items.Count-1 do
         begin
             close;
             sql.Clear;
             sql.Add('select * from tabletempl');
             open;
             edit;
             append;
             FieldByName('inf').AsString:=SgDispNetIp.Items[i].Caption;
             FieldByName('comname').AsString:=SgDispNetIP.Items[i].SubItems.Strings[0];
             FieldByName('group').AsString:=SgDispNetIP.Items[i].SubItems.Strings[1];
             FieldByName('macset').AsString:=SgDispNetIP.Items[i].SubItems.Strings[2];
             post;
         end;
     end;