Inclusão Não Dá Erro Mas Tb Não Inclui

[fertel]

Ao incluir um novo registro numa tabela access, nem dá erro, nem inclui os dados, já verifiquei tudo, tudo, já fiz dois forms e nada o que pode ser:

    ComandoSQL = "INSERT INTO COMUNICADOS (TITULO, COMUNICADO, AUTOR)"
    ComandoSQL = ComandoSQL & " VALUES ("
    ComandoSQL = ComandoSQL & "'" & Request.FORM("TITULO") & "',"
    ComandoSQL = ComandoSQL & "'" & Request.FORM("box2") & "',"
    ComandoSQL = ComandoSQL & "'" & Request.FORM("AUTOR") & "')"
    Set bd = Conexao.Execute(ComandoSQL)

Response.Redirect "adm_default.asp"

Estou usando este processo, que funciona em outro script, mas para adicionar nesta tabela, nada acontece. E o mais estranho é exatamente o fato de não dar nenhuma mensagem de erro.

Ajudem-me

[Guest Guest]

Alguém me ajude, não entendo o que está acontecendo.

[Rob_g2*6(sic)6]

cola a tela que está enviando e um pedaço a mais de código...

você esta enviando via POST mesmo ?

[ursolouco]

Brother!!

Uma Dica, que na maioria da vezes sempre dá certo.

Recolha os dados e coloque eles em variaveis, e no seu "INSERT" você apenas chama elas, sem invocar outros métodos (Request)

Abraços![]

[fertel]

Então, o que ocorre?

Chamei todas as variáveis para o arquivo de inclusão e elas estão lá.

O mais estranho é que não dá nenhum erro, mas também não inclui. Teria alguma coisa haver com estar usando acess 2003 ao fazer o banco de dados?

Outra coisa, neste mesmo banco tem outra tabela, que com este mesmo código funciona normalmente.

[fertel]

aff, tinha um Error resume next...

ao retirar apareceu este erro:

Error Type:

Microsoft OLE DB Provider for ODBC Drivers (0x80004005)

[Microsoft][ODBC Microsoft Access Driver] Operation must use an updateable query.

admin/comunicados_novo_submit.asp, line 10, que está em negrito abaixo:

ComandoSQL = "INSERT INTO COMUNICADOS (TITULO, COMUNICADO, AUTOR)"

ComandoSQL = ComandoSQL & " VALUES ("

ComandoSQL = ComandoSQL & "'" & Request.FORM("TITULO") & "',"

ComandoSQL = ComandoSQL & "'" & Request.FORM("box2") & "',"

ComandoSQL = ComandoSQL & "'" & Request.FORM("AUTOR") & "')"

Set bd = Conexao.Execute(ComandoSQL)

[ursolouco]

Estranho cara, não sei ao certo, pois não estou mexendo mais com access e este tipo de coisa, nunca me aconteceu...

experimente...

<%
 titulo = CStr(Request.Form("titulo"))
 box2   = CStr(Request.Form("box2"))
 autor  = CStr(Request.Form("autor"))
 isql = "INSERT INTO comunicado SET titulo = '"& titulo &"', box2 = '"& box2 &"', autor='"&autor&"'"
%>

abraços![]

[ursolouco]

Pela sua mensagem...

Veja as permissões no banco de dados e diretorio

[fertel]

Fiz conforme seu exemplo tb não obtive sucesso:

titulo = CStr(Request.Form("TITULO"))
box2   = CStr(Request.Form("box2"))
autor  = CStr(Request.Form("AUTOR"))
isql = "INSERT INTO COMUNICADOS SET TITULO = '"& titulo &"', COMUNICADO = '"& box2 &"', AUTOR= '"&autor&"'"


Response.Redirect "adm_default.asp"

Mesma coisa... Não dá erro nem inclui... muito estranho...

As permissões do servidor estão ok... do diretório tb... como disse tenho outro script para cadastro que funciona perfeitamente...

[Rob_g2*6(sic)6]

QUal o windows .... se for XP, já passei por coisa assim tente compartilhar a pasta da aplicação ....!!!!

[fertel]

QUal o windows .... se for XP, já passei por coisa assim tente compartilhar a pasta da aplicação ....!!!!

Falou!!!! Era exatamente isso...

Desculpem o trabalho que dei a vocês, mas é que estou num PC do trabalho novo que estou há apenas uma semana. Normalmente utilizo Windows XP, mas o daqui é 2000 server, e estava com acesso restrito ao diretório.

Valeu mesmo pela ajuda companheiros.

[Rob_g2*6(sic)6]

é nois

[bareta]

ok... bom como foi resolvido to fechando... me mandem pm qualquer coisa