BUG: Error Disassociating Resultset from rdoConnection

• 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 -

  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