access数据库里有许多表，我要如何连接显示并查看？矮子兵

Question

access数据库里有许多表，我要如何连接显示并查看？

Answer 1

用ADO连接ADOConnection.GetTableNames（）就可以得到所有的表名
然后就可以在QUERY或TABLE中连接表了
看看下面这个例子function TDM.MyTableExists(ATableName: String): Boolean;  //判断给定表是否存在
var
  SL: TStrings;
  I: Integer;
  S: String;
begin
  Result := False;
  S := UpperCase(ATableName);
  SL := TStringList.Create;
  try
    DM.ADOConnection.GetTableNames(SL, False); //取得表名
    for I := 0 to (SL.Count - 1) do
    begin
      if UpperCase(SL[I])= S then
      begin
        Result := True;
        Break;
      end;{if}
    end;{for}
  finally
    SL.Free;
  end;{try}
end;