Запрос с параметром

AdoQuery2.SQL.Text:='Update Test Set Date=:@Parametr1 Where Number='+#39+Edit4.Text+#39;
AdoQuery2.Parameters.ParamByName('@Parametr1').Value :='10.11.1990';
AdoQuery2.ExecSql;

var
  connection: TADOConnection;
  updateQuery: TADOQuery;
begin
  connection := TADOConnection.Create(Owner);
  connection.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\db.mdb;Persist Security Info=False';
  connection.LoginPrompt := False;
  connection.Connected := True;
  updateQuery := TADOQuery.Create(Owner);
  updateQuery.Connection := connection;
  updateQuery.SQL.Text := 'UPDATE test SET [Date]=:@Parametr1 WHERE number=1';
  updateQuery.Parameters.ParamByName('@Parametr1').Value := '10.11.1990';
  updateQuery.ExecSQL;
end;

AdoQuery2.SQL.Text:='Update Test Set Date=:Parametr1 Where Number=:Parametr2';
AdoQuery2.Parameters.ParamByName('Parametr1').Value := StrToDateTime('10.11.1990');
AdoQuery2.Parameters.ParamByName('Parametr2').Value := QuotedStr(Edit4.Text);  // Если Number строковый
AdoQuery2.Parameters.ParamByName('Parametr2').Value := Edit4.Text;  // Если Number целый
AdoQuery2.Parameters.ParamByName('Parametr2').Value := StrToFloat(Edit4.Text);  // Если Number дроб
AdoQuery2.ExecSql;