我想做个测试连接数据库的函数,程序提示 dbexpress error 但是总是捕捉不到这个错误,var 
        MyConn: TSQLConnection;
begin
       ......
       ......try 
      MyConn.open;
except
      showmessage('连接失败');
end;end;

解决方案 »

  1.   

    你是open的时候错误的么 说不定之前就出错了~
      

  2.   

    有理,把try 写在创建之后.
      

  3.   

    贴上源代码   function TMyDBConnect_class.TestConn(dbuser,dbpwd,dbdatabase,dbhost: string): boolean;
       var
               MyConn: TSQLConnection;
       begin        dbuser :='User_Name=' + dbuser;
            dbpwd :='Password=' + dbpwd;
            dbdatabase :='Database=' + dbdatabase;
            dbhost :='HostName=' + dbhost;        MyConn := TSQLConnection.Create(nil);
            MyConn.DriverName := 'dbxmysql';
            MyConn.GetDriverFunc := 'getSQLDriverMYSQL50';
            MyConn.LibraryName :='dbxopenmysql50.dll';
            MyConn.VendorLib :='libmysql.dll';
            MyConn.Params.Append(dbdatabase);
            MyConn.Params.Append(dbuser);
            MyConn.Params.Append(dbpwd);
            MyConn.Params.Append(dbhost);
            MyConn.Open;
          try
    //        result :=true;
             showmessage('OK');      except        showmessage('false');
    //        result :=false;      end;
       end;
    end.
      

  4.   

    把try 放在open前后还是一样