SQL服务器连接有关问题

SQL服务器连接问题
程序正常情况下连接SQLserver2005没有问题，如果SQLserver2005服务器连接失败，程序在进程中无法关闭，就只能调出进程管理，手动结束进程才行。我在DM下添加的ADO控件，其他窗体都是调用DM的，没有自己连库的情况出现，所有ADOconnection，adoquery控件都在DM上面放置的，在DM的Create下代码如下，是不是代码有问题？还是这么做不妥呀？？请教了

procedure TWMG_DM.DataModuleCreate(Sender: TObject);
var
con:string;
begin

  CNN.Connected:=False;
  CNN.LoginPrompt:=False;    
  CNN.ConnectionTimeout:=10; 
  con:='Provider=SQLOLEDB.1;'+'Password=123456;Persist Security Info=false;'+'User ID=sa;Initial Catalog=MgsebSQL;'+'Data Source=9POIIOA26626E2\SQLEXPRESS';
  CNN.ConnectionString :=con;

    try
      CNN.Connected :=true;
    except
      application.MessageBox('连接数据库失败！请查看服务器是否开启','提示',0+64) ;
      CNN.Connected :=false;//这句好像不加也一样吧
      Application.Terminate; 
      Exit;
    end;
end;

哪位大神有简单点的方法做个连库失败后退出的例子不？ sql服务器数据库
[解决办法]
你是不是用了调试模式运行程序啊，without debug 运行程序看看

另外
Application.Terminate;
Exit; // 有上面终止程序了，这个exit执行不到，多余

SQL服务器连接有关问题

热点推荐