date参数没有默认值

Question

我一直认为我的sdate没有价值。

procedure TForm1.Button12Click(Sender: TObject);
var
  sdate : string;
begin
  sDate := inputbox('Date', 'Enter Date', '');
  CDQuery.Active := False;
  CDQuery.SQL.Text := 'Select Ownername, DateOfBirth from Owner_Table where DateOfBirth < Datevalue(sdate)';
  CDQuery.Active := True;
end;

Answer 1

您没有将Date与SQL语句连接起来。你只需将它放在字符串中。 你需要做这样的事情：

  sDate := inputbox('Date', 'Enter Date', '');
  CDQuery.Active := False;
  CDQuery.SQL.Text := 'Select Ownername, DateOfBirth from Owner_Table where DateOfBirth < DateValue(:sdate)';
  CDQuery.Parameters.ParamByName('sdate').Value := sDate;
  CDQuery.Active := True;