怎样在ADO连接下判断表的存在与否?(50分)

BDE的Table控件有一个Exists属性判断表是否存在,但是ADO的ADOTable却没有此属性,
请问有什么解决办法?

ADOConnection1.GetTableNames函数得到所有的表名！

try
对表进行操作
except
表不存在
end;

首先用 ADOConnection1.GetTableNames函数得到所有的表名
然后一个一个的比较。

var
mytables:tstringlist;
begin
mytables:=tstringlist.Create ;
adoconnect.GetTableNames(mytables);
if not (mytables.IndexOf(findtablename)=-1) then
showmessage('find');

谢谢各位提醒,我试了一下,OK
//**********************************************************
//判断数据表是否存在
function TMisData.My_ExistTable(_TableName:String):Boolean;
var
MyList: TStringList;
Index: Integer;
begin
MyList := TStringList.Create;
ADOConnection1.GetTableNames(MyList, False);
try
MyList.Sort; { Find will only work on sorted lists! }
if MyList.Find(_TableName, Index) then
Result:=True
else
Result:=False;
finally
MyList.Free;
end;
end;