获取SQL Server服务器列表的几种方法

        TmpPos := AnsiPos('''','''', TmpStr);

        if TmpPos > 0 then

          AList.Add(Copy(TmpStr, 1, TmpPos - 1))

        else

        begin

          AList.Add(TmpStr);

          TmpStr := '''''''';

        end;

        Delete(TmpStr, 1, TmpPos)

      end;

      Result := True;

    end;

    FreeMem(ConnStrOut, ConnStrOutMax);

  finally

    if Assigned(HDBC) then

    begin

      SQLDisconnect(HDBC);

      SQLFreeHandle(SQL_HANDLE_DBC, HDBC);

      HDBC := nil;

    end;

    if Assigned(HENV) then

    begin

      SQLFreeHandle(SQL_HANDLE_ENV, HENV);

      HENV := nil;

    end;

  end;

end;

                                                        张伟(Alan) Alan@cnvcl.org

上一页  [1] [2] [3] [4] [5] [6] [7] [8] 

Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved.
闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18