Microsoft KB Archive/225042: Difference between revisions
m (Text replacement - "<" to "<") |
m (Text replacement - ">" to ">") |
||
Line 78: | Line 78: | ||
<ol> | <ol> | ||
<li><p>Open a new Active Server Pages (ASP) page in Visual InterDev and paste the following code onto the page:</p> | <li><p>Open a new Active Server Pages (ASP) page in Visual InterDev and paste the following code onto the page:</p> | ||
<pre class="codesample"><%@ Language=VBScript % | <pre class="codesample"><%@ Language=VBScript %> | ||
<% | <% | ||
Set cn = Server.CreateObject("ADODB.Connection") | Set cn = Server.CreateObject("ADODB.Connection") | ||
Line 88: | Line 88: | ||
Set cmd.ActiveConnection = cn | Set cmd.ActiveConnection = cn | ||
rs.Open cmd | rs.Open cmd | ||
Response.Write(rs(0) & "<BR | Response.Write(rs(0) & "<BR>") | ||
GetDBValues | GetDBValues | ||
Response.Write(rs(0) & "<BR | Response.Write(rs(0) & "<BR>") | ||
Response.Write(rs(1) & "<BR | Response.Write(rs(1) & "<BR>") | ||
Set rs = rs.NextRecordset 'Fails on this line | Set rs = rs.NextRecordset 'Fails on this line | ||
Response.Write("New Recordset after NextRecordset Call" & "<BR | Response.Write("New Recordset after NextRecordset Call" & "<BR>") | ||
Response.Write(rs(0) & "<BR | Response.Write(rs(0) & "<BR>") | ||
Response.Write(rs(1) & "<BR | Response.Write(rs(1) & "<BR>") | ||
Sub GetDBValues | Sub GetDBValues | ||
Line 109: | Line 109: | ||
rst.Open cmd | rst.Open cmd | ||
Response.Write("Opened new recordset" & "<BR | Response.Write("Opened new recordset" & "<BR>") | ||
End Sub | End Sub | ||
% | %> | ||
</pre></li> | </pre></li> |
Revision as of 09:41, 21 July 2020
Article ID: 225042
Article Last Modified on 10/23/2003
APPLIES TO
- Microsoft Data Access Components 2.0
- Microsoft Data Access Components 2.1
This article was previously published under Q225042
SYMPTOMS
Within your MDAC code, you have multiple recordsets with the same recordset object that are created off of the same command and are also pointing to the same connection. The first recordset that is opened contains multiple recordsets within that same object. Before calling NextRecordset on that object, open another Recordset (new recordset object) and point the ActiveConnection property to the same command and connection to which at the other recordset object was pointing. This causes the following error when the Set rs = rs.NextRecordset is executed:
This error occurs in MDAC 2.0 and MDAC 2.1. It does not occur in MDAC 1.5.
RESOLUTION
Make sure that the ActiveConnection property of the Command object for the first recordset is set only once throughout the page (especially if it contains multiple physical recordsets within the same recordset object) if the same connection is still being used.
STATUS
Microsoft has confirmed that this is a bug in the Microsoft products that are listed at the beginning of this article.
This bug was corrected in MDAC 2.5.
MORE INFORMATION
Steps to Reproduce Behavior
Open a new Active Server Pages (ASP) page in Visual InterDev and paste the following code onto the page:
<%@ Language=VBScript %> <% Set cn = Server.CreateObject("ADODB.Connection") cn.Open "pubs","sa","" Set cmd = Server.CreateObject("ADODB.Command") Set rs = Server.CreateObject("ADODB.Recordset") cmd.CommandText = "Select * From Authors Select * From Stores Select * From Sales" cmd.CommandType = 1 Set cmd.ActiveConnection = cn rs.Open cmd Response.Write(rs(0) & "<BR>") GetDBValues Response.Write(rs(0) & "<BR>") Response.Write(rs(1) & "<BR>") Set rs = rs.NextRecordset 'Fails on this line Response.Write("New Recordset after NextRecordset Call" & "<BR>") Response.Write(rs(0) & "<BR>") Response.Write(rs(1) & "<BR>") Sub GetDBValues Set rst = Server.CreateObject("ADODB.Recordset") cmd.CommandText = "Select * from stores" cmd.CommandType = 1 Set cmd.ActiveConnection = cn rst.Open cmd Response.Write("Opened new recordset" & "<BR>") End Sub %>
- Create a data source name (DSN) called "pubs" that points to the pubs database on SQL Server.
- Run the page and the following error appears:
Keywords: kbbug kbmdac250fix KB225042