如何确定Access数据库中存在某一个已知名的表

function IsTableExist(TableName:String):Boolean
var
MyStringList:TStrings;
begin
MyStringList := TStringList.Create;
try
ADOConnection1.GetTableNames(MyStringList, False);
if MyStringList.IndexofName(TableName)=-1 then
Restlt:=FALSE
else
Result:=TRUE;
finally
MyStringList.Free;
end;
end;

posted @ 2013-05-01 16:45  小天1981  阅读(176)  评论(0编辑  收藏  举报