查询数据

Question

请问各位高手，我想不用SQL-SERVER语句查询数据即
WITH ADOQUERY1 DO
 BEGIN
 CLOSE；
SQL。CLEAR；
SQL。ADD（‘SELECT * FROM T—BUS WHERE C—CH=’‘’+EDIT1。TEXT+‘’‘’）；
OPEN；
 END；
我不想用ADOQUERY查询，我想用ADOTABLE控件取代上面的功能，不知怎么写，请各们高手指教

Answer 1

AdoTable.Filter := 'c-ch = ''' + Edit.Text + ''''
AdoTable.Filtered := True;

Answer 2

with ADODataSet1 do
  begin
    Close;
    CommandText:='';
    Open;
  end;

Answer 3

WITH ADOQUERY1 DO
 BEGIN
 CLOSE；
SQL。CLEAR；
SQL。ADD（‘SELECT * FROM T—BUS WHERE C—CH like’‘%’+EDIT1。TEXT+‘’‘%’）；
OPEN；
 END；
以上是模糊查询，我要用ADOTABLE实现模糊查询该怎么写，请指教

Answer 4

with ADOTable1 do
begin 
close
Filtered:=false;
filter=('SQL语句'）;
Filtered:=true;
end;

Answer 5

with adotable1 do
  begin
   close;
   filtered:=false;
   filter:=('select * from t_bus where c_ch ='''+edit1.text+'''');
   filtered:=true;
模糊查询不知错在哪里，请指教

Answer 6

with adotable1 do
  begin
   close;
   filtered:=false;
   filter:=('c_ch ='+''''+edit1.text+'''');
   filtered:=true;
   Active:=true;
应该是可以了，我在我这可以了！
不好意思，开始搞错了

Answer 7

我要实现的模糊查询的
WITH ADOQUERY1 DO
 BEGIN
 CLOSE；
SQL。CLEAR；
SQL。ADD（‘SELECT * FROM T—BUS WHERE C—CH like’‘%’+EDIT1。TEXT+‘’‘%’）；
OPEN；
 END；
用ADOTABLE取代的写法该怎行写呀