Insert: Erro

[adriano 0]

<_< - errinho 500.100, adoro esse erro! :wacko:

 

É um insert, só que está dando erro na hora de inserir, o erro é o seguinte:

 

Tipo de erro:

Microsoft OLE DB Provider for ODBC Drivers (0x80004005)

[Microsoft][Driver ODBC para Microsoft Access] A operação deve usar uma consulta atualizável.

/fabricio/default.asp, line 70

 

<%

acao = request.querystring("ac")

 

emp = request.form("empresa")

ramo = request.form("ramodeatividade")

nome = request.form("nomecontato")

d = request.form("ddd")

tel = request.form("telefone")

dtel = "(" & d & ") " & tel & ""

mail = request.form("email")

cep = request.form("cep")

rua = request.form("rua")

cidade = request.form("cidade")

estado = request.form("estado")

numero = request.form("numero")

endereco = response.write("" & rua & "," & numero & " - " & cidade & "/" & estado & " - CEP=" & cep & "")

 

set conn = server.createobject("adodb.connection")

conn.open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("./bd/cadastros.mdb")

set bd = server.createobject("adodb.recordset")

 

if acao = "cadastrar" then

 

sql = "insert into cadastros (empresa, ramodeatividade, nomecontato, telefone, email, endereco) values ('" & emp & "', '" & ramo & "', '" & nome & "', '" & dtel & "', '" & mail & "', '" & endereco & "')"

linha 70: conn.execute sql

 

response.write("Cadastro efetuado com sucesso. Obrigado.")

 

elseif acao = "ver" then

 

sql = "select * from cadastros order by empresa DESC"

bd.open sql, conn

 

if bd.eof or bd.bof then

response.write("Não existem empresas cadastradas.")

 

else

 

do while not bd.eof or bd.bof

response.write("" & bd("empresa") & "")

bd.movenext

loop

 

end if

 

else

%>

É isso, vlwz! ;)

[arr 0]

verifique a permissãodeescrita na pasta onde está o BD

[nostrinkes 0]

Os caracteres "-" e "/" não estão dando erro? na variavel enredeço

[adriano 0]

tá tudo certo, a pasta do bd tem todas as permissões, mas esse erro continua... :wacko:

 

modifiquei o código, mas num deu em nada...

<form action="./default.asp?ac=cadastrar" method="post" name="cadastro"><%acao = request.querystring("ac")emp = request.form("empresa")ramo = request.form("ramodeatividade")nome = request.form("nomecontato")d = request.form("ddd")tel = request.form("telefone")dtel = "(" & d & ") " & tel & ""mail = request.form("email") cep = request.form("cep")rua = request.form("rua")cidade = request.form("cidade")estado = request.form("estado")numero = request.form("numero")endereco = "" & rua & "" & numero & "" & cidade & "" & estado & "" & cep & ""set conn = server.createobject("adodb.connection")conn.open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("./bd/cadastros.mdb")if acao = "cadastrar" thensql_cad = "insert into cadastros (empresa, ramodeatividade, nomecontato, telefone, email, endereco) values ('" & emp & "', '" & ramo & "', '" & nome & "', '" & dtel & "', '" & mail & "', '" & endereco & "')"conn.execute sql_cadresponse.write("Cadastro efetuado com sucesso. Obrigado.")elseif acao = "ver" thenset bd = server.createobject("adodb.recordset")sql_ver = "select * from cadastros order by empresa DESC"bd.open sql_ver, connif bd.eof or bd.bof thenresponse.write("Não existem empresas cadastradas.")elsedo while not bd.eof or bd.bofresponse.write("" & bd("empresa") & "")bd.movenextloopend ifelse%>

[Salgado 4]

Cara, fora do IIS, abra o Explore vá até a pasta e clique com o botão direito, Propriedades e verifique se está como "Somente Leitura" faça isso com seu BD também.

[adriano 0]

NADAAAAAAAAAAAAAAAAAAA! <_< :angry: :blink: :( :huh: :mellow:

[mibnetweb 0]

endereco = response.write("" & rua & "," & numero & " - " & cidade & "/" & estado & " - CEP=" & cep & "")

 

estas aspas estão corretas?

[adriano 0]

... NADA,,,, NADA,,,, E + NADA! Noss, to ficando nervoso já...

[adriano 0]

depois de horas queimando os neurônios, eis o que era problema:eu não tinha criado uma aliase no IIS pra pasta onde estavam os arquivos,,, valew quem tentou de alguma forma ajudar! thanks!