Solved

Why am i getting this error:ADODB.Command (0x800A0E7D)

Posted on 2004-10-14
5
837 Views
Last Modified: 2007-11-27
Why am i getting this error:
Error Type:
ADODB.Command (0x800A0E7D)
Requested operation requires an OLE DB Session object, which is not supported by the current provider.
/DIET/forum/diet/swiffchart.asp, line 26

Here is the asp file:
<%@Language = VBScript %>
 <%' use this meta tag instead of adovbs.inc%>
 <!--METADATA TYPE="typelib" uuid="00000205-0000-0010-8000-00AA006D2EA4" -->
 <%
    Response.Expires= 0
    Dim currentweight, d_date
    Dim Cnxn, strCnxn
    Dim rs, strSQL
          strCnxn= "db1.mdb"
    strCnxn= "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & strCnxn
    Set Cnxn= Server.CreateObject("ADODB.Connection")
    Cnxn.Open strCnxn,1,3,1
    Set Cmd= Server.CreateObject("ADODB.Command")
    Cmd.ActiveConnection= Cnxn
    strSQL = "SELECT * From Weight"
    Cmd.CommandText = strSQL
    Set rs= Cmd.Execute
    currentweight = ""
    d_date = ""
     rs.MoveFirst
    While Not rs.EOF
       currentweight = currentweight & rs.Fields(0).Value & ";"
       d_date = d_date & rs.Fields(1).Value & ";"
       rs.MoveNext
    Wend
    Cnxn.Close
    Set Cmd = Nothing
    Set rs = Nothing
    Set Cnxn = Nothing
    currentweight = Left(currentweight, Len(currentweight) - 1)
    d_date = Left(d_date, Len(d_date) - 1)
      Dim chart
    Set chart= Server.CreateObject("SwiffChartObject.ChartObj")
    chart.SetSeriesCaption 0, "Weight"
    chart.SetSeparators ";", true
    chart.SetcurrentweightFromString currentweight
    chart.SetSeriesd_dateFromString 0, d_date
       chart.SetTitle "Weight chart"
       chart.LoadStyle "swiff.scs"
    chart.ExportAsResponse
      Set chart= Nothing
    Response.End
%>
0
Comment
Question by:Melfeky
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 3
5 Comments
 
LVL 26

Assisted Solution

by:Hilaire
Hilaire earned 200 total points
ID: 12316661
try
Cnxn.Open strCnxn
instead of
Cnxn.Open strCnxn,1,3,1
0
 
LVL 26

Expert Comment

by:Hilaire
ID: 12316716
taken apart that 1 and 3 are very unlikely to be a user and a password,
the allowed values for the fourth parameter of the connection.open method are the possible vlues of ConnectOptionEnum : -1 (default, synchronous) and 16 (asynchronous)

I guess the 1,3,1 is a remain from a copied line (conn.execute strstr, 1,3,1 is more familiar ;-))
0
 
LVL 26

Expert Comment

by:Hilaire
ID: 12316742
in fact I think the correct syntax is

Call Cnxn.Open(strCnxn)
0
 
LVL 28

Assisted Solution

by:sybe
sybe earned 150 total points
ID: 12317264
>> Call Cnxn.Open(strCnxn)

This is identical to "Cnxn.Open strCnxn", calling a sub in VB can be done in 3 ways

<%
Call MySub(parameter1, parameter2)
%>

<%
MySub parameter1, parameter2
%>

And if the sub requires zero or one parameter, then this will also work:

<%
MySub(parameter1)
%>

Only when the more then 1 parameters are passed to a Sub, then this will give an error:
<%
MySub(parameter1, parameter2)
%>

VB isn't very clear always, i guess that all this is a remainder from good old BASIC
0
 
LVL 4

Accepted Solution

by:
carlmahon earned 150 total points
ID: 12322104
Do you need to use ADODB.Command?

Try:
strSQL = "SELECT * From Weight"
Set rs =  Cnxn.Execute(strSQL)

Carl
0

Featured Post

Free Tool: Site Down Detector

Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Have you ever needed to get an ASP script to wait for a while? I have, just to let something else happen. Or in my case, to allow other stuff to happen while I was murdering my MySQL database with an update. The Original Issue This was written…
I was asked about the differences between classic ASP and ASP.NET, so let me put them down here, for reference: Let's make the introductions... Classic ASP was launched by Microsoft in 1998 and dynamically generate web pages upon user interact…
There's a multitude of different network monitoring solutions out there, and you're probably wondering what makes NetCrunch so special. It's completely agentless, but does let you create an agent, if you desire. It offers powerful scalability …
Monitoring a network: why having a policy is the best policy? Michael Kulchisky, MCSE, MCSA, MCP, VTSP, VSP, CCSP outlines the enormous benefits of having a policy-based approach when monitoring medium and large networks. Software utilized in this v…

717 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question