try
    ADOQuery1.SQL.Text:='select * from No_amm';
    ADOQuery1.Open;
    Showmessage('存在表No_amm');
  except
    Showmessage('不存在表No_amm');
  end;

解决方案 »

  1.   

    用这条语句判断啊
      IF NOT EXISTS (SELECT * FROM SYSOBJECTS WHERE ID = OBJECT_ID('DBO.No_amm))
      

  2.   

    在delphi中
    with table1 do
    begin
    active:=false;
    databasename:='aaa';
    tablename:='table1';
    if not tavle1.exists then
    ......
      

  3.   

    procedure TForm1.Button1Click(Sender: TObject);
    var
      s:tstrings;
      i:integer;
      b:boolean;
    begin
      s:=tstringlist.Create;
      adoconnection1.GetTableNames(s,false);
      memo1.Lines:=s;
      for i:=0 to s.count-1 do
        begin
          if s.Strings[i]='No_amm' then
            begin
              b:=true;
              break;
            end;
        end;
      if b then
        label1.Caption:='No_amm';
    end;