VicFalMac

Olá... Faz mais de uma semana que tento resolver o ERRO : Microsoft OLE DB Provider for ODBC Drivers error '80004005' [Microsoft][ODBC Microsoft Access Driver]General error Unable to open registry key 'Temporary (volatile) Jet DSN for process 0x980 Thread 0xbb8 DBC 0x24cb6ac Jet'. Hoje consegui resolvê-lo. Eu entrei no ACCESS(eu uso o 2000)---> Menu Ferramentas ---> Utilitários de Banco de Dados ---> Compactar e corrigir banco de dados Não me perguntem o porquê. Eu não sei como funcionou, o importante é que funcionou. Como eu disse essa é apenas uma solução, que comigo funcionou. Mas antes de tudo não se esqueça de verificar se o caminho do banco de dados está correto. Até Mais

E como faço isso? As páginas de consulta estão funcionando corretamente, apenas as de inserção que não.

Valeu Bareta e Dark0 pela ajuda Consegui resolver o meu problema Eu entrei no ACCESS(2000) --> Menu Ferramentas ---> Utilitários de Banco de Dados ---> Compactar e corrigir Banco de dados Mas agora deu um outro problema Microsoft OLE DB Provider for ODBC Drivers error '80004005' [Microsoft][ODBC Microsoft Access Driver] Operation must use an updateable query. Isso ocorre nesta parte: ......... strCorr= "INSERT INTO Corretores " strCorr= strCorr & "(Nome, Endereco, Bairro, Cidade, Estado, CEP, RG, CPF, CRECI, " strCorr= strCorr & "Tel1, Tel2) " strCorr = strCorr & "VALUES ('" & varnome & "', " strCorr = strCorr & "'" & varendereco & "', " strCorr = strCorr & "'" & varbairro & "', " strCorr = strCorr & "'" & varcidade & "', " strCorr = strCorr & "'" & varestado & "', " strCorr = strCorr & "'" & varcep & "', " strCorr = strCorr & "'" & varrg & "', " strCorr = strCorr & "'" & varcpf & "', " strCorr = strCorr & "'" & varcreci & "', " strCorr = strCorr & "'" & vartel1 & "', " strCorr = strCorr & "'" & vartel2 & "') " Call abreconexao Set rsCorr = conexaodb.Execute(strCorr)

