DELPHI中利用AdvStringGrid往数据库中导入数据出现的问题

最新推荐文章于 2019-10-20 18:40:39 发布

Rubi

最新推荐文章于 2019-10-20 18:40:39 发布

阅读量3.4k

点赞数

分类专栏： DELPHI 文章标签：数据库 delphi dataset integer insert

本文链接：https://blog.csdn.net/Rubi/article/details/640629

版权

在使用AdvStringGrid进行数据库导入时，遇到已存在数据可能导致重复的问题。尤其当导入数据与基础表中的非主键数据关联时，可能会引发错误。为解决这一问题，作者编写了相关代码来避免重复并确保数据的正确关联。

摘要由CSDN通过智能技术生成

最近客户需要往数据库中导入数据,直接通过AdvStringGrid导入是比较简单的,后来发现了一个问题,如果数据库中已经存在的数据,那么在导入进去,岂不是重复了?特别是那个表如果是基础表,正好你导入的时候,有数据需要和那两个相同的数据关联,而且用的不是主键,问题岂不是打了,就写了如下的代码:

procedure TForm1.ToolButton2Click(Sender: TObject);
var
    i :integer;
begin
      adoTbCarrier.Close;
      adoTbCarrier.Open;
      for i := 0 to asg.RowCount-1 do
      begin
      adoQ.SQL.Text :='Select * from carrier where carrierid ='+ #39+asg.Cells[0,i]+#39;
      adoQ.Open;
      if adoQ.RecordCount > 0 then
       begin
          adoQ.Edit;
          adoQ.FieldByName('carrierCode').AsString := asg.Cells[1,i];
          adoQ.Post;
       end
      else
        begin
        adoTbCarrier.Append;
        adoTbCarrier.FieldByName(&