Quiero grabar al menos un registro

Hola seria asi
Dim rs, conn, sql
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\Archivos de
programa\Microsoft Visual\etc.mdb"
sql = "insert into tabla (campo1, campo2) values ('campo1', 'campo2')"
conn.execute(sql)

Saludos
Giox

"CARIVEH" escribió en el mensaje
news:%

Estoy intentando grabar al menos un registro, agradeceria su apoyo
Tengo el siguiente codigo:

<%
Dim rs, conn, sql
Set rs = Server.CreateObject("ADODB.Recordset")
conn = "Provider=Microsoft.Jet.OLEDB.4.0;"
conn = conn & "Data Source=c:\Archivos de programa\Microsoft Visual
Studio\Vb98\Biblio.MDB"
sql = "SELECT * FROM Authors WHERE NOT ISNULL([Year Born])"
rs.Open sql, conn
rs.addnew
rs("Au_Id")="7777"
rs("Author")="Carlitos"
rs("Year Born")="1998"
rs.update
%>


me da el error siguiente :

Tipo de error:
ADODB.Recordset (0x800A0CB3)
El Recordset actual no admite actualizaciones. Puede ser una limitación

del

proveedor o del tipo de bloqueo seleccionado.
/proof/otra.asp, línea 8 (rs.addnew)

Hola
Lo primero que debes hacer es abrir la conexion (no lo haz hecho).

Ejemplo:
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & server.MapPath("/data/mibase.mdb") & ";" & _
"User Id=admin;" & _
"Password="
Fijate que en tu codigo no tienes el metodo ".Open". Unicamente estas
asignando una sadena string a tu variable "conn".

Luego es que puedes abrir el recordset. Aqui debes tener en cuenta como lo
abres. Tu colocaste:
rs.Open sql, conn
Pero despues de conn, van 2 parametros adicionales que te permiten
posteriormente hacer el ".update". No estoy muy seguro cuales serían los
valores que necesitas, pues yo lo hago de otra forma que sería:

Ejemplo:
sql ="INSERT INTO Authors (Au_Id, Author,[Year Born] )"
sql=sql & "values (7777, 'Carlitos', 1998)"
oConn.Execute SQL

Finalmente, debes asegurarte que la carpeta donde esta ubicado tu MDB tenga
permisos de escritura. Igualmente (bajo W-2000 y W-XP) el archivo MDB debe
terner permisos de escritura o actualización.

Salu2
MV

"CARIVEH" wrote in message
news:%

Estoy intentando grabar al menos un registro, agradeceria su apoyo
Tengo el siguiente codigo:

<%
Dim rs, conn, sql
Set rs = Server.CreateObject("ADODB.Recordset")
conn = "Provider=Microsoft.Jet.OLEDB.4.0;"
conn = conn & "Data Source=c:\Archivos de programa\Microsoft Visual
Studio\Vb98\Biblio.MDB"
sql = "SELECT * FROM Authors WHERE NOT ISNULL([Year Born])"
rs.Open sql, conn
rs.addnew
rs("Au_Id")="7777"
rs("Author")="Carlitos"
rs("Year Born")="1998"
rs.update
%>


me da el error siguiente :

Tipo de error:
ADODB.Recordset (0x800A0CB3)
El Recordset actual no admite actualizaciones. Puede ser una limitación

del

proveedor o del tipo de bloqueo seleccionado.
/proof/otra.asp, línea 8 (rs.addnew)

Gracias,
he probado tu codigo, pero ahora me da este error :

Tipo de error:
Error de Microsoft VBScript en tiempo de ejecución (0x800A01A8)
Se requiere un objeto: ''
/proof/otra.asp, línea 15 (conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=c:\Archivos de programa\Microsoft Visual Studio\Vb98\Biblio.MDB"
)



"Giox" escribió en el mensaje
news:

Hola seria asi
Dim rs, conn, sql
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\Archivos de
programa\Microsoft Visual\etc.mdb"
sql = "insert into tabla (campo1, campo2) values ('campo1', 'campo2')"
conn.execute(sql)

Saludos
Giox

"CARIVEH" escribió en el mensaje
news:%

Estoy intentando grabar al menos un registro, agradeceria su apoyo
Tengo el siguiente codigo:

<%
Dim rs, conn, sql
Set rs = Server.CreateObject("ADODB.Recordset")
conn = "Provider=Microsoft.Jet.OLEDB.4.0;"
conn = conn & "Data Source=c:\Archivos de programa\Microsoft Visual
Studio\Vb98\Biblio.MDB"
sql = "SELECT * FROM Authors WHERE NOT ISNULL([Year Born])"
rs.Open sql, conn
rs.addnew
rs("Au_Id")="7777"
rs("Author")="Carlitos"
rs("Year Born")="1998"
rs.update
%>


me da el error siguiente :

Tipo de error:
ADODB.Recordset (0x800A0CB3)
El Recordset actual no admite actualizaciones. Puede ser una limitación

del

proveedor o del tipo de bloqueo seleccionado.
/proof/otra.asp, línea 8 (rs.addnew)

he estado probando los diferentes ejemplos...pero en este caso particular me
arroja este error

Tipo de error:
Microsoft JET Database Engine (0x80004005)
La operación debe usar una consulta actualizable.
/proof/otra.asp, línea 32 (oConn.Execute SQL)



