Mais um erro com Insert

[kioshy 0]

Galera olha eu d novo aki incomodando

 

Seguinte to usando o seguinte código:

 

Conn_contato = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("dbcontatos.mdb") & ";"

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

StrSql = "Insert Into tbl_contato (Nome, Email, Telefone, Evento, msg)"_

& " Values('" & StrNome & "','" & StrEmail & "','" & StrTelefone & "','" & StrEvento & "','" & StrComentario & "')"

 

ObjRS.Open StrSql, Conn_contato

 

ObjRS.Close

Set ObjRS = Nothing

 

Sendo que Strnome, StrEmail, StrTelefone, StrEvento e StrComentario são variáveis que recebo de um form

 

Qndo utilizo o response.write, apresenta a seguinte query

 

Insert Into tbl_contato (Nome, Email, Telefone, Evento, msg) Values('claudio','claudio@pop.com.br','41620544','','sadfljhfkashifhsdkjfsdh')

 

Eu sei q Evento tá com valor vazio, mas no banco isso tá permitido.

 

Qndo ele é executado apresenta o seguinte erro:

 

Microsoft JET Database Engine (0x80004005)

A operação deve usar uma consulta atualizável.

/teste_it/envio_faleconosco.asp, line 35

 

Está é a linha 35:

 

ObjRS.Open StrSql, Conn_contato

 

Se precisarem de mais informações postem aki

 

desde já agradeço as respostas

[Marcelo Barcellos 0]

Falta de permissão de escrita.

[kioshy 0]

e como eu coloco isso???

[kioshy 0]

Galera por favor me ajudem estou precisando muito disso

[explore 3]

Clica com o bt direito no diretorio que está o BD e la tem Gravação!

[kioshy 0]

Já fiz isso e acontece o mesmo erro

[kioshy 0]

Help me please!!!!!!!!!!!!!!!!!!!!

[explore 3]

habilita Gravação e Leitura

[kioshy 0]

Mas isso já tá habilitadooutra coisa eu já gravei em outro banco de dadosé com esse aki o meu problema

[explore 3]

veja oque está passando na SQL!tipo: Response.write(StrSql)

[kioshy 0]

Isso já tava na mensagem q abriu o tópico mas tudo bem ai vaiInsert Into tbl_contato (Nome, Email, Telefone, Evento, msg) Values('claudio','claudio@pop.com.br','41620544','','sadfljhfkashifhsdkjfsdh')é isso ai q tá indo na query

[alphamek 2]

Veja se a pasta que está seu banco de dados, está com a opção de Gravação para o usuário Everone ou Todos usuários. Abraços,

[explore 3]

Troca o Metodo de Conexao que deve Funfar!!!!

[Mário Monteiro 179]

configura no IIS tb...de permissao para todos usuarios...

[kioshy 0]

GAlera dá uma olhada ai q o bixo tá pegando pro meu lado :wacko:

 

ASP

[*]Conn_contato = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("dbcontatos.mdb") & ";"

 

[*]

 

[*]Set ObjConn = Server.CreateObject("ADODB.Connection")

 

[*]ObjConn.ConnectionString = Conn_Contato

 

[*]ObjConn.Open

 

[*]

 

[*]Set ObjRS = Server.CreateObject("ADODB.Recordset")

 

[*]ObjRS.CursorType = 2

 

[*]

 

[*]StrSql = "Insert Into tbl_contato (Nome, Email, Telefone, Evento, msg)"_

 

[*]& " Values('" & StrNome & "','" & StrEmail & "','" & StrTelefone & "','" & StrEvento & "','" & StrComentario & "')"

 

[*]

 

[*]ObjRS.Open StrSql, ObjConn

 

[*]

 

[*]Set ObjRS = Nothing

 

[*]

 

[*]ObjConn.Close

 

[*]Set ObjConn = Nothing

[kioshy 0]

Fiz uma pequena alteração no código e ele ficou assim:

 

ASP

[*] Conn_contato = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("dbcontatos.mdb") & ";"

 

[*]

 

[*] Set ObjConn = Server.CreateObject("ADODB.Connection")

 

[*] ObjConn.ConnectionString = Conn_Contato

 

[*] ObjConn.Open

 

[*]

 

[*] Set ObjRS = Server.CreateObject("ADODB.Recordset")

 

[*] ObjRS.CursorType = 2

 

[*]

 

[*] Strsql = "Select * From Tbl_contato"

 

[*]

 

[*] ObjRS.Open StrSql, ObjConn

 

[*]

 

[*] ObjRS.AddNew

 

[*] ObjRS("Nome")  = StrNome

 

[*] ObjRS("Email")  = StrEmail

 

[*] ObjRS("Telefone")  = StrTelefone

 

[*] ObjRS("msg")  = StrComentario

 

[*] ObjRS("Evento") = StrEvento

 

[*] ObjRS.Update

 

[*]

 

[*]

 

[*] ObjRS.Close

 

[*] Set ObjRS = Nothing

 

[*]

 

[*] ObjConn.Close

 

[*] Set ObjConn = Nothing

 

Ai o erro q apareceu ficou direfente mostrou o seguinte:

 

Tipo de erro:

ADODB.Recordset (0x800A0CB3)

O conjunto de registros atual não oferece suporte para atualização. Isso pode ser uma limitação do provedor ou do tipo de bloqueio selecionado.

/teste_it/envio_faleconosco.asp, line 42

 

Sendo que a linha 42 está assim:

 

ObjRS.AddNew

 

Outra coisa o problema não é do servidor pq eu já configurei ele e tbm coloquei este código no ar e tbm não funcionou. :(

[Mário Monteiro 179]

essa linhaObjRS.Open StrSql, ObjConnmuda praObjRS.Open StrSql, ObjConn,3,3

[kioshy 0]

Coloquei o Código como você falou só q ai, pra variar um pouquinho, deu erro: Tipo de erro:Microsoft JET Database Engine (0x80040E09)Não é possível atualizar. O banco de dados ou o objeto é somente leitura./teste_it/envio_faleconosco.asp, line 42Mas eu olhei o banco de dados e não tem nada de Somente Leitura tbm olhei a pasta e tbm não está assim.

[kioshy 0]

Galera consegui depois de muito tempoBom o problema não tinha nada a ver com asp e nem com o Servidor mas sim com o meu usuário dá rede aqui na empresa.Foi mal era q o meu usuário só tinha acesso como somente leitura e era por isso q tava dando erro.Peço desculpas a todos q me ajudaram aqui, por terem perdido o seu tempo comigo.Vlw galera

[Mário Monteiro 179]

ok amigo... http://forum.imasters.com.br/public/style_emoticons/default/joia.gif