sdate Параметр не имеет значения по умолчанию

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

Вы не связали sDate с вашим оператором 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;