【结贴】设置数据集的SQL.TEXT删除代码问题**

zywindy

我在添加记录之前先用设置数据集的SQLFILTER来查询数据库中有没有相关的记录，有的话先删除然后再添加，我删除的代码是通过设置数据集的SQL.TEXT来实现的，但是等删除完后我添加记录的时候就提示违反关键字原则，我找了一下原因，是删除后数据集没有更新还是查询时候的记录，请问怎么清空数据集的SQLFILTER？也就是刷新数据集

atiger

close open 一下数据集就可以了

zywindy

不行，是前面删除的时候设置的SQL.TEXT不能清空，我重新设置为SELECT查询代码也不行，提示没有返回结果之类的

atiger

能把你的代码贴出来看看。

lixy

你代码贴上来看看。

zywindy

s := ' worktypename='''+FieldByName('StandardName').AsString+'''';
        DataSetBZSJJ1.SQLFilter := s;
        DataSetBZSJJ1.SQLFiltered := True;
        ss := FieldByName('StandardName').AsString;
        if not DataSetBZSJJ1.Eof then
        begin
          if JsDialogs.ConfirmBox(ss+' 工种已存在，确定删除重新添加吗？','提示信息',1) then
          begin
            s := 'delete from ALLOTMATERIALINFO where enno='''+DataSetGZLB.FieldByName('enno').AsString+''' and worktypeno='''+FieldByName('FieldddNo').AsString+'''';
           DataSetBZSJJ1.SQL.Text := s;
            DataSetBZSJJ1.ApplyUpdates;

          end
        Else
          Exit;
        end;

     DataSetBZSJJ1.Insert;
     DataSetBZSJJ1.Edit;

lixy

s := 'delete from ALLOTMATERIALINFO where enno='''+DataSetGZLB.FieldByName('enno').AsString+''' and worktypeno='''+FieldByName('FieldddNo').AsString+'''';
不能在标准数据集里面执行，放在tquery里面execute

zywindy

可是我查询后直接用DataSetBZSJJ1.delete;DataSetBZSJJ1.applyupdates;
也不行？提示数据集不是edit状态之类的

lixy

最初由 lixy 发布
[B]s := 'delete from ALLOTMATERIALINFO where enno='''+DataSetGZLB.FieldByName('enno').AsString+''' and worktypeno='''+FieldByName('FieldddNo').AsString+'''';
不能..

以下省略...... [/B]

zywindy

Connection1连接参数设置后提示类未注册，如果我不用这个query，直接操作标准数据集，只要能实现删除功能然后能对数据集进行刷新就行