5 replies to this topic

[pcmm]

<%
'@LANGUAGE="VBSCRIPT" CODEPAGE="1252"

set conn = Server.CreateObject("ADODB.Connection")
constr ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("db/portal.mdb")
conn.Open constr

DIM formato
DIM data
DIM arquivo
DIM titulo
DIM descricao

formato = request.form("formato")
data = request.form("data")
arquivo = request.form("arquivo")
titulo = request.form("titulo")
descricao = request.form("descricao")

Set RS = Server.CreateObject("ADODB.Recordset")
set SQL = conn.Execute("INSERT into pa(formato, data, titulo, arquivo, descricao) values('"& formato &"','"& data &"','"& titulo &"','"&arqyuivo&"','"& descricao &"')")
conn.close
RS = nothing
conn = nothing

response.redirect("ok.asp")
%>

Tipo de erro:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access Driver] Operation must use an updateable query.
/PORTAL/pa_inscode.asp, line 21

ALGUEM PODE ME DIZER COMO EU RESOLVO ESTE PROBLEMA?

Edição feita por: pcmm, 31/01/2004, 11:50.

[siola]

o problema naum esta no codigo, e sim nas permissoes dadas a pasta em q esta o banco de dados..

[cidadao_cane]

Olá,

o problema é mesmo ref a permissão.
Qual seu Host?



Valeu

[pcmm]

eu estou testando localmente... no IIS... como eu faço para dar essa permissão?

[Info_Tec]

Pequenos erros:

Set RS = Server.CreateObject("ADODB.Recordset") 'setou explicitamente um objeto RecordSet
set SQL = conn.Execute("INSERT into pa(formato, data, titulo, arquivo, descricao) values('"& formato &"','"& data &"','"& titulo &"','"&arqyuivo&"','"& descricao &"')") 'Setou implicitamente um outro RecordSet

Vc pode fazer assim:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%set conn = Server.CreateObject("ADODB.Connection")
constr ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("db/portal.mdb")
conn.Open constr

DIM formato
DIM data
DIM arquivo
DIM titulo
DIM descricao

formato = request.form("formato")
data = request.form("data")
arquivo = request.form("arquivo")
titulo = request.form("titulo")
descricao = request.form("descricao")

Set RS = Server.CreateObject("ADODB.Recordset")
SQL = "INSERT INTO pa (formato, data, titulo, arquivo, descricao) VALUES('"& formato &"','"& data &"','"& titulo &"','"&arquivo&"','"& descricao &"');"
RS.open SQL,conn,3,3

Set RS = nothing

conn.close
Set conn = nothing

response.redirect("ok.asp")%>

Mas seu erro deve estar no arquivo do BD, ou a pasta, como "Somente Leitura".