DBgrid 在尝试更新时未显示更改并显示错误 - 用于更新或刷新的键列信息不足 [关闭]

Question

我有以下代码；

    unit UNewCar;

    interface

    uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, 
    System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Vcl.StdCtrls, Vcl.Mask,
    Vcl.DBCtrls, Vcl.Grids, Vcl.DBGrids, Data.Win.ADODB, Datasnap.DBClient,
    Vcl.ExtCtrls;

    type
      TFNewCar = class(TForm)
      ADOConnection1: TADOConnection;
      ADOQueryTC: TADOQuery;
     DataSourceTC: TDataSource;
     ADOQueryCC: TADOQuery;
     DataSourceCC: TDataSource;

     DBLookupComboBox1: TDBLookupComboBox;
     Label1: TLabel;
     Label2: TLabel;
     BtnNew: TButton;
     BtnSave: TButton;
     DBGrid1: TDBGrid;
     ADOQueryTCCusID: TAutoIncField;
     ADOQueryTCName: TWideStringField;
     ADOQueryTCCName: TWideStringField;
     ADOQueryTCAdd: TWideMemoField;
     ADOQueryTCCity: TWideStringField;
     ADOQueryTCPhone: TWideStringField;
     ADOQueryTCEmail: TWideStringField;
     ADOQueryCCName: TWideStringField;
     ADOQueryCCCusID: TIntegerField;
     ADOQueryCCCar: TWideStringField;
     DBEdit1: TDBEdit;
     procedure BtnNewClick(Sender: TObject);
     procedure FormCreate(Sender: TObject);
     procedure btnSaveClick(Sender: TObject);
     procedure ADOQueryCCBeforeEdit(DataSet: TDataSet);
     procedure ADOQueryCCBeforeInsert(DataSet: TDataSet);
     procedure ADOQueryCCBeforePost(DataSet: TDataSet);
   private
    procedure CheckSaveButtonClicked;
    function GetSaveEnabled: Boolean;
    procedure SetSaveEnabled(const Value: Boolean);
  protected
   public
    SaveClicked : Boolean;
    property SaveEnabled : Boolean read GetSaveEnabled write SetSaveEnabled;
    end;

   var
    FNewCar: TFNewCar;

   implementation

   {$R *.dfm}

   procedure TFNewCar.FormCreate(Sender: TObject);
   begin
  SaveEnabled := False;
  ADOQueryCC.Open;
  ADOQueryTC.Open;
  ADOQueryCC.Requery;
end;

procedure TFNewCar.ADOQueryCCBeforeEdit(DataSet: TDataSet);
begin
  SaveEnabled := True;
end;

procedure TFNewCar.ADOQueryCCBeforeInsert(DataSet: TDataSet);
begin
  SaveEnabled := True;
  DBEdit1.SetFocus;
end;

procedure TFNewCar.ADOQueryCCBeforePost(DataSet: TDataSet);
begin
  CheckSaveButtonClicked;
end;

procedure TFNewCar.CheckSaveButtonClicked;
begin
  if not SaveClicked then begin
    AdoQueryCC.Cancel;
    Abort;   //  In case the user clicked the DBNavigator Save button
  end;
end;

procedure TFNewCar.btnSaveClick(Sender: TObject);
begin
  SaveClicked := True;
  if DBEdit1.Text = '' then
    begin
     ShowMessage('Please enter the missing data!');
    end
    else
    begin
    AdoQueryCC.Post;
    SaveEnabled := False;
    ADOQueryCC.close;
    ADOQueryCC.SQL.text:='SELECT tcustomer.Name,  tcustomercar.CusID,  tcustomercar.Car FROM tcustomer, tcustomercar WHERE tcustomer.CusID = tcustomercar.CusID';
    ADOQueryCC.Open;
    end;
end;

function TFNewCar.GetSaveEnabled: Boolean;
begin
  Result := btnSave.Enabled;
end;

procedure TFNewCar.SetSaveEnabled(const Value: Boolean);
begin
  btnSave.Enabled := Value;
  SaveClicked := False;
end;

procedure TFNewCar.BtnNewClick(Sender: TObject);
begin
ADOQueryCC.Insert;
end;

end.

遵循 AdoqueryCC =>SQL

SELECT tcustomer.Name,  tcustomercar.CusID,  tcustomercar.Car FROM tcustomer, tcustomercar WHERE tcustomer.CusID = tcustomercar.CusID

当我的表单 FNewCar 加载时它没有最近的更改，即使我尝试使用 Requery 并刷新来创建一个事件。 FNewCar 表单允许用户成功输入新记录（汽车），但是当尝试更新字段时也会出现以下错误“ 用于更新或刷新的键列信息不足"

我做错了什么？？？

ScreenShot

Answer 1

我的猜测是：

没有最近的变化

是因为数据还没有发布。并且不能从我所看到的。您正在尝试从两个表中插入和更新元组，但您只获取了一个明细表的外键。想象一下，您想更新这个结果集（甚至通过一些 SQL 命令工具手动更新）：

SELECT
   Customer.Name,
   CustomerCar.CusID,
   CustomerCar.Car
FROM
   Customer, CustomerCar
WHERE
   Customer.CusID = CustomerCar.CusID

您可以更新 CustomerCar 表：

UPDATE CustomerCar SET Car = 'NewValue' WHERE CusID = <Fetched CustomerCar.CusID>

因为您在 CustomerCar.CusID 列中获取了它的唯一外键，而您无法更新 Customer 表：

UPDATE Customer SET Name = 'NewValue' WHERE <What?>

因为您没有获取任何唯一的主键。在同样的情况下是引擎，我猜。我只是猜测，但我认为没有为 WHERE 子句获取任何元数据（这是唯一可以获取 Customer 的唯一主键的地方> 表）。是的，您可以使用 SQL 命令工具作弊并使用为其他表获取的密钥，但客户端引擎并不那么聪明，我必须补充。

您收到此错误：

用于更新或刷新的键列信息不足

因为 ADO 不知道应该更新（或刷新）哪条记录，因为两个表都缺少唯一标识符（您错过了获取的主唯一键）。

我对可能解决方案的建议很简单，只需获取两个表的主唯一键（CusCarID 是 CustomerCar 表的主唯一键）：

SELECT
   Customer.CusID,
   Customer.Name,
   CustomerCar.CusCarID,
   CustomerCar.Car
FROM
   Customer, CustomerCar
WHERE
   Customer.CusID = CustomerCar.CusID