一只莱鸟的大问题，关于AdoQuery的

Question

> procedure TForm1.Button1Click(Sender: TObject);
> var a1:string;
> begin
> adoquery1.Close;
> adoquery1.SQL.Clear;
> adoquery1.SQL.Add('select count(*) from cpersonms where in_date<:a1');
> adoquery1.Parameters[0].Value:=datetostr(datetimepicker1.date);
> adoquery1.Open;
> end;
> 
> 系统会提示'Optional feature not implemented'错误，如果把上面改成：
> 
> procedure TForm1.Button1Click(Sender: TObject);
> var a1:Tdatetime;
> begin
> adoquery1.Close;
> adoquery1.SQL.Clear;
> adoquery1.SQL.Add('select count(*) from cpersonms where in_date<:a1');
> adoquery1.Parameters[0].Value:=datetimepicker1.date;
> adoquery1.Open;
> end;
> 也会出现同样的错误，不知为什么。

Answer 1

adoquery1.Open;改为
adoquery1.execsql;

Answer 2

adoquery1.Parameters[0].asdatetime:=datetimepicker1.date;

Answer 3

a1不用先声明。把var a1:String; 和 var a1:TDateTime;删去即可
adoquery1.open 不用改为adoquery1.execsql;