var days:string; begin days:=datetimetostr(DateTimePicker1.Date);//获得日期 ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.add('insert into mytable(Stu_ID,Stu_Time) Values(:Stu_ID,:Stu_Time)'); ADOQuery1.Parameters.ParamValues['Stu_ID']:= EditStuID.Text; ADOQuery1.Parameters.ParamValues['Stu_Time']:= strtodatetime(days); // ADOQuery1.Parameters.ParamValues['Stu_Time']:= DateTimePicker1.Date;//这样连编译都不行 //上面这句引起插入不成功，表中Stu_Time为datetime类型，如改为char,int都正常 ADOQuery1.ExecSQL; end; 我是在delphi2005下: (1).ADOQuery1.Parameters.ParamValues['Stu_Time'].AsDatetime := DateTimePicker1.Datetime //没有asdatetime方法 (2).ADOQuery1.Parameters.ParamValues['Stu_Time'].value:= DateTimePicker1.Date; //没有value方法 (3).ADOQuery1.Parameters.ParamByName['Stu_Time']:= DateTimePicker1.Date; 告知: Incpmpatible type "variant" and "Tdate"

改成如下試試:

var
  days: string;
begin
  // ...
  ADOQuery1.Parameters.ParamValues['Stu_Time'] := DateToStr(DateTimePicker1.Date);
  // 或(格式看你自己)
  ADOQuery1.Parameters.ParamValues['Stu_Time'] := FormatDateTime('YYYY/MM/DD', DateTimePicker1.Date);

--