O que pode ser isso

[masterofdreams 0]

Tipo de erro:Microsoft OLE DB Provider for ODBC Drivers (0x80004005)[Microsoft][Driver ODBC para Microsoft Access] A operação deve usar uma consulta atualizável./teste/inserir.asp, line 99eu sou novato em ASP mas eu chego lá..Muito obrigado por tudo o q vcs tem me passado..valew

[rockbilly 0]

Olá colega,coloca a linha que está dando o erro fica mais fácil tentar te ajudar! ;)

[masterofdreams 0]

a linha é esta...<%'Aqui abrimos a conexão com nosso banco de dadosSet Conex = Server.CreateObject ("ADODB.Connection") Conex.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("database/dados.mdb")'Coletamos os dados do formulárionome = request("nome")email = request("email")opcao = request("opcao")'Verificamos os dadosif nome = "" thenalerta = alerta + "- Nome<br>"end ifif instr(email,"@") = 0 thenalerta = alerta + "- E-mail inválido."end if 'Se não forem encontrados erros ele executa as instruções abaixoif alerta = "" then'Pega os dados do formulário e verifica se o email já não está cadastrado no bancoSet verificar = Server.CreateObject("ADODB.Recordset")sql = "Select * from usuarios where nome='"&nome&"'and email='"&email&"'"verificar.open sql, conex, 1,1'Se não for encontrado o registro e a opção for igual a adicionarif verificar.eof and opcao = "adicionar" then'Efetua o cadastroSet cadastra = Server.CreateObject("ADODB.Recordset")sql = "Select * from usuarios"cadastra.open sql, conex, 3,3cadastra.addnewcadastra("nome") = nomecadastra("email") = emailcadastra.update'Exibe uma mensagem de que o cadastro foi realizadoalerta = ("Cadastro realizado com sucesso!")'Se não for encontrado o registro e a opção for igual a removerelseif verificar.eof and opcao = "remover" thenalerta = ("Seu e-mail não foi encontrado.")'Se o registro for encontrado e a opção for igual a removerelseif opcao = "remover" then'Remove o e-mailSet remover = Server.CreateObject("ADODB.Recordset")sql = "Select * from usuarios where nome='"&nome&"'and email='"&email&"'"remover.open sql, conex, 3,3remover.delete'Exibe uma mensagem de que o registro foi removido com sucessoalerta = ("Seu e-mail foi removido de nossa lista com sucesso!")'Se a opção for igual a adicionar e o email for encontradoelse'Exibe uma mensagem de erroalerta = ("Seu e-mail já está cadastrado em nosso banco!")end ifend if

[rockbilly 0]

putz, era só colocar a linha 99 do erro, mas esse deve ser o problema, coloque só o código SQL, mas coloque o código de atualização em SQL!

sql = "Select * from usuarios"cadastra.open sql, conex, 3,3cadastra.addnewcadastra("nome") = nomecadastra("email") = emailcadastra.update

[masterofdreams 0]

ta dando erro aki o que poe estar errado..'Se não forem encontrados erros ele executa as instruções abaixoif alerta = "" then'Pega os dados do formulário e verifica se o email já não está cadastrado no bancoSet verificar = Server.CreateObject("ADODB.Recordset")sql = "Select * from usuarios where nome='"&nome&"'and email='"&email&"'"verificar.open sql, conex, 1,1'Se não for encontrado o registro e a opção for igual a adicionarif verificar.eof and opcao = "adicionar" then'Efetua o cadastroSet cadastra = Server.CreateObject("ADODB.Recordset")sql = "Select * from usuarios"cadastra.open sql, conex, 3,3cadastra.addnewcadastra("nome") = nomecadastra("email") = emailcadastra.update'Exibe uma mensagem de que o cadastro foi realizadoalerta = ("Cadastro realizado com sucesso!")muito obrigado pela ajuda...

[Gogumelo 0]

a pasta do bd tah sem permissao pra gravar dados.

[masterofdreams 0]

amigo a pasta ta ok.. vi agora, eu estou de um server // acessando a pasta... ta ok...

[masterofdreams 0]

po galera este ta estranho né,, continua dando o mesmo erro...vcs querem que eu post os codigos...

[masterofdreams 0]

po galera valew muito obrigado pela força, eu estou aguardando respostas...valew mesmo...o que eu quero e um formulario para conectar com o banco de dados access..se vcs tiverem algum me passa que eu susbstituo este..brigadao..

[masterofdreams 0]

VCS SAO DEMAIS, MUITO OBRIGADO RESOLVI MEUS PROBLEMAS, AGORA VOU ESTUDAR ASP, PARA PODER AJUDAR A TODOS, QUALQUER INFORMAÇÃO SOBRE O VELOX.. ESTOU AQUI PARA AJUDAR....MASTEROFDREAMS...

[WebASP 0]

VCS SAO DEMAIS, MUITO OBRIGADO RESOLVI MEUS PROBLEMAS, AGORA VOU ESTUDAR ASP, PARA PODER AJUDAR A TODOS, QUALQUER INFORMAÇÃO SOBRE O VELOX.. ESTOU AQUI PARA AJUDAR....MASTEROFDREAMS...

Oque pe velox ?

[dimarcinho 0]

troca a linha verificar.open sql, conex, 1,1

por

 

verificar.open sql, conex, 3,3

 

[]'s