ADO:
var
List: TStringList;
begin
List:=TStringList.Create;
try
ADOConnection.GetTableNames(List, True);
if List.IndexOf('TableNaem')=-1 then
//不存在
else
//存在
finally
List.Free
end
end
var
List: TStringList;
begin
List:=TStringList.Create;
try
ADOConnection.GetTableNames(List, True);
if List.IndexOf('TableNaem')=-1 then
//不存在
else
//存在
finally
List.Free
end
end