-
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="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<%
Set X=Server.CreateObject("AspDB.Pro" '** 01
X.dbDSN="pubs" '** 02
X.dbDBType="SQL"
X.dbSQL="select * from employee"
X.dbmode="both"
X.dbUnit=1 '** 04
X.dbcolor="7,auto,lightgrey"
X.dbGridColSort=true
X.dbGridtabletag="border=1"
X.dbFormtabletag="border=1"
X.dbGridInc=3
X.dbMagicCell="4,,<A HREF=""#me#?ID=#4#"">Click for details of #4#</a>" '** 05
X.aspdbPro' '** 06
%>
<%
myvar=request("ID" '** 07
if myvar<>"" then '** 08
%>
<CENTER><h2>Database #2 - Job for #<%=myvar%></h2></CENTER>
<%
Set Y=Server.CreateObject("AspDB.Pro" '** 09
Y.dbDSN="pubs" '** 10
Y.dbDBType="SQL"
Y.dbmode="grid"
Y.dbUnit=2 '** 11
Y.dbcolor="4,auto"
Y.dbGridTableTag="BORDER=1"
Y.dbNavigation="none"
Y.dbSQL="select * from jobs where job_id=" & myvar '& "'"
Y.aspdbPro '** 13
end if
%>
<P> </P>
</BODY>
</HTML>
Thanks,
Igor
-
ADODB.Field error '800a0bcd', one step forward, next to go... (reply)
Try the following -
<%
Set X=Server.CreateObject("AspDB.V2"
X.dbDSN="pubs"
X.dbDBType="SQL"
X.dbSQL="select * from employee"
X.dbmode="both"
X.dbUnit=1
X.dbcolor="7,auto,lightgrey"
X.dbGridColSort=true
X.dbGridtabletag="border=1"
X.dbFormtabletag="border=1"
X.dbGridInc=3
X.dbMagicCell="4,,<A HREF=""#me#?ID=#4#"">Click for details of #4#</a>"
X.aspdbV2
myvar=request("ID"
if myvar<>"" then
response.write("<CENTER><h2>Database #2 - Job for" & myvar & " </h2></CENTER>"
Set Y=Server.CreateObject("AspDB.V2"
Y.dbDSN="pubs"
Y.dbDBType="SQL"
Y.dbmode="grid"
Y.dbUnit=2
Y.dbcolor="4,auto"
Y.dbGridTableTag="BORDER=1"
Y.dbNavigation="none"
Y.dbSQL="select * from jobs where job_id=" & myvar '& "'"
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="GENERATOR" Content="Microsoft Visual Studio
> 6.0">
</HEAD>
<BODY>
<%
Set
> X=Server.CreateObject("AspDB.Pro" '** 01
> X.dbDSN="pubs" '** 02
X.dbDBType="SQL"
> X.dbSQL="select * from employee"
> X.dbmode="both"
X.dbUnit=1 '** 04
> X.dbcolor="7,auto,lightgrey"
> X.dbGridColSort=true
X.dbGridtabletag="border=1"
> X.dbFormtabletag="border=1"
> X.dbGridInc=3
X.dbMagicCell="4,,<A
> HREF=""#me#?ID=#4#"">Click for details of #4#</a>"
> '** 05
X.aspdbPro' '** 06
> %>
<%
myvar=request("ID" '**
> 07
if myvar<>"" then '** 08
> %>
<CENTER><h2>Database #2 - Job for
> #<%=myvar%></h2></CENTER>
<%
Set
> Y=Server.CreateObject("AspDB.Pro" '** 09
> Y.dbDSN="pubs" '** 10
Y.dbDBType="SQL"
> Y.dbmode="grid"
Y.dbUnit=2 '** 11
> Y.dbcolor="4,auto"
> Y.dbGridTableTag="BORDER=1"
> Y.dbNavigation="none"
Y.dbSQL="select * from
> jobs where job_id=" & myvar '& "'"
> Y.aspdbPro '** 13
end if
> %>
<P> </P>
</BODY>
</HTML>
Thanks,
Igor
-
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 'ASP 0177 : 800401f3'
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("AspDB.V2"
X.dbDSN="pubs"
X.dbDBTyp
> e="SQL"
X.dbSQL="select * from
> employee"
X.dbmode="both"
X.dbUnit=1
>
X.dbcolor="7,auto,lightgrey"
X.dbGridColSort=true
X.dbGridtablet
> ag="border=1"
X.dbFormtabletag="border=1"
X.dbGridInc=3
X
> .dbMagicCell="4,,<A HREF=""#me#?ID=#4#"">Click for
> details of #4#</a>"
X.aspdbV2
myvar=request("ID"
if
> myvar<>"" then
response.write("<CENTER><h2>Database #2 - Job
> for" & myvar & " </h2></CENTER>"
Set
> Y=Server.CreateObject("AspDB.V2"
Y.dbDSN="pubs"
>
Y.dbDBType="SQL"
Y.dbmode="grid"
Y.dbUnit=2
>
Y.dbcolor="4,auto"
Y.dbGridTableTag="BORDER=1"
Y.dbNavig
> ation="none"
Y.dbSQL="select * from jobs where job_id=" &
> myvar '& "'"
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="GENERATOR" Content="Microsoft Visual Studio
>
> 6.0">
</HEAD>
<BODY>
<%
Set
>
> X=Server.CreateObject("AspDB.Pro" '** 01
>
> X.dbDSN="pubs" '** 02
X.dbDBType="SQL"
>
> X.dbSQL="select * from employee"
>
> X.dbmode="both"
X.dbUnit=1 '** 04
>
> X.dbcolor="7,auto,lightgrey"
>
> X.dbGridColSort=true
X.dbGridtabletag="border=1"
>
> X.dbFormtabletag="border=1"
>
> X.dbGridInc=3
X.dbMagicCell="4,,<A
>
> HREF=""#me#?ID=#4#"">Click for details of #4#</a>"
>
> '** 05
X.aspdbPro' '** 06
>
> %>
<%
myvar=request("ID"
> '**
> 07
if myvar<>"" then '** 08
>
> %>
<CENTER><h2>Database #2 - Job for
>
> #<%=myvar%></h2></CENTER>
<%
Set
>
> Y=Server.CreateObject("AspDB.Pro" '** 09
>
> Y.dbDSN="pubs" '** 10
Y.dbDBType="SQL"
>
> Y.dbmode="grid"
Y.dbUnit=2 '** 11
>
> Y.dbcolor="4,auto"
>
> Y.dbGridTableTag="BORDER=1"
>
> Y.dbNavigation="none"
Y.dbSQL="select * from
>
> jobs where job_id=" & myvar '& "'"
>
> Y.aspdbPro '** 13
end if
>
> %>
<P> </P>
</BODY>
</HTML>
Thanks,
Igor
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
|
|