FIX: Creating Fabricated Hierarchical Recordset Fails Using MDAC 2.1SP2 (240341)

SYMPTOMS

When trying to create a fabricated (programmatic) hierarchical recordset using MDAC 2.1 SP2 (build 4202), the following error is generated:

Run-Time error '-2147467259 (80004005)': Unspecified error

This error occurs on the line that sets the child recordset to the child chaptered command. This line of code might look like:

Set rsChild = rsParent("ChildCommand").Value

where:

rsChild is the the child recordet,
rsParent is the parent recordset,
ChildCommand is the child chaptered command.

RESOLUTION

If you are using ADO 2.1 sp2 (build 4202), there is a workaround for this bug; simply add a line of code that sets the ActiveConnection of the parent recordset to Nothing. Your code might look like this:

.........

Set rsParent.ActiveConnection = Nothing   
Set rsChild = rsParent.Fields("ChildCommand").Value

.........

STATUS

Previous releases of MDAC 2.1 did not have this problem.

This bug was corrected in Microsoft Data Access Components 2.5 (MDAC 2.5) and later.

You can download the latest version of Microsoft Data Access Components from the following Microsoft Web site:

http://msdn.microsoft.com/library/default.asp?url=/downloads/list/dataaccess.asp

MORE INFORMATION

Steps to Reproduce Behavior

Start a new project in Visual Basic and select Standard EXE. Form1 is created by default.
At the Visual Basic project, reference the following object library: Microsoft ActiveX Data Objects Library.
Double-click Form1 to open Form1's Code Window.

Dim RS As New Recordset
Dim SubRS As Recordset
       
RS.LockType = adLockBatchOptimistic
RS.Open "SHAPE APPEND NEW adInteger as RecordID, " + _
                 "NEW adVarchar(20) as RecordData, " + _
                 "((SHAPE APPEND NEW adInteger as RecordID, " + _
                                "NEW adVarchar(20) as SubRecordData" + _
                 ") Relate RecordID to RecordID) as SubRecord", _
                 "Provider=MSDataShape;Data Provider=None"
       
RS.AddNew
RS!RecordID = 1
RS!RecordData = "Test Record Data"
Set SubRS = RS!SubRecord.Value  ' Error occurs here
SubRS.AddNew
SubRS!RecordID = 1
SubRS!SubRecordData = "Test Subrecord Data"
SubRS.AddNew
SubRS!RecordID = 2
SubRS!SubRecordData = "Another Subrecord"

Run.

Under MDAC version 2.1 sp2, the error is raised.

REFERENCES

For additional information about MDAC release history, click the article number below to view the article in the Microsoft Knowledge Base:

231943 INFO: Microsoft Data Access Components (MDAC) Release History

For additional information, click the article number below to view the article in the Microsoft Knowledge Base:

196029 HOWTO: Create Hierarchical Recordsets Programmatically