propiedad no válida: 'cint'

[Andr3s]

Tengo otro pequeño engrollo en este código asp:

Sub AddToOrder(nOrderID, nProductID, nQuant)

sqlText = "INSERT INTO itemsordenes " _
& " (orderID, productID, cantidad) values " _
& " ("&nOrderID&", "&nProductID&", "&nQuant&")"
oConn.Execute(sqlText)

End Sub

de esta manera todo funciona correctamente pero al cambiar la sentencia SQL con el uso de una dll asi:

Sub AddToOrder(nOrderID, nProductID, nQuant)

Set dnfobjeto = Server.CreateObject("conection.anadircaraorden")
set Application = dnfobjeto.selectanadircaraorden(cint(nOrderID, nProductID, nQuant))

End Sub

Me devuelve el siguiente error:

Número de argumentos erróneo o asignación de propiedad no válida: 'cint'


El codigo de la clase de la dll es el siguiente:

Public Function selectanadircaraorden(ByVal nOrderID As Integer, ByVal nProductID As Integer, ByVal nQuant As Integer) As Recordset

Dim ConnectionString As String
Dim strsql As String
Dim rs As Recordset


ConnectionString = "Driver={SQL Server};Description=***;SERVER=***;UID=***;PWD=*** ;DATABASE=***"

Set rs = CreateObject("ADODB.Recordset")

strsql = "INSERT INTO itemsordenes(orderID, productID, cantidad) values (" & nOrderID & " , " & nProductID & ", " & nQuant & ")"


rs.Open strsql, adOpenDynamic, adLockOptimistic, admdTableDirect

Set selectanadircaraorden = rs

End Function



Donde estoy cometiendo el error?

[bakanzipp]

el cint trabaja sobre un valor, no sobre un conjunto de ellos....ocupalo por separado

set Application = dnfobjeto.selectanadircaraorden(cint(nOrderID), cint(nProductID), cint(nQuant))

[Andr3s]

Inserto los valores separados. Haciandolo de la primera forma sigue realizandose bien el proceso:

Sub AddToOrder(nOrderID, nProductID, nQuant)

sqlText = "INSERT INTO itemsordenes " _
& " (orderID, productID, cantidad) values " _
& " ("&nOrderID&", "&nProductID&", "&nQuant&")"
oConn.Execute(sqlText)

End Sub

Ahora lo hago a través del objeto creado y la dll:

Sub AddToOrder(nOrderID, nProductID, nQuant)

Set dnfobjeto = Server.CreateObject("conection.anadircaraorden")
set Application = dnfobjeto.selectanadircaraorden(cint(nOrderID), cint(nProductID), cint(nQuant))

End Sub

me devuelve el error:

Tipo de error:
ADODB.Recordset (0x800A0BB9)
Argumentos incorrectos, fuera del intervalo permitido o en conflicto con otros.

en la linea

set Application = dnfobjeto.selectanadircaraorden(cint(nOrderID), cint(nProductID), cint(nQuant))

El código completo es el siguiente pero el primer sub lo procesa correrrectamente:


Sub CreateNewOrder()
Application.lock
if Application("orderID") = "" then
Application("orderID") = 1
end if

intOrderID = Application("orderID")
Session("orderID") = intOrderID

Set infobjeto = Server.CreateObject("conection.anadircarritordenes ")
set Application = infobjeto.selectanadircarritorden(cint(intOrderID) )

Application("orderID") = Application("orderID") + 1
Application.Unlock


End Sub

Sub AddToOrder(nOrderID, nProductID, nQuant)

Set dnfobjeto = Server.CreateObject("conection.anadircaraorden")
set Application() = dnfobjeto.selectanadircaraorden(cint(nOrderID), cint(nProductID), cint(nQuant))


End Sub

[bakanzipp]

raro esta eso..

hace dos pruebas

ingresa valores constantes...

set Application = dnfobjeto.selectanadircaraorden("1","2", "3")

y ve que sucede.

2. hay una magia que puedes hacer...y eso es....debuggear tu componente...

-basta con cerrar tu browser (pagina)...
-abrir tu proyecto
-hacer un break en el procedimiento que llamas desde asp
-presionar F5 (y quedara corriendo)
-abre tu browser, ejecuta tu pagina...y solo se marcará la funcion que invoco...

ahi con f8 puedes tracear tu dll y ver por que y donde se cae.

suerte