procedure Tform_main.SQLConn;
begin    with dm.ADOConnection1 do
    begin        Connected := False;
        ConnectionString := Format(ADOLinkString,[g.Password,g.UserName,DatabaseName,ServerName]);//初始连接参数
        //showmessage(ConnectionString);
        try
          dm.ADOConnection1.Open
        except
          showmessage('系统配置出错,请进行数据库连接配置!');
          F_Config:=TF_Config.create(application) ; //建立
          F_Config.showmodal ;                   //以有模式方式显示
          F_Config.free ;                        //释放窗体
        end;
        ........
    end;
end; 为什么我加了try,还是出现错误提示。当无法连接到数据库时出现一个SQLserver连接失败的窗口,而不 是出现我给出的提示,然后再加载上配置窗口。。请问这是什么原因呢。???

解决方案 »

  1.   

    在程序编译发布前先把ADOConnection中的连接字符串去掉,或把Connected属性改为False就可以了
      

  2.   

    在程序编译发布前先把ADOConnection中的连接字符串已经为空,Connected属性也改为False了。。
      

  3.   

    你不要在delphi里直接点运行,编译后在外面直接打开exe文件试试。
      

  4.   

    应该是ConnectionString := Format(ADOLinkString,[g.Password,g.UserName,DatabaseName,ServerName]);//初始连接参数
    有问题,再者打开数据库最好用 CONNECTED:=TRUE