"Manuel Vera" escribió en el mensaje
news:%

Hola
Lo primero que debes hacer es abrir la conexion (no lo haz hecho).

Ejemplo:
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & server.MapPath("/data/mibase.mdb") & ";" & _
"User Id=admin;" & _
"Password="
Fijate que en tu codigo no tienes el metodo ".Open". Unicamente estas
asignando una sadena string a tu variable "conn".

Luego es que puedes abrir el recordset. Aqui debes tener en cuenta como lo
abres. Tu colocaste:
rs.Open sql, conn
Pero despues de conn, van 2 parametros adicionales que te permiten
posteriormente hacer el ".update". No estoy muy seguro cuales serían los
valores que necesitas, pues yo lo hago de otra forma que sería:

Ejemplo:
sql ="INSERT INTO Authors (Au_Id, Author,[Year Born] )"
sql=sql & "values (7777, 'Carlitos', 1998)"
oConn.Execute SQL

Finalmente, debes asegurarte que la carpeta donde esta ubicado tu MDB
tenga
permisos de escritura. Igualmente (bajo W-2000 y W-XP) el archivo MDB debe
terner permisos de escritura o actualización.

Salu2
MV

"CARIVEH" wrote in message
news:%

Estoy intentando grabar al menos un registro, agradeceria su apoyo
Tengo el siguiente codigo:

<%
Dim rs, conn, sql
Set rs = Server.CreateObject("ADODB.Recordset")
conn = "Provider=Microsoft.Jet.OLEDB.4.0;"
conn = conn & "Data Source=c:\Archivos de programa\Microsoft Visual
Studio\Vb98\Biblio.MDB"
sql = "SELECT * FROM Authors WHERE NOT ISNULL([Year Born])"
rs.Open sql, conn
rs.addnew
rs("Au_Id")="7777"
rs("Author")="Carlitos"
rs("Year Born")="1998"
rs.update
%>


me da el error siguiente :

Tipo de error:
ADODB.Recordset (0x800A0CB3)
El Recordset actual no admite actualizaciones. Puede ser una limitación

del

proveedor o del tipo de bloqueo seleccionado.
/proof/otra.asp, línea 8 (rs.addnew)

Pueden ser muchas las causas de ese error en particular. Yo te había puesto
en mi emnsaje anterior lo siguiente:

Finalmente, debes asegurarte que la carpeta donde esta ubicado tu MDB
tenga
permisos de escritura. Igualmente (bajo W-2000 y W-XP) el archivo MDB debe
terner permisos de escritura o actualización.

Salu2
MV

"CARIVEH" wrote in message
news:

he estado probando los diferentes ejemplos...pero en este caso particular

me

arroja este error

Tipo de error:
Microsoft JET Database Engine (0x80004005)
La operación debe usar una consulta actualizable.
/proof/otra.asp, línea 32 (oConn.Execute SQL)



"Manuel Vera" escribió en el mensaje
news:%
> Hola
> Lo primero que debes hacer es abrir la conexion (no lo haz hecho).
>
> Ejemplo:
> Set oConn = Server.CreateObject("ADODB.Connection")
> oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
> "Data Source=" & server.MapPath("/data/mibase.mdb") & ";" & _
> "User Id=admin;" & _
> "Password="
> Fijate que en tu codigo no tienes el metodo ".Open". Unicamente estas
> asignando una sadena string a tu variable "conn".
>
> Luego es que puedes abrir el recordset. Aqui debes tener en cuenta como

lo

> abres. Tu colocaste:
> rs.Open sql, conn
> Pero despues de conn, van 2 parametros adicionales que te permiten
> posteriormente hacer el ".update". No estoy muy seguro cuales serían los
> valores que necesitas, pues yo lo hago de otra forma que sería:
>
> Ejemplo:
> sql ="INSERT INTO Authors (Au_Id, Author,[Year Born] )"
> sql=sql & "values (7777, 'Carlitos', 1998)"
> oConn.Execute SQL
>
> Finalmente, debes asegurarte que la carpeta donde esta ubicado tu MDB
> tenga
> permisos de escritura. Igualmente (bajo W-2000 y W-XP) el archivo MDB

debe

> terner permisos de escritura o actualización.
>
> Salu2
> MV
>
> "CARIVEH" wrote in message
> news:%
>> Estoy intentando grabar al menos un registro, agradeceria su apoyo
>> Tengo el siguiente codigo:
>>
>> <%
>> Dim rs, conn, sql
>> Set rs = Server.CreateObject("ADODB.Recordset")
>> conn = "Provider=Microsoft.Jet.OLEDB.4.0;"
>> conn = conn & "Data Source=c:\Archivos de programa\Microsoft Visual
>> Studio\Vb98\Biblio.MDB"
>> sql = "SELECT * FROM Authors WHERE NOT ISNULL([Year Born])"
>> rs.Open sql, conn
>> rs.addnew
>> rs("Au_Id")="7777"
>> rs("Author")="Carlitos"
>> rs("Year Born")="1998"
>> rs.update
>> %>
>>
>>
>> me da el error siguiente :
>>
>> Tipo de error:
>> ADODB.Recordset (0x800A0CB3)
>> El Recordset actual no admite actualizaciones. Puede ser una limitación
> del
>> proveedor o del tipo de bloqueo seleccionado.
>> /proof/otra.asp, línea 8 (rs.addnew)
>>
>
>