0

データベースがあり、TYPE = RKE の部品番号をコンボボックスに入力したいのですが、このコードを実行するとエラーが発生します

パラメータ xxx にはデフォルト値がありません。

    procedure TFMain.ComboTypeClick(Sender: TObject);
var
  Qry:TADOQuery;
begin
    Qry:=TADOQuery.Create(self);
  try
    Qry.Connection:=PronetConnection;  //pronet is adoconnection
    Qry.SQL.Clear;
    Qry.SQL.Add('Select PartNumber FROM PNet WHERE Type = RKE');
    Qry.Open;
    with Qry do
    begin
      First;
      ComboType.Items.Clear;
      while not eof do
      begin
        ComboNumber.Items.Add(FieldByName('PartNumber').AsString);
        Next;
      end;
    end;
  finally
    Qry.Active:=False;
    Qry.Free;
  end;
end;
4

1 に答える 1

1

エラーはSQLスクリプトにあると思います。

Qry.SQL.Add('Select PartNumber FROM PNet WHERE Type = '+QuotedStr('RKE'));
于 2012-07-31T07:30:05.300 に答える