• 0
Sign in to follow this  
VicFalMac

Por Favor Me Ajudem, Não Consigo Acessar O Bd!

Question

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>
Lembrando que só coloquei a parte do código que mais importa
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!!!

Share this post


Link to post
Share on other sites

10 answers to this question

Recommended Posts

  • 0

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

Share this post


Link to post
Share on other sites
  • 0

muda sua conexão

<%
 set conexaodb = Server.CreateObject("ADODB.Connection")
 conexaodb.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db\manduca.mdb")

Share this post


Link to post
Share on other sites
  • 0

a princípio, esse erro ocorre sempre que o caminho do banco está errado, e o codigo asp não encontra ele, e dá erro..

verifique se o caminho está certo..

Share this post


Link to post
Share on other sites
  • 0

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!!!

Share this post


Link to post
Share on other sites
  • 0

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)

Share this post


Link to post
Share on other sites
  • 0

Veja se não é problema de permissão..

Share this post


Link to post
Share on other sites
  • 0
Guest Sergio Alves
Veja se não é problema de permissão..

Veja seu o diretorio onde esta o banco tem permissão de gravação.

Qualquer problema me avise ....

Share this post


Link to post
Share on other sites
  • 0

heheh

o que era?

problema de permissão mesmo?

responde ae, depois eu fecho o tópico!

abraços

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this