Function AccisTable_exist(AdoCON:TADOConnection; tabname:string):boolean;
//检测 TabName 数据表是否存在
var
index : integer;
SL : TStringList;
begin
result:=false;
SL := TStringList.Create;
try
ADOCon.GetTableNames(SL,False);
except
raise Exception.Create('装载源库列表错误!错误特征码2003');
end;
for index := 0 to (SL.Count - 1) do
if SL[index]=tabname then result:=true;
SL.free;
end;
转载于:https://www.cnblogs.com/dpsw/archive/2011/08/14/2137949.html