如何检测使用ADO连接的ACCESS中的数据集是否存在？

Question

我的意思是首先检测一下ACCESS中的数据集（如TABLE1)是否存在，如果存在就删除它，并重新生成一个新的表。

Answer 1

http://www.lyu.edu.cn/home/yss/ado/mdmthopenschema.htm

Answer 2

uses Variants;
procedure TFmGetSchool.Button1Click(Sender: TObject);
var
  str : string;
  i : integer;
begin
  ADOConnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;'+
    'Data Source='+ ExtractFileDir(GetModuleName(0)) + '\mydb.mdb;'+
    'Persist Security Info=False';//Access数据库
  ADOConnection1.Open;
  qry.Connection := ADOConnection1;
  ADOConnection1.OpenSchema(siTables,EmptyParam,EmptyParam,ADODataSet1);
  while not ADODataSet1.eof do
   begin
    str := '';
    for i:= 0 to ADODataSet1.FieldCount - 1 do
    begin
      str := str + ' ' + ADODataSet1.Fields[i].asstring;
    end;
    showmessage(str);
    ADODataSet1.Next;
   end;
end;