如何将判断ACCESS中的表存在， 并将它删除???

Question

要判断 ACCESS 数据库中的一个表  ,如果它存在就执行 删除命令。如果不存在就不执行。

Answer 1

写一函数吗！
例如：
function Tbzda.TableExists(const TableName: string): Boolean;
var
  MyStringList: TStrings;
  i: integer;
begin
  Result := False;
  MyStringList := TStringList.Create;
  try
    DM.ADOConnection2.GetTableNames(MyStringList, False);
    with MyStringList do
    begin
    //  i := count;
      for i := 0 to Count - 1 do
      begin
        if CompareText(MyStringList.Strings[i], TableName) = 0 then //不分大小写
        begin
          Result := True;
          Exit;
        end;
      end;
    end;
  finally
    MyStringList.Free;
  end;
end;此函数能判断出此表是否存在。
用sql：dorp table 表名  删除此表