由于我想让我程序中数据库联接部分随服务器名、用户名、登录帐户、密码的不同而让用户根据实际情况来设置。但现在有一个问题是:第一次运行时,总是出现一个错误提示对话框提示内容为“[DBNETLIB][ConnectionOpen(Connect()).]SQL Server不存在或拒绝访问。”请问怎样才能让程序运行时不出现这个错误提示?

解决方案 »

  1.   

    编译前或者运行前先把Connection控件的Active设为FALSE,绝对是这个问题。
      

  2.   

    try
      AdoConnection.Connected:=true;
    except
      Showmessage('error');
    end;
    你在delphi下连接不上服务器会有你说的错误出现,再运行一次则出现except后面的提示信息,但是你在运行exe文件时错误则没有了,出现except后面的提示信息
      

  3.   

    try
      AdoConnection.Connected:=true;
    except
      on e: exception do Showmessage('error');
    end;
      

  4.   

    写个空代码就行了
    try
    except
    ;
    end;
      

  5.   

    try
      AdoConnection.Connected:=true;
    except
     end;运行时不行。得在exe文件里执行