Olá Fabi... Eu tava vendo seu problema, é parecido com o meu. MAs no seu caso acho que está faltando o termo "SET" antes de: caminho_mdb = "DBQ=" & server.mappath("../../dados_matricula_online.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};" Para ficar assim: Set caminho_mdb = "DBQ=" & server.mappath("../../dados_matricula_online.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};" Boa sorte!

oi Graciane.... Esse erro está ocorrendo comigo tb e não sei como resolvê-lo... Mas comece fazendo o seguinte: Vá em Painel De Controle --> Opções da Internet --> Avançado --> e desmarque "Exibir mensagens de erro amigáveis" Isso não vai resolver o seu problema, porém, te dará mais detalhes sobre o próprio.

Mudar como Bareta? Não entendi...o código q você colocou é igual ao meu. Eu já tentei algumas outras formas tipo: ...... Server.MapPath("/") & " /db/manduca.mdb" Server.MapPath("../db/manduca.mdb") Não sei mais o que fazer!!!

Obrigado a todos pela ajuda.... A parte do Dim nome() Redim (numero) Está correta, pois de outra forma não funciona.....

Só completando... O Erro que aparece é : Microsoft OLE DB Provider for ODBC Drivers error '80004005' [Microsoft][ODBC Microsoft Access Driver]General error Unable to open registry key 'Temporary (volatile) Jet DSN for process 0xa0c Thread 0xbdc DBC 0xffc72ac Jet'. /vicfalmac/conexao.inc, line 4 Valeu

Olá... O meu problema é o seguinte... Nas páginas do site em que há acesso ao banco de dados elas não funcionam. Aparece uma tela de ERRO HTTP 500. Eu já tirei aquela tal de Msg Amigável. Mas o mais estranho, pra mim, é no PWS o site funciona perfeitamente mas online ele não funciona. Eu o hospedei no www.7host.com, para testar e para apresentar para o meu cliente. Ele disse que enquanto eu não arrumar eu não recebo o dinheiro..!!!! Bom, aqui está o código e tomara que alguém me ajude. Código da página Conexao.inc, na qual está uma Sub que realiza a conexao com o BD (fiz isso para não escrever sempre a mesma coisa nas páginas)!! <% sub AbreConexao set conexaodb = Server.CreateObject("ADODB.Connection") conexaodb.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db\manduca.mdb") end sub sub FechaConexao conexaodb.close set conexaodb = nothing end sub %> Código da página cad_corr.asp, na qual está o form para o cadastro de corretores <form name="form1" action="cad_corr_ok.asp" method="post"> <input name="txtNome" type="text" class="caixa" id="txtNome" size="50" maxlength="100"> <input name="txtRG" type="text" class="caixa" id="txtRG" size="14" maxlength="12"> <input name="txtCPF" type="text" class="caixa" id="txtCPF" size="17" maxlength="15"> <input name="txtCreci" type="text" class="caixa" id="txtCreci" size="18" maxlength="20> <input name="txtEndereco" type="text" class="caixa" id="txtEndereco" size="50" maxlength="50> <input name="txtBairro" type="text" class="caixa" id="txtBairro" size="40" maxlength="40> <td align="left"><input name="txtCidade" type="text" class="caixa" id="txtCidade" size="20" maxlength="20> <input name="txtEstado" type="text" class="caixa" id="txtEstado" size="2" maxlength="2" onBlur="document.form1.txtEstado.value=document.form1.txtEstado.value.toUpperCase()"> <input name="txtCEP" type="text" class="caixa" id="txtCEP" size="9" maxlength="9"> <input name="txtTel1" type="text" class="caixa" id="txtTel1" size="15" maxlength="15> <input name="txtTel2" type="text" class="caixa" id="txtTel2" size="15" maxlength="15> <input name="Submit" type="submit" class="botao" value="Cadastrar" title="Clique aqui para cadastrar o corretor"> </form> Código da página cad_corr_ok.asp, a qual realiza o cadastro do corretor. <% Dim conexaodb, strCorr, rsCorr, varnome, varendereco, varbairro, varcidade, varestado Dim varcep, varrg, varcpf, varcreci, vartel1, vartel2 varnome = Trim(Request.Form("txtNome")) varendereco = Trim(Request.Form("txtEndereco")) varbairro = Trim(Request.Form("txtBairro")) varcidade = Trim(Request.Form("txtCidade")) varestado = UCase(Trim(Request.Form("txtEstado"))) varcep = Trim(Request.form("txtCEP")) varrg = Trim(Request.Form("txtRG")) varcpf = Trim(Request.Form("txtCPF")) varcreci = Trim(Request.Form("txtCreci")) vartel1 = Trim(Request.Form("txtTel1")) vartel2 = Trim(Request.Form("txtTel2")) varnome = Replace(varnome, "'", "") varendereco = Replace(varendereco, "'", "") varbairro = Replace(varbairro, "'", "") varcidade = Replace(varcidade, "'", "") varestado = Replace(varestado, "'", "") varcep = Replace(varcep, "'", "") varrg = Replace(varrg, "'", "") varcpf = Replace(varcpf, "'", "") varcreci = Replace(varcreci, "'", "") vartel1 = Replace(vartel1, "'", "") vartel2 = Replace(vartel2, "'", "") strCorr= "INSERT INTO Corretores " strCorr= strCorr & "(Nome, Endereco, Bairro, Cidade, Estado, CEP, RG, CPF, CRECI, " strCorr= strCorr & "Tel1, Tel2) " strCorr = strCorr & "VALUES ('" & varnome & "', " strCorr = strCorr & "'" & varendereco & "', " strCorr = strCorr & "'" & varbairro & "', " strCorr = strCorr & "'" & varcidade & "', " strCorr = strCorr & "'" & varestado & "', " strCorr = strCorr & "'" & varcep & "', " strCorr = strCorr & "'" & varrg & "', " strCorr = strCorr & "'" & varcpf & "', " strCorr = strCorr & "'" & varcreci & "', " strCorr = strCorr & "'" & vartel1 & "', " strCorr = strCorr & "'" & vartel2 & "') " Call abreconexao Set rsCorr = conexaodb.Execute(strCorr) %> Se alguém souber o problema por favor me ajudem. Obrigado. Ah..para quem quiser dar uma olhada no site para ver o problema o endereço é: Imobiliária Manduca Usuário: Manduca Senha : 140284 Obrigado de novo!!!

Olá... quando eu tento acessar o banco de dados aparece a seguinte msg: General error Unable to open registry key 'Temporary (volatile) Jet DSN for process 0x9a4 Thread 0x918 DBC 0xb0461e4 Jet'. o que isso quer dizer? E como resolvo isso? Obrigado

Olá... Eu tenho um site que aqui em casa no meu PC (utilizando o PWS) ele funciona, mas quando eu o publiquei na net, ele começou a apresentar o ERRO HTTP 500. Por que isso ocorre e como eu arrumo isso? Ah...esse erro aparece quando eu tento acessar o banco de dados. Obrigado

Como fazer para corrigir o erro Data Type Mismatch, sem que apareça o erro Missing Operator in 'Codigo=', neste exemplo: Dim i, numero, SQL, rec, con numero = Request.Form("QtdeNomes") Dim vcodigo() Dim vnome() Redim vcodigo(numero) Redim vnome(numero) Dim SQL For i=1 to numero SQL = "Update Tabela Set " SQL = SQL & "Nome= '" & vnome(i) "' " SQL = SQL & "Where Codigo = '" & vcodigo(i) & "' " Set rec = con.execute(SQL) Set rec= nothing Next 'Lembrando q a conexao já foi aberta eu uso um BD em ACCESS.