如何判断ＳＱＬ中一个表是否存在.如何判断ＳＱＬ是否已启动,如何屏蔽ＤＥＬＰＨＩ自己的错误提示,如联接一个不存在的表

Question

如何判断ＳＱＬ中一个表是否存在.
如何判断ＳＱＬ是否已启动
如何屏蔽ＤＥＬＰＨＩ自己的错误提示,如联接一个不存在的表.困扰已久的问题,给分100.本来想给３００的但这里一次只能给１００.

Answer 1

//如何判断ＳＱＬ中一个表是否存在.
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[表名]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)
drop table [dbo].[表名]//如何判断ＳＱＬ是否已启动
procedure TForm1.Button1Click(Sender: TObject);
var
han:tHANDLE;
begin
 han := FindWindow(nil,'SQL Server Enterprise Manager');
  if(IsWindow(han))   then
  ShowMessage('SQL 啟動')
  else ShowMessage('SQL沒有啟動');
end;//try
  
  except
     showmessage('联接一个不存在的表')
  end

Answer 2

如何屏蔽ＤＥＬＰＨＩ自己的错误提示,如联接一个不存在的表.用  try   来写自己捕捉异常

Answer 3

if exists(select * from sysobjects where name = '表名') then
beginend;try
  adoquery1.open;
  except
     showmessage('联接一个不存在的表')
  end