通过ClientDataSet失败的Delphi 2010 MySQL更新

Question

我正在使用Delphi 2010并使用dbexpress连接到MySQL数据库。 连接有效100％，我正在检索数据。 当我尝试通过dbGrid更新数据时，就会出现问题。 我正在遍历表中的所有条目，并对它们进行检查。 调用ApplyUpdates方法时，我收到“其他用户未找到或更改记录”。

将DataSetProvider上的updateMode更改为upWhereKeyOnly，现在我处于接收到“无法找到记录，未指定键”的情况。 我尝试添加

BasysClientDataSet.FieldByName('idPolicy').ProviderFlags := [pfInUpdate, pfInWhere, pfInKey];

这到代码，但我得到同样的错误。 我尝试将ProviderFlags添加到SQLQuery中，但是没有得到这样的字段“ idPolicy”

Answer 1

尝试像为您一样为所有主键列设置提供程序标志pfInKey，但不要在客户端数据集中，而在源数据集中。 即使我不了解当db express忽略这些设置时客户端数据集中的字段到底在做什么时，这也可以为我提供帮助 我会说这是一个错误。

Answer 2

尝试创建此过程并在提供程序的BeforeUpdateRecord事件中使用它。

procedure SetOriginFlags(Source, Dest: TCustomClientDataSet);
var
  i: Integer;
begin
  for i := 0 to Source.FieldCount - 1 do
  begin
    if Dest.FindField(Source.Fields[i].FieldName) <> nil then
    begin
      Dest.FindField(Source.Fields[i].FieldName).ProviderFlags :=
        Source.Fields[i].ProviderFlags;
      if Dest.FindField(Source.Fields[i].FieldName).ProviderFlags <> [pfHidden] then
        Dest.FindField(Source.Fields[i].FieldName).Origin :=
          Source.Fields[i].FieldName;
    end;
  end;
end;

Answer 3

尝试将DataSetProvider组件的ResolveToDataSet属性设置为True 。