Erro no INSERT

[mateuscrocha 0]

Alguém pode me ajudar a achar o erro nesse código?set titulo=request.Form("titulo")set remetente = request.Form("remetente")set data = request.Form("data")set mensagem = request.Form("mensagem")incluir = "INSERT INTO tabela (titulo,remetente,data,mensagem) VALUES ('" & titulo & "','" & remetente & "','" & data & "','" & mensagem & "')"conn.Execute(incluir) <!--(linha 27)-->erro:Microsoft OLE DB Provider for ODBC Drivers error '80004005' [Microsoft][ODBC Microsoft Access Driver] Operation must use an updateable query. /mateus/noticia/incluir.asp, line 27

[nostrinkes 0]

colega de uma olhada neste codigo. strnumero=request.querystring("ID") strautor=request.querystring("nome") strano=request.querystring("ano") SET objRS = server.CreateObject ("ADODB.RecordSet") '------SEGUNDO RECORDSET objRS.Open "SELECT * FROM autores order by id desc" ,Conn, adOpenDynamic, adLockPessimistic, adCMDText objRS.AddNew objRS("numero")= strnumero objRS("autor")= strautor objRS("ano")= strano objRS.Update se voce gostar tem que usar um include junto ok? <!--#include file="adovbs.inc"-->abaixo o conteudo do include<%'---- CursorTypeEnum Values ----Const adOpenForwardOnly = 0Const adOpenKeyset = 1Const adOpenDynamic = 2Const adOpenStatic = 3'---- LockTypeEnum Values ----Const adLockReadOnly = 1Const adLockPessimistic = 2Const adLockOptimistic = 3Const adLockBatchOptimistic = 4'---- CursorLocationEnum Values ----Const adUseServer = 2Const adUseClient = 3'---- CommandTypeEnum Values ----Const adCmdUnknown = &H0008Const adCmdText = &H0001Const adCmdTable = &H0002Const adCmdStoredProc = &H0004Const adCmdFile = &H0100Const adCmdTableDirect = &H0200%>

[mateuscrocha 0]

Cara...num deuu certo não.......Vo manadr o código inteiro pra você dar uma olhada.........(é pequeno)<!--#include file="adovbs.inc"--><%<!-- CONECCAO COM O BANCO -->Dim conn,db_pathdb_path = Server.MapPath("banco.mdb")set conn = Server.CreateObject("ADODB.Connection")conn.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & db_pathconn.openset titulo=request.Form("titulo")set remetente = request.Form("remetente")set data = request.Form("data")set mensagem = request.Form("mensagem")SET rs = server.CreateObject ("ADODB.RecordSet") '------SEGUNDO RECORDSETrs.Open "SELECT * FROM tabela"rs.AddNewrs("titulo")= titulors("remetente")= remetenters("data")= datars("mensagem")= mensagemrs.Update response.Write("asdasdda")response.End()response.Write("registro atualizado com sucesso")%>

[gastao 0]

coloca assim:titulo=request.Form("titulo")remetente = request.Form("remetente")data = request.Form("data")mensagem = request.Form("mensagem")incluir = "INSERT INTO tabela(titulo,remetente,data,mensagem) VALUES('" & titulo & "','" & remetente & "','" & data & "','" & mensagem & "')"set conn.Execute(incluir)

[mateuscrocha 0]

RETORNA O ERRO:Operation must use an updateable query

[nostrinkes 0]

Eu não sou nenhum expert, longe disto mais acho que esta errado a conexão com o banco tenta colocar assim: SET Conn = Server.CreateObject("ADODB.Connection") Conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("teste.mdb") Do jeito que esta voce tem que deixar o banco na mesma pastaOs requests não é necessario deixar como SET .....

[mateuscrocha 0]

Continua dando o mesmo erro. Sei que o erro não é com a conceção com o banco....sei que é na hora que faço o SELECT e depois o CONN.EXECUTE.SOS

[nostrinkes 0]

Ja olhou a sequencia dos campos do access em relação com a tabela asp

[nostrinkes 0]

voce esta enviando em get pelo formulario??

[mateuscrocha 0]

Puts...... vcs nem vão acreditar........Eu não tinha permissão de WRITE no arquivo MDB. Que m*****......funcionou agora....Valeu NOSTRIKE........foi mal pela ignoância.

[Salgado 4]

Tente isso:

sql="tabela"
rs.Open sql,conn,adOpenDynamic,adLockOptimistic,adCmdTable

Utilizando o include que já foi indicado.

QQ coisa Grita!

 

 

Valeu?

[nostrinkes 0]

esta era aproxima tentativa hehehehe... permissão no iis