Error in ADODB.Recordset (0x800A0BB9)

rylemer · August 18th, 2005, 04:25 PM

Hi To all.

the code below is moving the cursor of my recordset but I got an error "ADODB.Recordset (0x800A0BB9) Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another." I tried different cobination for my CURSOR TYPE and LOCK TYPE. but still i got an error.

Appreciate your help.

Thanks
Rylemer.

<html>
<head>
<title>MyTest</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("/pdmi/protrack/db/ProTrack.mdb"))
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT MailCount, PageCount, Div FROM ProTrack Order By Div"
rs.Open sql, conn, 3, 3

%>

<form name="form1" method="post" action="">
  <table width="60%" border="1">

    <tr>
      <td width="160"><div align="center"><strong>Mail
          Count</strong></div></td>
      <td width="222"><div align="center"><strong>Page
          Count</strong></div></td>
      <td width="182"><div align="center"><strong>Division</strong></div></td>
    </tr>
    <%
    Do Until rs.eof
    PreviousDiv = rs("Div")
    rs.MoveNext
    CurrentDiv = rs("Div")%>
    %>
    <tr>
      <td height="22"><%=rs("MailCount")%></td>
      <td height="22"><%=rs("PageCount")%></td>
      <td height="22"><strong><%=rs("Div")%></strong></td>
      <%
      rs.MoveNext%>
    </tr>
    <tr>
      <td height="22"><%=TotMailCount%></td>
      <td height="22"> </td>
      <td height="22"> </td>
    </tr>
    <%Loop
      rs.close
      conn.close
      %>
  </table>
</form>
</body>
</html>

askenkray · August 22nd, 2005, 08:02 AM

Try the query "sql" in Query Analyzer.If it runs properly then
try the foll one:

rs.Open sql, conn, 1,2

I think these shd solve your problem.
Otherwise:
mark the line where u get errors.

Ashwin S.Kenkare
Programmer
CMI

p2pMember · August 23rd, 2005, 05:56 AM

check for the line in ur code
conn.Open(Server.Mappath("/pdmi/protrack/db/ProTrack.mdb"))
as it is working at my end where i created db at my local and given its path directly without Server.Mappath

Quote:

quote:Originally posted by askenkray
Try the query "sql" in Query Analyzer.If it runs properly then
try the foll one:

rs.Open sql, conn, 1,2

I think these shd solve your problem.
Otherwise:
mark the line where u get errors.

Ashwin S.Kenkare
Programmer
CMI

uderodriguezjr · November 9th, 2006, 05:06 AM

Hi to all! Can someone help me with my code?

I've been trying to fix it for two days and nothing happened.
It always gives me the same error:
ADODB.Recordset (0x800A0BB9)
Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.
And it says that there is something wrong with line 4.

I am using two files here. The first one is an asp file (expprof.asp) which includes a database connection file ( this line is said to have the error

  'count the number of records the person has in the educations table
  cnt = rsNum.RecordCount

  'if there are no records then the system must require the user to enter the information in the form below
  If (cnt < 1) Then
  %>
    <form name="addeduc" action="expeduc.asp?inc=1&id=<% Request.QueryString("id") %>&view=1" method="post">
    <table align="center">
     <tr><td align="center" colspan="2">Education</td></tr>
     <tr><td colspan="2"></td></tr>
     <tr>
      <td>Education:</td>
      <td><input type="text" name="educ" size="30"></td>
     </tr>
     <tr><td colspan="2" align="center"><input type="submit" name="Submit" value="Add"></td></tr>
    </table>
    </form>
  <%
     Set rsEduc = Server.CreateObject("ADODB.Recordset")
     educSQL = "select * from educations"
     rsEduc.Open educSQL, adoCon, 2, 3
     rsEduc.AddNew
     rsEduc.Fields("exp_id") = Request.QueryString("id")
     rsEduc.Fields("education") = Request.Form("educ")
     rsEduc.Update
     'rsEduc.Close
     'Response.Redirect("expeduc.asp")
     'Response.Write("Add Something")
  Else
     'display the Education when there is a record found in the database
     Response.Write(rsNum.Fields(2))
  End If
%>