求SQL语句，
我有个DBGrid在窗体上，可以按不同方式模糊查询的，但我有时要想在查询后显示全部，怎么写“显示全部”这个按钮的OnClick代码，用SQL语句。查询的代码如下：
begin
if RadioGroup1.ItemIndex = 0 then
begin
ADODataSet1.Close;
ADODataSet1.Filtered := False;
ADODataSet1.CommandText := 'select * From s_ht where ht_id like ''% ' + Edit1.Text + ' %''';
ADODataSet1.Open;
end
else if RadioGroup1.ItemIndex = 1 then
begin
ADODataSet1.Close;
ADODataSet1.Filtered := False;
ADODataSet1.CommandText := 'select * From s_ht where kh_khmc like ''%' + Edit1.Text + '%''';
ADODataSet1.Open;
end
else if RadioGroup1.ItemIndex = 2 then
begin
ADODataSet1.Close;
ADODataSet1.Filtered := False;
ADODataSet1.CommandText := 'select * From s_ht where ht_lxr like ''%' + Edit1.Text + '%''';
ADODataSet1.Open;
end
end;
还有顺便问一下
ADODataSet1.Filtered:=False;这样写“显示全部”这个按钮的OnClick代码为什么不可以？
问题点数：50、回复次数：4Top
1 楼danielrong（星浪子）回复于 2003-12-02 22:58:10 得分 0
ADODataSet1.Filtered:=False
这样是关闭了过滤,你可以试着刷新一下你的ADODATASET;
或者先关一次,再打开一次。都行。Top
2 楼zhujiangxiong（）回复于 2003-12-02 23:04:06 得分 0
ADODataSet1.Close;
ADODataSet1.CommandText := 'select * From s_ht'
ADODataSet1.Open;
这样也不行Top
3 楼zsjzwj（北极熊）回复于 2003-12-02 23:48:17 得分 0
ADODataSet1.Close;
ADODataSet1.CommandText := 'select * From s_ht' <------少了一个 ; 当然不行了
ADODataSet1.Open;
Top
4 楼zsjzwj（北极熊）回复于 2003-12-02 23:51:57 得分 50
ADODataSet1.CommandText := 'select * From s_ht where kh_khmc like ''%' + Edit1.Text + '%''';
改为:
ADODataSet1.CommandText := 'select * From s_ht where kh_khmc like '+'''%' + Edit1.Text + '%''';
或
ADODataSet1.CommandText := 'select * From s_ht where kh_khmc like '+QuotedStr('%' + Edit1.Text + '%');
这样才对.Top
相关问题
关键词
得分解答快速导航
相关链接
广告也精彩
反馈
