Ayuda con una consulta....

26/04/2006 - 05:40 por Juan Huachaca Gomez | Informe spam
Amigos programe esto en mi ASP y en una dll lo siguiente, el tema es que no
ejecuta me sale error en el Set Obj, a que se debe o que me falta =???
ASP-
<%
Response.Expires = 0
Response.ExpiresAbsolute = Now()-1
Response.addHeader "Pragma","no-cache"
Response.addHeader "Cache-Control","private"
Response.cacheControl = "no-cache"
%>
<% LANGUAJE="VBScript" %>
<%
dim obj
dim rs
dim cfamilia, cmes, cano

cfamilia = replace(Request.Form("t_familia"),"'","")
cmes = replace(Request.Form("d_mes"),"'","")
cano = replace(Request.Form("d_ano"),"'","")

Set rs=Server.CreateObject("ADODB.recordset")
Set Obj=Server.CreateObject("ActSistemas.ClsActividad")

'Obj.Abrir

'Set rs = Obj.AbrirRSTXFR(cfamilia,cmes,cano)
'while not rs.EOF
%>
<TR style="FONT-SIZE: 10pt">
<TD align=middle><%=(cfamilia)%></TD>
<TD align=left><%=(cmes)%></TD>
<TD align=middle><%=(cano)%></TD>
</TD>
<%
'rs.MoveNext
'wend
'rs.Close
'set rs=nothing
%>
</TABLE>
</form>
<br><br>
<A href="consulta_mensual_telefonia.htm">Regresar</A>
</BODY>
</HTML>

DLL-

Public cn1 As New Connection
Public rs As New Recordset
Public rs1 As New Recordset
Public rs2 As New Recordset

Public Function Abrir() As Boolean
On Error GoTo PError 'en caso ocurra un error
cn1.Provider = "SQLOLEDB"
cn1.ConnectionString = "User ID=sa" _
& ";password =" _
& ";Data Source= JHUACHACA" _
& ";Initial Catalog= PERU"
cn1.Open
Abrir = True
Exit Function 'sale de la funcion
PError: 'y no se conecta
Abrir = False
MsgBox "Usuario o Contraseña Incorrecta", , "Mensaje"
End Function

Public Function AbrirRSTXFR(familia, mes, ano As Variant)
rs.Open "EXEC PE_SP_VER_DOMICILIOS_MENSUAL " & familia & ", " & mes & "," &
ano & ""
Set AbrirRSTXFR = rs
End Function
 

Leer las respuestas

#1 Nuno Santos
26/04/2006 - 13:28 | Informe spam
Verifica la respuesta entre lineas de tu quetión ...


Nuno Santos
nunos7[REMOVER]@hotmail.com

"Juan Huachaca Gomez" wrote in message
news:%
Amigos programe esto en mi ASP y en una dll lo siguiente, el tema es que
no ejecuta me sale error en el Set Obj, a que se debe o que me falta =???
ASP-
<%
Response.Expires = 0
Response.ExpiresAbsolute = Now()-1
Response.addHeader "Pragma","no-cache"
Response.addHeader "Cache-Control","private"
Response.cacheControl = "no-cache"
%>
<% LANGUAJE="VBScript" %>
<%
dim obj
dim rs
dim cfamilia, cmes, cano

cfamilia = replace(Request.Form("t_familia"),"'","")
cmes = replace(Request.Form("d_mes"),"'","")
cano = replace(Request.Form("d_ano"),"'","")

############### Set rs=Server.CreateObject("ADODB.recordset")
###########################



No necessitas crear el objecto rs (verifica la alteración en la dll)

Set Obj=Server.CreateObject("ActSistemas.ClsActividad")

'Obj.Abrir

'Set rs = Obj.AbrirRSTXFR(cfamilia,cmes,cano)
'while not rs.EOF
%>
<TR style="FONT-SIZE: 10pt">
<TD align=middle><%=(cfamilia)%></TD>
<TD align=left><%=(cmes)%></TD>
<TD align=middle><%=(cano)%></TD>
</TD>
<%
'rs.MoveNext
'wend
'rs.Close
'set rs=nothing
%>
</TABLE>
</form>
<br><br>
<A href="consulta_mensual_telefonia.htm">Regresar</A>
</BODY>
</HTML>

DLL-

Public cn1 As New Connection
Public rs As New Recordset
Public rs1 As New Recordset
Public rs2 As New Recordset

Public Function Abrir() As Boolean
On Error GoTo PError 'en caso ocurra un error
cn1.Provider = "SQLOLEDB"
cn1.ConnectionString = "User ID=sa" _
& ";password =" _
& ";Data Source= JHUACHACA" _
& ";Initial Catalog= PERU"
cn1.Open
Abrir = True
Exit Function 'sale de la funcion
PError: 'y no se conecta
Abrir = False
MsgBox "Usuario o Contraseña Incorrecta", , "Mensaje"
End Function

############### Public Function AbrirRSTXFR(familia, mes, ano As Variant)
#################



Public Function AbrirRSTXFR(familia, mes, ano As Variant) as
ADODB.RecordSet



rs.Open "EXEC PE_SP_VER_DOMICILIOS_MENSUAL " & familia & ", " & mes & ","
& ano & ""
Set AbrirRSTXFR = rs
End Function

Preguntas similares