Erro na conexão do banco

[lezão 0]

ALGUEM SABE Q ERRO É ESSE?

 

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 0x169c Thread 0xff4 DBC 0x25eb214 Jet'.

/loja_demo1/admin/libraries/conectar.asp, line 7

 

CONECTAR.ASP

<%Set Conexao = CreateObject("ADODB.CONNECTION")%>
<!-- #include file="bd.asp" -->
<%conStr = String_conexao
ConexaoAberta = FALSE
Sub AbreConexao()
if not ConexaoAberta then
Conexao.Open ConStr
ConexaoAberta = True
end if
end sub
Sub FechaConexao()
if ConexaoAberta then
Conexao.close
ConexaoAberta = False
end if
end sub
AbreConexao
Set rsConfigura = Conexao.Execute("SELECT * FROM config_loja")
nomedaloja = rsConfigura("loja_nome")
url = rsConfigura("loja_url")
emailautomatico = rsConfigura("email_automatico")
emailcontato = rsConfigura("email_contato")
emailpedidos = rsConfigura("email_pedidos")
emailservidor = rsConfigura("email_host")
emailcomponente = rsConfigura("componente")

Application("AUTHOR") = "by WebVETOR"
Application("EMAILAUTHOR") = "espartaco_vettorazzi@yahoo.com.br"
Session.LCID = 1046
response.buffer = true
session.timeout = 900
response.buffer = true
session.timeout = 900
dia=Day(now())
mes=Month(now())
ano=Year(now())
If dia > "10" Then
dia = "" & dia
end if
If mes > "10" Then
mes = "" & mes
end if
data = dia&"/"&mes&"/"&ano
Function Cripto(StrCripto, BolAcao)
Dim X , i, n, TamChave, Valor 
Dim aChaves(9) 
aChaves(0) = 77 
aChaves(1) = 84 
aChaves(2) = 79
aChaves(3) = 65
aChaves(4) = 73
aChaves(5) = 78
aChaves(6) = 67
aChaves(7) = 70
aChaves(8) = 82

X = Empty 

For i = 1 To Len(StrCripto) 
   n = Asc(Mid(StrCripto, i, 1))

   If n > 31 Then
      n = n - 32
      If BolAcao Then
         Valor = 1
      Else
         Valor = -1
      End If
      n = n + (aChaves((i - 1) Mod 9)) * Valor
      n = n Mod 224 ' Caracteres 256 - 32 desconsiderados
         If n < 0 Then
            n = 224 + n
         End If
      n = n + 32
   End If

   X = X & Chr(n)
Next
     If BolAcao Then
         Cripto = EHtmlEncode(X)
      Else
        Cripto = EHtmlDecode(X)
      End If
