try
   connection:=true;
except
   showmessage('数据库连接失败')

解决方案 »

  1.   

    1, try connected 
       except
        没有连接
       end2,SELECT *FROM SYSOBJECTS 表
       在MASTER 库中
      

  2.   

    SQL Server已经运行后,判断某个数据库的存在。
    什么叫数据库已经调入程序中?use ***?
      

  3.   

    try
    database.connected:=true; 
    except
    showmessage('false');
    end;
    //用异常捕捉是否连接数据库
    用Tsession可以读取所有的表再判断是否存在(先赋给Tstringlist后判断)。
      

  4.   

    可以用连接数据库的方式来试一下
    try
      database.connected:=true; 
    except
      showmessage('无法连接数据库');
    end;
      

  5.   

    我连接数据库用的是ADO,用ADOConnection.connected := true么?
    我试过了,好象不行的,虽然server已经开了,还是会出错。