delphi order by排序问题:请各位帮检查一写法有何错误,谢谢

wallyhost5 2012-05-17 06:44:46
procedure TForm8.Button2Click(Sender: TObject);
begin
ADOQuery1.close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.add('select * from insp order by');
ADOQuery1.SQL.add(ADOQuery1.FieldCount.Items[ComBoBox1.ItemIndex].FieldName);
if CheckBox1.Checked then
begin
ADOQuery1.SQL.Add('Desc');
end;
end;

请帮我看下红色的一行有什么错误,谢谢!
...全文
110 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
kaikai_kk 2012-05-17
  • 打赏
  • 举报
回复
其实这样写是有缺陷的,要取ADOQuery1的列
1.必须是ADOQuery1在打开状态
2.或者是已经添加进来的列(即在设计期,双击ADOQuery1,右键Add Fields,把列名添加进来)

所以改进办法:
可以按上面说的第2点,先添加进来;要不然就改变ComBoBox1值
wallyhost5 2012-05-17
  • 打赏
  • 举报
回复
感谢,不管test未test,先加分!
kaikai_kk 2012-05-17
  • 打赏
  • 举报
回复
ADOQuery1.SQL.add(ADOQuery1.Fields[ComBoBox1.ItemIndex].FieldName);

2,497

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 数据库相关
社区管理员
  • 数据库相关社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