End Function
Function EHtmlEncode(StrString)
StrString = Replace(StrString, ",", ",")
StrString = Replace(StrString, "'", "'")
StrString = Replace(StrString, """", """")
StrString = Replace(StrString, "=", "=")
StrString = Replace(StrString, ".", ".")
StrString = Replace(StrString, "(", "(")
StrString = Replace(StrString, "set", "set")
StrString = Replace(StrString, "SET", "SET")
StrString = Replace(StrString, " where ", "where")
StrString = Replace(StrString, " WHERE ", "WHERE")
StrString = Replace(StrString, ")", "(")
StrString = Replace(StrString, Chr(32), Chr(32))
StrString = Replace(StrString, Chr(13), Chr(13))
StrString = Replace(StrString, Chr(0), Chr(0))
StrString = Replace(StrString, Chr(10) & Chr(10), Chr(10) & Chr(10))
StrString = Replace(StrString, Chr(10), Chr(10))
StrString = Replace(StrString, Chr(9), Chr(9))
StrString = Replace(StrString, Chr(11), Chr(11))
StrString = Replace(StrString, Chr(12), Chr(12))
StrString = Replace(StrString, Chr(60), Chr(60))
StrString = Replace(StrString, "/", "/")
StrString = Replace(StrString, "\", "\")
EHtmlEncode = StrString
End Function
Function EHtmlDecode(StrString)
StrString = Replace(StrString, "_a", "_a")
StrString = Replace(StrString, "_b", "_b")
StrString = Replace(StrString, "_c", "_c")
StrString = Replace(StrString, "_d", "_d")
StrString = Replace(StrString, "_e", "_e")
StrString = Replace(StrString, "_f", "_f")
StrString = Replace(StrString, "_g", "_g")
StrString = Replace(StrString, "_h", "_h")
StrString = Replace(StrString, "_i", "_i")
StrString = Replace(StrString, "_j", "_j")
StrString = Replace(StrString, "_l", "_l")
StrString = Replace(StrString, "_m", "_m")
StrString = Replace(StrString, "_n", "_n")
StrString = Replace(StrString, "_o", "_o")
StrString = Replace(StrString, "_p", "_p")
StrString = Replace(StrString, "_q", "_q")
StrString = Replace(StrString, "_r", "_r")
StrString = Replace(StrString, "_s", "_s")
StrString = Replace(StrString, "_t", "_t")
StrString = Replace(StrString, "_u", "_u")
StrString = Replace(StrString, "_v", "_v")
StrString = Replace(StrString, "_x", "_x")
EHtmlDecode = StrString
End Function%><!-- #include file="skin.asp" -->

 

BD.ASP

<%
'********************************************************************************
' AS CONFIGURAÇÕES ABAIXO REFEREM-SE AO USO DE MS ACCESS
'********************************************************************************
strDatabaseName = "loja.mdb" 'NOME DO ARQUIVO DE BANCO DE DADOS DA LOJA
strDatabaseCEP = "cep.mdb" 'NOME DO ARQUIVO DE BANCO DE DADOS DE CEPS
strDatabasedir = "C:\loja" 'DIRETÓRIO ONDE SE ENCONTRA A PASTA DE DADOS
strDatabasePath = "db" 'PASTA ONDE SE ENCONTRA O BANCO DE DADOS

DBQ = strDatabasedir&"\"&strDatabasePath&"\"&strDatabaseName
DBQc = strDatabasedir&"\"&strDatabasePath&"\"&strDatabaseCEP
DBQp = strDatabasePath&"\"&strDatabaseName
String_conexao = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&DBQ


'********************************************************************************
' AS CONFIGURAÇÕES ABAIXO REFEREM-SE AO USO DE MS SQL SERVER
'********************************************************************************

'strDatabaseCEP = "cep.mdb" 'NOME DO ARQUIVO DE BANCO DE DADOS DE CEPS
'strDatabasedir = "C:\loja" 'DIRETÓRIO ONDE SE ENCONTRA A PASTA DE DADOS DO CEP
'strDatabasePath = "db" 'PASTA ONDE SE ENCONTRA O BANCO DE DADOS
'MSSQLSERVER = "000.000.000.00" 'IP DO SERVIDOR MS SQL SERVER
'MSSQLUSER = "seulogin" ' LOGIN DE USUÁRIO DA BASE DE DADOS
'MSSQLSENHA = "suasenha" ' SENHA DE USUÁRIO DA BASE DE DADOS
'MSSQLBASE = "suabase" ' NOME DA BASE DE DADOS
'DBQc = strDatabasedir&"\"&strDatabasePath&"\"&strDatabaseCEP
'String_conexao ="Provider=sqloledb;Data Source="&MSSQLSERVER&";Initial Catalog="&MSSQLBASE&";User Id="&MSSQLUSER&";Password="&MSSQLSENHA&";"
'************************************************************************************************%>

[Humberto Oliveira Pinto 8]

vá em propriedades do banco de dados, depois em segurança e libere para o usuário TODOS o controle total do banco.

[lezão 0]

vá em propriedades do banco de dados, depois em segurança e libere para o usuário TODOS o controle total do banco.

 

 

ja estavam todos permitidos !!!!!!

[xanburzum 169]

acesse aqui

[lezão 0]

Ola Xanburzum, bom dia!

Meu amigo, este meu erro naun consta na kela lista de erros

[Microsoft] [ODBC Microsoft Access Driver] Erro geral Não é possível abrir 'DSN Jet temporária (volátil) para o processo de 0xb84 Tópico 0x1d90 DBC 0x26725dc Jet' chave de registro.

[lezão 0]

Fuçei bastante, e só consegui mas outro erro agora é esse:

 

ADODB.Connection error '800a0e78'

A operação não é permitida quando o objeto está fechado.

/loja_demo1/admin/libraries/conectar.asp, line 18

 

 

linha 18 é essa:

Set rsConfigura = Conexao.Execute("SELECT * FROM config_loja")