将listview中的数据插入数据库delphi

我正在搜索一个如何将数据从listview保存到数据库的示例

我有一个包含一些数据的列表视图：

和数据库mysql：

身份证、姓名、职位、姓名、日期

有人能给我举个例子吗

---

thx.

不知道TUNIQuery是否有ExecSql方法，但这将适用于TADOQuery，在我的例子中，ListView.ViewStyle设置为vsReport，它包含4个列

我认为如果使用StringGrid或Dbgrid，将更容易处理

procedure TForm1.PostData;
const
  SQLCMD = 'INSERT INTO MYTABLE (NAME, POSITION, SALL, DATE) VALUES '+
  '(%s, %s, %s, %s)';
var
//  IL: TListItem;
  I, J, ItemsCount, SubItemsCount: integer;
  LineItem: array of string;
begin

  ItemsCount:= ListView1.Items.Count;
  for I := 0 to ItemsCount - 1 do // looping thru the items
  begin
    SubItemsCount:= ListView1.Items[I].SubItems.count;
    SetLength(LineItem, SubItemsCount + 1);
    LineItem[0]:= ListView1.Items[0].Caption; // the first item caption (first col)
    for J := 0 to SubItemsCount - 1 do   // looping thru the subitems of each line
      LineItem[J+1]:= ListView1.Items[I].SubItems.Strings[J];
//
//  just to see the sql command
//    ShowMessage(
//    Format(SQLCMD, [ QuotedStr(LineItem[0]),
//                     QuotedStr(LineItem[1]),
//                     LineItem[2], //int field no need to quote the parameter
//                     QuotedStr(LineItem[3])]
//    ));

//
    with TAdoQuery.Create(nil) do
    try
      ConnectionString:= 'Your Connection String';
      SQL.Text:=
      Format(SQLCMD, [QuotedStr(LineItem[0]),
                      QuotedStr(LineItem[1]),
                      LineItem[2], //int field no need to quote the parameter
                      QuotedStr(LineItem[3]));
      ExecSql; // you might handel execsql to know the row was affected, also not sure if unidac have the same method
    finally
      Free;
    end;

    SetLength(LineItem, 0);

  end;
end;

---

以下解决方案使用TSQLQuery，这意味着我正在连接Firebird。我确信还有其他查询组件会给您相同的结果

 with dstlist do  // this is the list view
  for i:= 1 to items.count do
   with qInsert do   // this is the query component
    begin
     dstlist.itemindex:= i - 1;
     lvitem:= dstlist.selected;   // select the correct node
     close;
     parambyname ('p1').asstring:= lvitem.caption;  // name
     parambyname ('p2').asstring:= lvitem.subitems[0];  // position
     parambyname ('p3').asinteger:= strtoint (lvitem.subitems[1]);  // sall
     parambyname ('p4').asdate:= strtodate (lvitem.subitems[2]);
     execsql;
    end;

查询本身类似于

insert into table (name, position, sall, adate)
values (:p1, :p2, :p3, :p4)

---

你试了什么？您正在使用哪些db组件？我正在使用UniDac（devart.com）db组件，我无法尝试。。因为我不知道如何开始，你能给我一些提示吗？谢谢你的关注，我会稍后检查并返回报告