DELPHI7 + SQL SERVER 2000 ,通过ODBC连接数据库.系统按功能分了若干模块,其中单独做了一个测试连接程序,创建数据源已经完成,但是无法进行连接结果测试,查了很多资料,都是只介绍了如何创建,而很少有关于测试连接是否成功的资料.后终于找到SQLCONNECT等一系列函数可以完成该功能,但不会使用,又不知道从哪里可以找到使用说明,希望各位大虾帮忙!!!

解决方案 »

  1.   

    测试和正常连接没区别啊procedure btnConnectionTestClick(Sender: TObject);
    var
    adoCon: TADOConnection;
    begin
        adoCon := TADOConnection.Create;
        try
            adoCon.ConnectionString := 'DSN=你建立的数据源名称;UID=sa;PWD=password';
            try
               adoCon.Open;
               showmessage('连接成功');
               adoCon.Close;
            except
               on e:exception do
                  showmessage('连接失败,错误信息为' + #13 + e.Message);
            end;
         finally
            adoCon.Free;
         end;
    end;
      

  2.   

    你误解我的意思了,我这个单做的模块是用来创建odbc的,并且希望它能够在建立好系统DSN后进行连接测试,如果成功,则别的模块可以通过建立的系统DSN与数据库服务器通信.在这个模块上不需要任何数据库控件的.
      

  3.   

    我刚才试着用了ADOCONNECTION 和SQLCONNECTION ,不论我在DSN中设的数据库是否存在都会提示ok。这显然是不正确的,还会误导操作人员。
      

  4.   

    那是不可能的,你自己的程序有问题,我的代码就是 WINDOWS 里 自带的测试功能
      

  5.   

    晕啊
    你的
    adoconnection1.open 或者 adoconnection1.connected := true 呢?
      

  6.   

    容错我没有做,但这些足够说明问题了在某些资料说odbc api 系列函数可以做到,但我不会用sqlconnect  sqldriverconnect …
      

  7.   

    不好意思。忘了可以了但是我还想知道odbc api的资料
      

  8.   

    alexzhang :
         问题已结帐,看一下你的分数吧。谢谢     我刚开始学delphi,希望以后多帮忙!!149189492  我的qq  多联系