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没传成功
解决方案 »
- 竟然有这种事
- 关于一个界面刷新速度的问题,想问一下有经验的高手们~
- 请问如何删除从数据库读取的DBGrid的选种内容阿?
- 做过东进语音卡编程的请进!
- 请问各位高手,如何把一个文件夹压缩,并将其作为附件通过email发送出去。谢谢!
- 如何在一个AdoQuery1.BeforPost中,将这次修改或插入cancel掉
- 我用存储过程把数据调到本机,在dbgrid中显示出来了,但我该如何在本机把dbgrid中的数据排序呢,而不是要通过SQL命令去服务器拿资料
- 想探讨一下局域网中网络教学——将老师机的屏幕发到学生机的问题。
- 声讨问了问题不给分的SB!
- 动态生成webbrowser控件如何获得事件?
- 征集一线Delphi工作经验
- 可以把exe文件 做成ocx吗??
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;