with ADOQuery1 do
begin
close;
with ADOQuery1.SQL do begin
Clear;
Add('select top 20 xpidate,xpinumber,xpibr from xpi') ;
Add('where xpidate=:rq1 order by xpidate desc') ;
end;
ADOQuery1.Parameters.ParamByName('rq1').Value := rrqq1;
ADOQuery1.Prepared;
ADOQuery1.Open;
end;
为什么rrqq1没传成功
begin
close;
with ADOQuery1.SQL do begin
Clear;
Add('select top 20 xpidate,xpinumber,xpibr from xpi') ;
Add('where xpidate=:rq1 order by xpidate desc') ;
end;
ADOQuery1.Parameters.ParamByName('rq1').Value := rrqq1;
ADOQuery1.Prepared;
ADOQuery1.Open;
end;
为什么rrqq1没传成功
Try
close;
Sql.Text:='select top 20 xpidate,xpinumber,xpibr from xpi ' ;
Sql.Add('where xpidate=:rq1 order by xpidate desc') ;
Parameters.ParamByName('rq1').Value := rrqq1;
Open;
Except
on E:Exception do ShowMessge('数据库查许出错!'+#13+E.Message);
where xpidate=:rq1 order by xpidate desc'order by 好像没什么意义啊
取出来了数xpidate都事一样的
所以排序没有意义了!!
begin
close;
with ADOQuery1.SQL do begin
Clear;
Add('select top 20 xpidate,xpinumber,xpibr from xpi') ;
Add('where xpidate='+rrqq1+' order by xpidate desc') ;
end;
Open;
end;