Delphi中，如何将两个表对比关联的ID，把A表ID=B表ID的A表的X字段值显示在标签Memo1上

Question

两个表：
表A，字段id和x
表B：字段id 两个表对比关联的ID，把A表ID=B表ID的A表的X字段值显示在标签Memo1上，A表和B表的ID记录是唯一的，不重复，所以能精确到单元格的一个值。
Delphi访问Access问题，如果不用组件能实现吗？如果用组件一般用什么组件来实现？用最普遍的方法来实现。不用组件又如何实现呢？ 

Answer 1

select a.id,a.x from a,b where a.id=b.idDelphi访问Access？应该可以使用ado吧，ado是win自带的了

Answer 2

拉一个adoquery1,button1,memo1
双击adoquery1的connectionstring属性,点build连接好Access
双击button1,onclick代码中写:
with adoquery1 do
begin
  close;
  sql.text:='select a.id,a.x from a,b where a.id=b.id';
  open;
  memo1.clear;
  while not eof
  begin
    memo1.lines.add(fieldbyname('x').asstring);
    next;
  end;
end;看看效果吧