(0x800A01A8) se requiere un objeto: "

23/01/2006 - 19:46 por Boris Valladares | Informe spam
Que tal grupo buena tarde, soy nuevo en esto de asp con VBScript,
esto tratrando de hacer listas dependientes para seleccionar información de
ORACLE, pero me da el siguiente error:

(0x800A01A8) se requiere un objeto: "

este es el código


form name="listasdep" action= "matriz.asp" method= "post">
<select name "combo1" onchange="document.listasdep.submit();">
<option value=0></option>
<option value=1>SERV1</option>
<option value=2>SERV2</option>
<option value=3>SERV3<option>
<option value=1>SERV4</option>
</select>
<select name= "combo2">
<%
call conexion
do while not rrs.eof
%>
<%nomta = RRS("tablespace_name")%>
<option value="<%=RRS("tablespace_name")%>">
<% if cuenta=1 then
SELECTED
end if
%>
</option>

<%
rrs.movenext
loop
RRs.close()
set RRS = nothing
%>
</select>
</form>


<%
sub conexion
MM_ORACLEDATABASE_STRING = "Provider=oraOLEDB.ORACLE;User
ID=XXX;Password=XXXX;Data source=XXX.XXX.XX.XX;"
set RRS = SERVER.CREATEOBJECT("ADODB.RECORDSET")
sql= "select tablespace_name from dba_tablespaces"
RRS.OPEN sql,MM_ORACLEDATABASE_STRING,3,3
end sub
%>
 

Leer las respuestas

#1 Dani Castillo
23/01/2006 - 19:53 | Informe spam
debes crear la conexion, el openrecordset recibe no una cadena de conexion,
sino un objeto, algo como

Set Conn = Server.CreateObject("ADODB.Connection")
MM_ORACLEDATABASE_STRING = "Provider=oraO."
Conn.Open MM_ORACLEDATABASE_STRING
set RRS = SERVER.CREATEOBJECT("ADODB.RECORDSET")
sql= "select tablespace_name from dba_tablespaces"
RRS.OPEN sql,Conn,3,3

recuerda cerrar y asignar a nothing la conexion cuando termine, despues de
cerrar el recordset
conn.close
set conn=nothing



"Boris Valladares" escribió en
el mensaje news:
Que tal grupo buena tarde, soy nuevo en esto de asp con VBScript,
esto tratrando de hacer listas dependientes para seleccionar información
de
ORACLE, pero me da el siguiente error:

(0x800A01A8) se requiere un objeto: "

este es el código


form name="listasdep" action= "matriz.asp" method= "post">
<select name "combo1" onchange="document.listasdep.submit();">
<option value=0></option>
<option value=1>SERV1</option>
<option value=2>SERV2</option>
<option value=3>SERV3<option>
<option value=1>SERV4</option>
</select>
<select name= "combo2">
<%
call conexion
do while not rrs.eof
%>
<%nomta = RRS("tablespace_name")%>
<option value="<%=RRS("tablespace_name")%>">
<% if cuenta=1 then
SELECTED
end if
%>
</option>

<%
rrs.movenext
loop
RRs.close()
set RRS = nothing
%>
</select>
</form>


<%
sub conexion
MM_ORACLEDATABASE_STRING = "Provider=oraOLEDB.ORACLE;User
ID=XXX;Password=XXXX;Data source=XXX.XXX.XX.XX;"
set RRS = SERVER.CREATEOBJECT("ADODB.RECORDSET")
sql= "select tablespace_name from dba_tablespaces"
RRS.OPEN sql,MM_ORACLEDATABASE_STRING,3,3
end sub
%>

Preguntas similares