Forums Últimos mensajes - Powered by IBM
 

Error de Microsoft VBScript en tiempo de ejecución (0x800A01A8)

20/01/2005 - 21:40 por Ignacio Betancor | Informe spam
al introducir el siguiente codigo me da el error

Tipo de error:
Error de Microsoft VBScript en tiempo de ejecución (0x800A01A8)
Se requiere un objeto: ''

el codigo es el siguiente

<%

Dim Conexion, rs,oConn,temp,temp2
set oConn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
Conexion.Open "Driver={Microsoft Visual FoxPro
Driver};SourceTypeÛc;SourceDB=c:\inetpub\wwwroot\difersa\vtasdb\webalba.db
c;exclusive=no"

Temp="Select * From familias Order By Nofami"
Tabla1.Open Temp, Conexion
While Not Tabla1.EOF
%>
if (style1=="<%= Tabla1.Fields("nofami") %>")
{
fixSelect("Seleccione una subfamilia");
<%
Temp2="Select * From Subfamilia Where familia="' &_
Tabla1.Fields("familia") &_ '" Order By Nombre"
Tabla2.Open Temp2, Conexion
While Not Tabla2.EOF
%>
fixSelect("<%= Tabla2.Fields("nofami") %>");
<%
Tabla2.MoveNext
Wend
Tabla2.Close
Response.Write("}")
Tabla1.MoveNext
Wend
Tabla1.Close
%>
<%
Temp="Select * From familias Order By familia"
Tabla1.Open Temp, Conexion
While Not Tabla1.EOF
Temp2="Select * From Subfamilia Where familia="' &_
Tabla1.Fields("familia")
Tabla2.Open Temp2, Conexion
While Not Tabla2.EOF
%>
if (style2=="<%= Tabla2.Fields("nofami") %>")
{
fixSelect1("Seleccione una clase");
<%
Temp3="Select * From articulo Where familia="' &_
Tabla1.Fields("familia") &_ "' And subfamilia="'
&Tabla2.Fields("subfamilia") & "' Order By descri"
Tabla3.Open Temp3, Conexion
While Not Tabla3.EOF
%>
fixSelect1("<%= Tabla3.Fields("descri") %>");
<%
Tabla3.MoveNext
Wend
Tabla3.Close
Response.Write("}")
Tabla2.MoveNext
Wend
Tabla2.Close
Tabla1.MoveNext
Wend
Tabla1.Close
%>

porque se esta produciendo el error ??? y como hay que hacer la
concatenaciones dado que unos libros no ponen "' &_ sino otras distintas
variaciones

muchas gracias
 

Leer las respuestas

#1 Manuel Vera
20/01/2005 - 23:17 | Informe spam
Estas usando mal las variables...

Cambia:
set oConn=Server.CreateObject("ADODB.Connection")
por esto otro:
oConn.Open "Driver={Microsoft Visual FoxPro

Estas Declarando oConn pero tratas de abrir Conexion que no ha sido declarda
o referenciada al objeto.

Salu2
MV


"Ignacio Betancor" wrote in message
news:uK9Eeiz$
al introducir el siguiente codigo me da el error

Tipo de error:
Error de Microsoft VBScript en tiempo de ejecución (0x800A01A8)
Se requiere un objeto: ''

el codigo es el siguiente

<%

Dim Conexion, rs,oConn,temp,temp2
set oConn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
Conexion.Open "Driver={Microsoft Visual FoxPro



Driver};SourceTypeÛc;SourceDB=c:\inetpub\wwwroot\difersa\vtasdb\webalba.db
c;exclusive=no"

Temp="Select * From familias Order By Nofami"
Tabla1.Open Temp, Conexion
While Not Tabla1.EOF
%>
if (style1=="<%= Tabla1.Fields("nofami") %>")
{
fixSelect("Seleccione una subfamilia");
<%
Temp2="Select * From Subfamilia Where familia="' &_
Tabla1.Fields("familia") &_ '" Order By Nombre"
Tabla2.Open Temp2, Conexion
While Not Tabla2.EOF
%>
fixSelect("<%= Tabla2.Fields("nofami") %>");
<%
Tabla2.MoveNext
Wend
Tabla2.Close
Response.Write("}")
Tabla1.MoveNext
Wend
Tabla1.Close
%>
<%
Temp="Select * From familias Order By familia"
Tabla1.Open Temp, Conexion
While Not Tabla1.EOF
Temp2="Select * From Subfamilia Where familia="' &_
Tabla1.Fields("familia")
Tabla2.Open Temp2, Conexion
While Not Tabla2.EOF
%>
if (style2=="<%= Tabla2.Fields("nofami") %>")
{
fixSelect1("Seleccione una clase");
<%
Temp3="Select * From articulo Where familia="' &_
Tabla1.Fields("familia") &_ "' And subfamilia="'
&Tabla2.Fields("subfamilia") & "' Order By descri"
Tabla3.Open Temp3, Conexion
While Not Tabla3.EOF
%>
fixSelect1("<%= Tabla3.Fields("descri") %>");
<%
Tabla3.MoveNext
Wend
Tabla3.Close
Response.Write("}")
Tabla2.MoveNext
Wend
Tabla2.Close
Tabla1.MoveNext
Wend
Tabla1.Close
%>

porque se esta produciendo el error ??? y como hay que hacer la
concatenaciones dado que unos libros no ponen "' &_ sino otras distintas
variaciones

muchas gracias




Preguntas similares