Microsoft KB Archive/173991

= BUG: Error Disassociating Resultset from rdoConnection =

Article ID: 173991

Article Last Modified on 11/5/2003

-

APPLIES TO


 * Microsoft Visual Basic 5.0 Enterprise Edition
 * Microsoft Visual Basic 6.0 Enterprise Edition

-



This article was previously published under Q173991



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 l ocktype 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.



Steps to Reproduce the Behavior
 Create a new project. Click References on the Project menu, and check Microsoft Remote Data Object 2.0. Add a Command Button to Form1.  Add the following code to the General Declarations of Form1:

Note You must change Uid= and Pwd= to the appropriate username and password before you run this code. Make sure that the changed uid has the appropriate permissions to perform the required operations on the specified database. 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= ;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  Press the F5 key to run the project. Click Command1. You will receive the run-time error '40070' when setting the ActiveConnection to Nothing.</li></ol>

Keywords: kbbug kbrdo kbpending KB173991

-

[mailto:TECHNET@MICROSOFT.COM Send feedback to Microsoft]

© Microsoft Corporation. All rights reserved.