データベースがあり、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;