说了的都有分!

解决方案 »

  1.   

    try
      连一下
      showmessage('noproblem');
    except
      showmessage('wrong');
    end;
      

  2.   

    你是想试试能不能连接上去,是吗?
    try
      ADOConnection.Open;
      ShowMessage('数据库连接成功');
    except
      ShowMessage('无法连接到数据库');
    end;
      

  3.   

    try
       ADOConnection1.Open;
       shoemessage('连接成功');
    except on EDataBaseError do
       showmessage('连接失败');
    end;
      

  4.   

    不好意思,或者是我说的不够明白,我指的是在SQL查询分析器里面检测数据库是否有问题?
      

  5.   

    var
      sConn:string;
    begin
      sConn := 'Provider=OraOLEDB.Oracle.1;Password=user02;Persist Security  
                Info=True;User ID=user02;Data Source=demo';//我用的数据库是Oracle
      if DataModule1.connOracle.Connected then
          DataModule1.connOracle.Close;
       DataModule1.connOracle.ConnectionString := sConn;
       DataModule1.connOracle.LoginPrompt := False;
       try
          DataModule1.connOracle.Open;
       except
          application.MessageBox('连接数据库出错','提示',mb_ok);
          application.Terminate ;
       end;
    end;
    希望对你有用啊
      

  6.   

    dbcc checkdb 看一下T-sql的帮助文件,很简单的。dbcc的几大功能都相当的有用。