问下关于adotable1的问题

[yuxueyou]

procedure TForm1.Button7Click(Sender: TObject);
var
ext:string;
jpegimage:tjpegimage;
begin

try
adotable1.Open;
adotable1.Next;
if adotable1.Eof then
adotable1.First;

image3.Picture.Graphic :=nil;
ext:=adotable1.fieldbyname('isbmp').AsString;
Edit1.Text:=adotable1.fieldbyname('ID').AsString;
if ext='1' then
image3.Picture.bitmap.Assign(adotable1.fieldbyname('image1'))
else if ext='0' then
begin
jpegimage := tjpegimage.Create ;
try
jpegimage.Assign(adotable1.fieldbyname('image1'));
image3.Picture.Graphic :=jpegimage;
finally
jpegimage.Free ;
end; //end try
end;
except
end;

end;
数据库上的表有1234四个图片，他们分别对应发ID为1234，上面的程序实现按按钮后图片依次的显示1234个顺序。
我想问如果我想按下按钮它能把我要的ID号的图片直接挑出来吗？就向ADOQuery1.sql.text:='select *from aa where id='1'';这样用adotable1 怎么写到有where这样的条件判断？

[de410]

加个edit组件，里面填写你想要的ID
ADOQuery1.sql.add('select * from where id='+''+edit1.text+'');

[yuxueyou]

adotable1我用的是这个组件不是ADOQuery1

[starluck]

[Quote=引用楼主 yuxueyou 的回复:]
procedure TForm1.Button7Click(Sender: TObject);
var
ext:string;
jpegimage:tjpegimage;
begin

try
  adotable1.Open;
  adotable1.Next;
  if adotable1.Eof then
  adotable1.First;

  image3.Picture.Graphic :=nil;
  ext:=adotable1.fieldbyname('isbmp').AsString;
  Edit1.Text:=adotable1.fieldbyname('ID').AsString;
if ext='1' then
  image3.Picture.bitmap.Assign(adotable1.fieldbyname('image1'))
else if ext='0' then
  begin
  jpegimage := tjpegimage.Create ;
  try
    jpegimage.Assign(adotable1.fieldbyname('image1'));
    image3.Picture.Graphic :=jpegimage;
  finally
  jpegimage.Free ;
  end; //end try
  end;
  except
end;

end;
数据库上的表有1234四个图片，他们分别对应发ID为1234，上面的程序实现按按钮后图片依次的显示1234个顺序。
我想问如果我想按下按钮它能把我要的ID号的图片直接挑出来吗？就向ADOQuery1.sql.text:='select *from aa where id='1'';这样用adotable1 怎么写到有where这样的条件判断？
[/Quote]

Table 就用　 Filter