Duda sobre RecordSet!!! urgente!!!

jcdlcc · #1 (**permalink**) 20/11/2003, 01:51

Hola, aqui les presento mi codigo:
---------------------------------------------------------------------------------
<%@ language=VBScript %>
<% Option Explicit %>
<!..#include virtual="/adovbs.inc"..>
<%
Dim ObConn
'Creamos el objeto de conexion ahora...
Set ObConn = Server.CreateObject ("ADODB.Connection")
ObConn.Open "Driver={SQL Server};server=(local);database=Rematon;uid=jotace ;pwd=winston"

Dim objRS
Set objRS = Server.CreateObject("ADODB.Connection")
objRS.Open "[Marca]", obConn, adOpenStatic, adLockOptimistic, adCmdTable
objRS.AddNew
objRS("Id_Marca") = Request.form("Id_Marca")
objRS("Marca") = Request.form("Marca")
objRS.Update
objRS.Close
set obConn = nothing
%>
<html>
<body>
Marca Registrada satisfactoriamente.
</html>
---------------------------------------------------------------------------------

el error que me sale es el sgte:

---------------------------------------------------------------------------------
Error de Microsoft VBScript en tiempo de ejecución (0x800A01F4)
Variable no definida: 'adOpenStatic'
/Registromarca.asp, línea 13
---------------------------------------------------------------------------------

Cual puede ser la solucion?
Acaso adOpenStatic no esta definida?
Gracias.-

:-p

AlexNV · #2 (**permalink**) 20/11/2003, 02:50

Las constantes no están definidas en asp, por lo que tienes que utilizar su valor. En el caso de adOpenStatic es 3

Si quieres usar constantes de ado, tienes que hacer un include a un fichero de constantes de ADO que se llama AdoVBS.inc y puedes encontrar buscando por ejemplo en google.

jcdlcc · #3 (**permalink**) 20/11/2003, 03:15

Gracias por responder!!!

Ya varie esa linea, ahora tengo:

---------------------------------------------------
objRS.Open "[Marca]", obConn, 3, 3, &H0002
---------------------------------------------------

y me sale un nuevo (y fastidioso) error:

---------------------------------------------------
Error de Microsoft VBScript en tiempo de ejecución (0x800A01C2)
Número de argumentos erróneo o asignación de propiedad no válida: 'Open'
/Registromarca.asp, línea 13
---------------------------------------------------
El numero de args creo q es el correcto ya q la sintaxis de open es asi:

recordset.Open Source, ActiveConnection, CursorType, LockType, Options

entonces cual es el problema?
Gracias

jcdlcc · #4 (**permalink**) 21/11/2003, 11:17

Please ayudenme con la pregunta anterior pues me dejo un mar de dudas. Se los agradecere....

richardinj · #5 (**permalink**) 18/10/2005, 12:25

Dim adOpenStatic