nossa q vergonha

[Reginaldo 0]

ae galera..

 

peço a juda de você's + 1 vez..

 

 

tenho 1 simples script de cadastro no banco de dados..

 

mas na hr de gravar no banco esta acontecendo isso:

 

----------------

Microsoft JET Database Engine error '80040e09'

 

Cannot update. Database or object is read-only.

 

/teste/cadastro.asp, line 26

--------------

pelo que eu percebi o banco pode estar sem permição de gravação certo? só que a permição esta 777.. esta certinha..

 

essa é a linha 26:

RecClientes.addnew

alguem pode me dar 1 luz ?

 

agradeço

[Reginaldo 0]

não ele esta como arquivo morto mesmo..

 

a conexão e abertura da tabela é assim:

<%Set BdClientes=Server.CreateObject("Adodb.connection")BdClientes.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:/www_root/ideiamodas.com.br/teste/banco.mdb;"Set RecClientes = Server.CreateObject("ADODB.Recordset")RecClientes.Activeconnection=BdClientesRecClientes.Cursortype=adOpenkeyset%><!-- #include file="Adovbs.inc"--><%RecClientes.Locktype=adlockOptimisticRecClientes.Source="Clientes"%>

[Reginaldo 0]

não.. não tem nada a ver.. até fiz o teste.. em outros sites que ja fiz esta exatamente assim e funciona.. desconfio q o servidor esta com problema.

 

o codigo todo esta aki.. se alguem axar alguma besteira nele por favor me da 1 toque ?

 

abraços

 

ASP [/tr][tr]<%@ Language=VBScript%>

 

<%

Set BdClientes=Server.CreateObject("Adodb.connection")

BdClientes.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:/www_root/ideiamodas.com.br/teste/banco.mdb;"

 

Set RecClientes = Server.CreateObject("ADODB.Recordset")

RecClientes.Activeconnection=BdClientes

RecClientes.Cursortype=adOpenkeyset%>

<!-- #include file="Adovbs.inc"-->

<%

RecClientes.Locktype=adlockOptimistic

RecClientes.Source="Clientes"

 

Nome=Request.form("Nome")

 

If (Nome = "") then

Response.write ("Preencha tudo corretamente!")%>

<p align="center"> <a href="index.html"><font color="#FF0000" face="Geneva, Arial, Helvetica, sans-serif">Voltar</font></a>

<%

 

Else

 

RecClientes.open

 

RecClientes.addnew

RecClientes("Nome")=request.form("Nome")

RecClientes("End")=request.form("End")

RecClientes("Cidade")=request.form("Cidade")

RecClientes("Bairro")=request.form("Bairro")

RecClientes("Estado")=request.form("Estado")

RecClientes("Telefone")=request.form("Telefone")

RecClientes("CEP")=request.form("CEP")

RecClientes("Email")=request.form("Email")

RecClientes.update

 

Response.Redirect "../index.html"

 

BdClientes.close

Set BdClientes=nothing

END IF

%>

[/tr]

[Salgado 4]

Entre em contato com o seu servidor e veja com eles a pasta segura para colocar o seu BD, ou solicite que coloque a pasta aceitando gravação.

[Reginaldo 0]

Salgado isso ja foi feito :P mas funcionar q é bom nekas.. rs

[Reginaldo 0]

ae galera valew a ajuda.. ja consegui.. era problema com a permição mesmo! a moça la do servidor se enbananou e configurou errado.agradeço pela ajudaabraços.