DELPHI 将XML文件通过ClentDataSet存入数据库中

最新推荐文章于 2019-08-12 12:35:00 发布

hhkun0120

最新推荐文章于 2019-08-12 12:35:00 发布

阅读量1.7k

点赞数

CC 4.0 BY-SA版权

文章标签： delphi XML 数据库 TCLIE

本文链接：https://blog.youkuaiyun.com/hhkun0120/article/details/9767031

本文介绍了一种使用Delphi将XML文件中的数据批量导入数据库的方法。通过客户端数据集(ClientDataSet)来处理XML文档，实现了高效的数据迁移。该方法利用XMLDocument组件加载XML文件，并遍历节点将数据写入数据库。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

DELPHI 将XML文件通过ClentDataSet存入数据库中

  if dlgOpen1.Execute then
    XMLDocument1.LoadFromFile(dlgOpen1.FileName);
  rootNode := XMLDocument1.DocumentElement;
  nodelist := rootNode.ChildNodes;

crsZipCode.Open;
  try
    for I := 0 to nodelist.Count - 1 do
    begin
      crsZipCode.Append;
      for j := 0 to nodelist[i].ChildNodes.Count - 1 do
        crsZipCode.FieldValues[nodelist[i].ChildNodes[j].NodeName] :=
        nodelist[i].ChildNodes[j].NodeValue;
      crsZipCode.Post;
    end;
  except
    on e:Exception do
      DialogWarning(e.Message);
  end;
   crsZipCode.ApplyUpdates;

这种效率理论上来说是比从数据库中逐条插入效率高很多的。

  rootNode := XMLDocument1.DocumentElement;
  nodelist := rootNode.ChildNodes;
  for i:= 0 to rootNode.ChildNodes.Count do
  begin
    crsZipCode.CommandText := Format(sSql,
      [quotedstr(rootNode.ChildNodes[i].ChildNodes[0].NodeValue),
       quotedstr(rootNode.ChildNodes[i].ChildNodes[1].NodeValue),
       quotedstr(rootNode.ChildNodes[i].ChildNodes[2].NodeValue),
       quotedstr(rootNode.ChildNodes[i].ChildNodes[3].NodeValue)]);
    try
      crsZipCode.Execute;
    except
      DialogWarning('插入数据有误');
    end;
  end;