如果使用ADOConntion连接数据库,可以使用ADOConnection的GetTableNames方法获取数据库中的所有表名称(可以包括系统表,也可以不包括系统表),然后判断返回的结果中是否有Table1就行了
procedure TForm1.ADOConntion1AfterConnect(Sender: TObject);
var
TableNames: TStrings;
begin
TableNames := TStringList.Create;
ADOContion1.GetTableNames(TableNames, True); //True为返回系统表名称,False只返回用户表
if Pos(UpperCase('Table1'), UpperCase(TableNames.Text)) > 0 then
ShowMessage('Table1存在');
TableNames.Free;
end;