Wesley Barreto Postado Janeiro 22, 2007 Denunciar Share Postado Janeiro 22, 2007 Microsoft OLE DB Provider for ODBC Drivers error '80004005' [Microsoft][ODBC Microsoft Access Driver] Cannot update. Database or object is read-only. /login/confirmacao.asp, line 47Segue meu código fonte:<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><!-- #include file="ADOVBS.inc" --><% 'Conexão com o banco de dadosconexao="DBQ=" & Server.MapPath("senha.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"Set DB = Server.CreateObject("ADODB.Connection")DB.Open conexaologin=(Request.QueryString("login"))senha=(Request.QueryString("senha"))set acesso=DB.Execute("SELECT * FROM prognosticos WHERE login='"&login&"'")' Caso os dados não estiverem corretos o usuário é enviado para a index.aspif acesso.eof thenSession("login")=loginend ifdim DB'Aqui você pode inserir mais dados, siga o exemplo abaixoSession("f2jogo1e") = Request.Form("f2jogo1e")Session("f2jogo1d") = Request.Form("f2jogo1d")Session("f2jogo2e") = Request.Form("f2jogo2e")Session("f2jogo2d") = Request.Form("f2jogo2d")Session("f2jogo3e") = Request.Form("f2jogo3e")Session("f2jogo3d") = Request.Form("f2jogo3d")Session("f2jogo4e") = Request.Form("f2jogo4e")Session("f2jogo4d") = Request.Form("f2jogo4d")Sub ProcessaPaginaDim rsSet rs = Server.CreateObject("ADODB.Recordset")rs.open "prognosticos", DB, adOpenDynamic, adlockoptimistic, adcmdtablers.Addnew'Aqui você pode inserir mais dados, siga o exemplo abaixors.fields("login") = Session("login")rs.fields("f2jogo1e") = Session("f2jogo1e")rs.fields("f2jogo1d") = Session("f2jogo1d")rs.fields("f2jogo2e") = Session("f2jogo2e")rs.fields("f2jogo2d") = Session("f2jogo2d")rs.fields("f2jogo3e") = Session("f2jogo3e")rs.fields("f2jogo3d") = Session("f2jogo3d")rs.fields("f2jogo4e") = Session("f2jogo4e")rs.fields("f2jogo4d") = Session("f2jogo4d")rs.update <= está nesta linha o erroend subprocessapagina%><html><title> Form </title><body><h4>Dados enviados com sucesso!!! Aguarde o Resultado e Boa Sorte!!!</h4></body></html>Obrigado! Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 .Andreia. Postado Janeiro 22, 2007 Denunciar Share Postado Janeiro 22, 2007 provavelmente seja erro de permissao. Verifique as configurações, qualquer duvida tem um post pendurado sobre permissoes nesta area Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Wesley Barreto Postado Janeiro 22, 2007 Autor Denunciar Share Postado Janeiro 22, 2007 provavelmente seja erro de permissao. Verifique as configurações, qualquer duvida tem um post pendurado sobre permissoes nesta areaVou verificar, mais o problema é que em outras páginas eu adiciono dados no bd... de qualquer forma, muito obrigado!!!!! Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
Wesley Barreto
Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][ODBC Microsoft Access Driver] Cannot update. Database or object is read-only.
/login/confirmacao.asp, line 47
Segue meu código fonte:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!-- #include file="ADOVBS.inc" -->
<% 'Conexão com o banco de dados
conexao="DBQ=" & Server.MapPath("senha.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"
Set DB = Server.CreateObject("ADODB.Connection")
DB.Open conexao
login=(Request.QueryString("login"))
senha=(Request.QueryString("senha"))
set acesso=DB.Execute("SELECT * FROM prognosticos WHERE login='"&login&"'")
' Caso os dados não estiverem corretos o usuário é enviado para a index.asp
if acesso.eof then
Session("login")=login
end if
dim DB
'Aqui você pode inserir mais dados, siga o exemplo abaixo
Session("f2jogo1e") = Request.Form("f2jogo1e")
Session("f2jogo1d") = Request.Form("f2jogo1d")
Session("f2jogo2e") = Request.Form("f2jogo2e")
Session("f2jogo2d") = Request.Form("f2jogo2d")
Session("f2jogo3e") = Request.Form("f2jogo3e")
Session("f2jogo3d") = Request.Form("f2jogo3d")
Session("f2jogo4e") = Request.Form("f2jogo4e")
Session("f2jogo4d") = Request.Form("f2jogo4d")
Sub ProcessaPagina
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open "prognosticos", DB, adOpenDynamic, adlockoptimistic, adcmdtable
rs.Addnew
'Aqui você pode inserir mais dados, siga o exemplo abaixo
rs.fields("login") = Session("login")
rs.fields("f2jogo1e") = Session("f2jogo1e")
rs.fields("f2jogo1d") = Session("f2jogo1d")
rs.fields("f2jogo2e") = Session("f2jogo2e")
rs.fields("f2jogo2d") = Session("f2jogo2d")
rs.fields("f2jogo3e") = Session("f2jogo3e")
rs.fields("f2jogo3d") = Session("f2jogo3d")
rs.fields("f2jogo4e") = Session("f2jogo4e")
rs.fields("f2jogo4d") = Session("f2jogo4d")
rs.update <= está nesta linha o erro
end sub
processapagina
%>
<html>
<title> Form </title>
<body>
<h4>Dados enviados com sucesso!!! Aguarde o Resultado e Boa Sorte!!!</h4>
</body>
</html>
Obrigado!
Link para o comentário
Compartilhar em outros sites
2 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.