关于Access数据库的几个问题?(cxj_access)

Question

1、query1.sql.text:='select * from a1 where a1.name='''+query2.fieldbyname('name').asstring+'''';
2、不能移动，在a2中新建
    query2.sql.text:='CREATE TABLE publishers( pub_id  char(4), pub_name      varchar(40))'//这是建表的一个例子
3、可以
4、还是请别人回答吧

Answer 1

3.
procedure tform1.create_tbl;
var tbl:ttable;
begin
  tbl:=ttable.create(self); // 如没有声明中的"tform1."，Delphi不认这个self
  with tbl do
  begin
    datebasename:='dbdemos';
    tablename:='my_tbl';
    with fielddefs do
    begin
      clear;
      add('No',ftInteger,0,false);
      add('Name',ftString,0,false);
      ...
    end;
    with indexdefs do
    begin
      clear;
      add('primary','no',[ixPrimary,ixUnique]);
      ...
    end;
    CreateTable;
  end;
end; 4.代码实现压缩
var 
  dao: OLEVariant; 
begin 
  dao := CreateOleObject('DAO.DBEngine.35'); 
  dao.CompactDatabase('d:\yourDatabaseName.mdb', 
'd:\yourNewCompactedDatabaseName.mdb'); 
end; 
修复Access数据库
var 
  dao: OLEVariant; 
begin 
  dao := CreateOleObject('DAO.DBEngine.35'); 
  dao.RepairDatabase('d:\yourDatabaseName.mdb'); 
end;