例:
Var
P_1:TDateTime;
Dtm_1.ADOQ_1.SQL.Add('Update record_use set Department_Provide = '+''''+ComboBox1.Text+''''+',DateTime_Provide = :P_1 where No_Tickets between '+Inttostr(n)+ ' and ' +Inttostr(m));
Dtm_1.ADOQ_1.Parameters.ParamByName('P_1').Value:=Now;
sql语句中参数的使用,可以解决数据库中不同数据类型的数据的录入。