Results 1 to 3 of 3

Thread: ADODB.Field error '800a0bcd', one step forward, next to go...

  1. 02-03-1999, 09:53 AM #1
    Igor Guest

    ADODB.Field error '800a0bcd', one step forward, next to go...

    Hi, Frank, here is my code, AspDb sample applied to Pubs database on Sql Server.
    When in a grid form - it works. When switch to a form view for a parent AspDb things get messed up.
    All what you need to do to see it just click on the Next buton.
    <%@ Language=VBScript %>
    <HTML>
    <HEAD>
    <META NAME=&#34;GENERATOR&#34; Content=&#34;Microsoft Visual Studio 6.0&#34;>
    </HEAD>
    <BODY>
    <%
    Set X=Server.CreateObject(&#34;AspDB.Pro&#34 &#39;** 01
    X.dbDSN=&#34;pubs&#34; &#39;** 02
    X.dbDBType=&#34;SQL&#34;
    X.dbSQL=&#34;select * from employee&#34;
    X.dbmode=&#34;both&#34;

    X.dbUnit=1 &#39;** 04

    X.dbcolor=&#34;7,auto,lightgrey&#34;
    X.dbGridColSort=true
    X.dbGridtabletag=&#34;border=1&#34;
    X.dbFormtabletag=&#34;border=1&#34;
    X.dbGridInc=3

    X.dbMagicCell=&#34;4,,<A HREF=&#34;&#34;#me#?ID=#4#&#34;&#34;>Click for details of #4#</a>&#34; &#39;** 05

    X.aspdbPro&#39; &#39;** 06

    %>

    <%
    myvar=request(&#34;ID&#34 &#39;** 07
    if myvar<>&#34;&#34; then &#39;** 08
    %>
    <CENTER><h2>Database #2 - Job for #<%=myvar%></h2></CENTER>
    <%

    Set Y=Server.CreateObject(&#34;AspDB.Pro&#34 &#39;** 09

    Y.dbDSN=&#34;pubs&#34; &#39;** 10
    Y.dbDBType=&#34;SQL&#34;

    Y.dbmode=&#34;grid&#34;

    Y.dbUnit=2 &#39;** 11

    Y.dbcolor=&#34;4,auto&#34;
    Y.dbGridTableTag=&#34;BORDER=1&#34;
    Y.dbNavigation=&#34;none&#34;

    Y.dbSQL=&#34;select * from jobs where job_id=&#34; & myvar &#39;& &#34;&#39;&#34;

    Y.aspdbPro &#39;** 13

    end if

    %>

    <P>&nbsp;</P>

    </BODY>
    </HTML>

    Thanks,
    Igor
    Reply With Quote Reply With Quote
  2. 02-03-1999, 12:04 PM #2
    Frank Guest

    ADODB.Field error '800a0bcd', one step forward, next to go... (reply)

    Try the following -
    <%
    Set X=Server.CreateObject(&#34;AspDB.V2&#34
    X.dbDSN=&#34;pubs&#34;
    X.dbDBType=&#34;SQL&#34;
    X.dbSQL=&#34;select * from employee&#34;
    X.dbmode=&#34;both&#34;
    X.dbUnit=1
    X.dbcolor=&#34;7,auto,lightgrey&#34;
    X.dbGridColSort=true
    X.dbGridtabletag=&#34;border=1&#34;
    X.dbFormtabletag=&#34;border=1&#34;
    X.dbGridInc=3
    X.dbMagicCell=&#34;4,,<A HREF=&#34;&#34;#me#?ID=#4#&#34;&#34;>Click for details of #4#</a>&#34;
    X.aspdbV2

    myvar=request(&#34;ID&#34
    if myvar<>&#34;&#34; then
    response.write(&#34;<CENTER><h2>Database #2 - Job for&#34; & myvar & &#34; </h2></CENTER>&#34
    Set Y=Server.CreateObject(&#34;AspDB.V2&#34
    Y.dbDSN=&#34;pubs&#34;
    Y.dbDBType=&#34;SQL&#34;
    Y.dbmode=&#34;grid&#34;
    Y.dbUnit=2
    Y.dbcolor=&#34;4,auto&#34;
    Y.dbGridTableTag=&#34;BORDER=1&#34;
    Y.dbNavigation=&#34;none&#34;
    Y.dbSQL=&#34;select * from jobs where job_id=&#34; & myvar &#39;& &#34;&#39;&#34;
    Y.aspdbV2
    end if
    %>





    On 2/3/99 9:53:57 AM, Igor wrote:
    > Hi, Frank, here is my code, AspDb sample applied to Pubs database on Sql
    > Server.
    When in a grid form - it works. When switch to a form view for a
    > parent AspDb things get messed up.
    All what you need to do to see it just
    > click on the Next buton.
    <%@ Language=VBScript %>
    <HTML>
    <HEAD>
    <META
    > NAME=&#34;GENERATOR&#34; Content=&#34;Microsoft Visual Studio
    > 6.0&#34;>
    </HEAD>
    <BODY>
    <%
    Set
    > X=Server.CreateObject(&#34;AspDB.Pro&#34 &#39;** 01

    > X.dbDSN=&#34;pubs&#34; &#39;** 02
    X.dbDBType=&#34;SQL&#34;

    > X.dbSQL=&#34;select * from employee&#34;

    > X.dbmode=&#34;both&#34;

    X.dbUnit=1 &#39;** 04


    > X.dbcolor=&#34;7,auto,lightgrey&#34;

    > X.dbGridColSort=true
    X.dbGridtabletag=&#34;border=1&#34;

    > X.dbFormtabletag=&#34;border=1&#34;

    > X.dbGridInc=3

    X.dbMagicCell=&#34;4,,<A
    > HREF=&#34;&#34;#me#?ID=#4#&#34;&#34;>Click for details of #4#</a>&#34;
    > &#39;** 05

    X.aspdbPro&#39; &#39;** 06


    > %>

    <%
    myvar=request(&#34;ID&#34 &#39;**
    > 07
    if myvar<>&#34;&#34; then &#39;** 08

    > %>
    <CENTER><h2>Database #2 - Job for
    > #<%=myvar%></h2></CENTER>
    <%

    Set
    > Y=Server.CreateObject(&#34;AspDB.Pro&#34 &#39;** 09


    > Y.dbDSN=&#34;pubs&#34; &#39;** 10
    Y.dbDBType=&#34;SQL&#34;


    > Y.dbmode=&#34;grid&#34;

    Y.dbUnit=2 &#39;** 11


    > Y.dbcolor=&#34;4,auto&#34;

    > Y.dbGridTableTag=&#34;BORDER=1&#34;

    > Y.dbNavigation=&#34;none&#34;

    Y.dbSQL=&#34;select * from
    > jobs where job_id=&#34; & myvar &#39;& &#34;&#39;&#34;


    > Y.aspdbPro &#39;** 13

    end if


    > %>

    <P> </P>

    </BODY>
    </HTML>

    Thanks,
    Igor
    Reply With Quote Reply With Quote
  3. 02-03-1999, 01:12 PM #3
    Igor Guest

    ADODB.Field error '800a0bcd', one step forward, next to go... (reply)


    What is the AspDb.V2 ?
    When I try it it gives me an error:
    Server object error &#39;ASP 0177 : 800401f3&#39;
    Server.CreateObject Failed
    /hsCShow/tstAspdb2db.asp, line 10
    Invalid class string

    On 2/3/99 12:04:48 PM, Frank wrote:
    > Try the following -
    <%
    Set
    > X=Server.CreateObject(&#34;AspDB.V2&#34
    X.dbDSN=&#34;pubs&#34;
    X.dbDBTyp
    > e=&#34;SQL&#34;
    X.dbSQL=&#34;select * from
    > employee&#34;
    X.dbmode=&#34;both&#34;
    X.dbUnit=1
    >
    X.dbcolor=&#34;7,auto,lightgrey&#34;
    X.dbGridColSort=true
    X.dbGridtablet
    > ag=&#34;border=1&#34;
    X.dbFormtabletag=&#34;border=1&#34;
    X.dbGridInc=3
    X
    > .dbMagicCell=&#34;4,,<A HREF=&#34;&#34;#me#?ID=#4#&#34;&#34;>Click for
    > details of #4#</a>&#34;
    X.aspdbV2

    myvar=request(&#34;ID&#34
    if
    > myvar<>&#34;&#34; then
    response.write(&#34;<CENTER><h2>Database #2 - Job
    > for&#34; & myvar & &#34; </h2></CENTER>&#34
    Set
    > Y=Server.CreateObject(&#34;AspDB.V2&#34
    Y.dbDSN=&#34;pubs&#34;
    >
    Y.dbDBType=&#34;SQL&#34;
    Y.dbmode=&#34;grid&#34;
    Y.dbUnit=2
    >
    Y.dbcolor=&#34;4,auto&#34;
    Y.dbGridTableTag=&#34;BORDER=1&#34;
    Y.dbNavig
    > ation=&#34;none&#34;
    Y.dbSQL=&#34;select * from jobs where job_id=&#34; &
    > myvar &#39;& &#34;&#39;&#34;
    Y.aspdbV2
    end if
    %>





    On 2/3/99
    > 9:53:57 AM, Igor wrote:
    > Hi, Frank, here is my code, AspDb sample
    > applied to Pubs database on Sql
    > Server.
    When in a grid form - it
    > works. When switch to a form view for a
    > parent AspDb things get messed
    > up.
    All what you need to do to see it just
    > click on the Next
    > buton.
    <%@ Language=VBScript %>
    <HTML>
    <HEAD>
    <META
    >
    > NAME=&#34;GENERATOR&#34; Content=&#34;Microsoft Visual Studio
    >
    > 6.0&#34;>
    </HEAD>
    <BODY>
    <%
    Set
    >
    > X=Server.CreateObject(&#34;AspDB.Pro&#34 &#39;** 01

    >
    > X.dbDSN=&#34;pubs&#34; &#39;** 02
    X.dbDBType=&#34;SQL&#34;

    >
    > X.dbSQL=&#34;select * from employee&#34;

    >
    > X.dbmode=&#34;both&#34;

    X.dbUnit=1 &#39;** 04


    >
    > X.dbcolor=&#34;7,auto,lightgrey&#34;

    >
    > X.dbGridColSort=true
    X.dbGridtabletag=&#34;border=1&#34;

    >
    > X.dbFormtabletag=&#34;border=1&#34;

    >
    > X.dbGridInc=3

    X.dbMagicCell=&#34;4,,<A
    >
    > HREF=&#34;&#34;#me#?ID=#4#&#34;&#34;>Click for details of #4#</a>&#34;
    >
    > &#39;** 05

    X.aspdbPro&#39; &#39;** 06


    >
    > %>

    <%
    myvar=request(&#34;ID&#34
    > &#39;**
    > 07
    if myvar<>&#34;&#34; then &#39;** 08

    >
    > %>
    <CENTER><h2>Database #2 - Job for
    >
    > #<%=myvar%></h2></CENTER>
    <%

    Set
    >
    > Y=Server.CreateObject(&#34;AspDB.Pro&#34 &#39;** 09


    >
    > Y.dbDSN=&#34;pubs&#34; &#39;** 10
    Y.dbDBType=&#34;SQL&#34;


    >
    > Y.dbmode=&#34;grid&#34;

    Y.dbUnit=2 &#39;** 11


    >
    > Y.dbcolor=&#34;4,auto&#34;

    >
    > Y.dbGridTableTag=&#34;BORDER=1&#34;

    >
    > Y.dbNavigation=&#34;none&#34;

    Y.dbSQL=&#34;select * from
    >
    > jobs where job_id=&#34; & myvar &#39;& &#34;&#39;&#34;


    >
    > Y.aspdbPro &#39;** 13

    end if


    >
    > %>

    <P> </P>

    </BODY>
    </HTML>

    Thanks,
    Igor
    Reply With Quote Reply With Quote
« Previous Thread | Next Thread »

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

Forum Rules