DOCUMENT:Q173991  18-SEP-1997  [vbwin]
TITLE   :BUG: Error Disassociating Resultset from rdoConnection
PRODUCT :Microsoft Visual Basic for Windows
PROD/VER:WINDOWS:5.0
OPER/SYS:NT Win95 WINDOWS
KEYWORDS:vb5all

======================================================================
---------------------------------------------------------------------
The information in this article applies to:

 - Microsoft Visual Basic Enterprise Edition for Windows, version 5.0
   on the following platforms: NT, Win95
---------------------------------------------------------------------

SYMPTOMS
========

Attempting to disassociate a Resultset based on a parameterized rdoQuery
object by setting the Resultset's ActiveConnection property to Nothing will
result in an error:

   Run-Time Error '40070':
   This property or method is not supported when using the currently
   selected cursor library.

CAUSE
=====

This problem occurs when the Resultset is based on a parameterized rdoQuery
object. It also occurs using the UserConnection object with the same
circumstances.

RESOLUTION
==========

The only workaround is to not use a parameterized rdoQuery object to create
a Resultset.

You can set the Resultset ActiveConnection property to Nothing if:

- The Resultset is based on a SQL Select statement or a non-parameter
  rdoQuery,

  - and -

- the CursorDriver is rdUseClientBatch, the type is rdOpenStatic, and the
  locktype is rdConcurBatch.

STATUS
======

Microsoft has confirmed this to be a bug in the Microsoft products
listed at the beginning of this article. We are researching this
bug and will post new information here in the Microsoft Knowledge
Base as it becomes available.

MORE INFORMATION
================

Steps to Reproduce Behavior
---------------------------

1. Create a new project.

2. Click References on the Project menu, and check Microsoft Remote Data
   Object 2.0.

3. Add a Command Button to Form1.

4. Add the following code to the General Declarations of Form1:

      Private Sub Command1_Click()
         Dim Rs As rdoResultset
         Dim Cn As rdoConnection
         Dim strConnect As String
         Dim Query1 As rdoQuery

         strConnect = "Driver={SQL Server};Server=MyServer;" & _
         "Database=pubs;Uid=sa;Pwd="
         rdoEnvironments(0).CursorDriver = rdUseClientBatch
         Set Cn = rdoEnvironments(0).OpenConnection(dsName:="", _
         Prompt:=rdDriverNoPrompt, ReadOnly:=False, Connect:=strConnect)

         'To run without error, uncomment the next line and comment the
         'following 2 lines.
         'Set Query1 = Cn.CreateQuery("Query1", _
           "SELECT au_id, au_lname, au_fname FROM authors")
         Set Query1 = Cn.CreateQuery("Query1", _
           "SELECT au_id, au_lname, au_fname FROM authors WHERE au_id = ?")
         Cn.rdoQueries("Query1").rdoParameters(0) = "238-95-7766"

         Set Rs = Cn.rdoQueries("Query1").OpenResultset(rdOpenStatic, _
           rdConcurBatch)
         Set Rs.ActiveConnection = Nothing       ' This causes the error
         Rs.MoveLast
         Rs.MoveFirst
           Do Until Rs.EOF
           Debug.Print Rs(1)
           Rs.MoveNext
         Loop
         Cn.Close
      End Sub

5. Press the F5 key to run the project. Click Command1. You will receive
   the run-time error '40070' when setting the ActiveConnection to Nothing.
======================================================================
Keywords          : vb5all
Version           : WINDOWS:5.0
Platform          : NT Win95 WINDOWS
Issue type        : kbbug

=============================================================================

THE INFORMATION PROVIDED IN THE MICROSOFT KNOWLEDGE BASE IS
PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND.  MICROSOFT DISCLAIMS
ALL WARRANTIES, EITHER EXPRESS OR IMPLIED, INCLUDING THE WARRANTIES
OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.  IN NO
EVENT SHALL MICROSOFT CORPORATION OR ITS SUPPLIERS BE LIABLE FOR
ANY DAMAGES WHATSOEVER INCLUDING DIRECT, INDIRECT, INCIDENTAL,
CONSEQUENTIAL, LOSS OF BUSINESS PROFITS OR SPECIAL DAMAGES, EVEN IF
MICROSOFT CORPORATION OR ITS SUPPLIERS HAVE BEEN ADVISED OF THE
POSSIBILITY OF SUCH DAMAGES.  SOME STATES DO NOT ALLOW THE EXCLUSION
OR LIMITATION OF LIABILITY FOR CONSEQUENTIAL OR INCIDENTAL DAMAGES
SO THE FOREGOING LIMITATION MAY NOT APPLY.

Copyright Microsoft Corporation 1997.