Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

giga_fire

Erro ao conectar com banco de dados ACCESS

Por , em ASP Clássico

Recommended Posts

giga_fire    0

giga_fire
Postado

Olá pessoal!!!Estou aqui pois recomecei a programar ASP depois de 2 anos e lembro só o básico!!! :P Tentei fazer a conexão com o banco de dados, mas obtenho esse erro:

Microsoft OLE DB Provider for ODBC Drivers (0x80004005)[Microsoft][Driver ODBC para Microsoft Access]Erro geral Não é possível abrir a chave 'Temporary (volatile) Jet DSN for process 0xe3c Thread 0xc54 DBC 0x12e0cf4 Jet' do Registro./apaeleme/conexao.asp, line 12

conexao.asp
<%Dim LocalBD, DriverBD, NomeBD, Conexao, Conn' Algumas variaveisNomeBD = "bd1.mdb"LocalBD = Server.MapPath(NomeBD)DriverBD = "Driver={Microsoft Access Driver (*.mdb)};Dbq="Conexao = DriverBD & LocalBD' Cria os objetosSet Conn = Server.CreateObject("ADODB.Connection")Conn.Open Conexao%>
noticias.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><title>Notícias</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /></head><body><!--#include file="conexao.asp"--><%id = Request.QueryString("id")If id = "" Then ' nenhuma noticia selecionada -> mostra a atual + todasmostraNoticia(0)mostraTodas(0)Else ' noticia selecionada -> mostra-a + todas menos elamostraNoticia(id)mostraTodas(id)End If' funcao para mostrar uma noticiaFunction mostraNoticia(qual)Dim Sql, RecSql = "SELECT * FROM noticias ORDER BY id DESC"Rec = Server.CreateObject("ADODB.Recordset")Rec.Open Sql, Conn, 3, 3Rec.CloseSet Rec = NothingEnd Function%></body></html>
Desculpem-me se o erro é algo óbvido, mas é que eu realmente não consigo ver :D Obrigado desde já...

Compartilhar este post

Link para o post
Compartilhar em outros sites

meirelles    0

meirelles
Postado

tenta assim:

<%@ Language=VBScript %><%dim conexao, DSNtemp, connSet conn = server.createobject("adodb.connection")DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)};"DSNtemp=dsntemp & "DBQ=" & server.mappath("BD1.mdb")conn.Open DSNtemp%>

ok

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

outras formas de conexao

 

http://www.connectionstrings.com

Compartilhar este post

Link para o post
Compartilhar em outros sites

giga_fire    0

giga_fire
Postado

tenta assim:

<%@ Language=VBScript %><%dim conexao, DSNtemp, connSet conn = server.createobject("adodb.connection")DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)};"DSNtemp=dsntemp & "DBQ=" & server.mappath("BD1.mdb")conn.Open DSNtemp%>
ok
Deu o mesmo erro :!Não sei + o q fazer... será que é meu IIS?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Verifique se o BD está realmente na mesma pasta que o Script.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

essas conexoes voce costuma fechar???bem voce ja tentou reiniciar o IIS e testar pra ver se funciona pois tou achando que ele não ta conetando pois tem muitas conexoes ja abertas

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

tem certeza que o DB esta no mesmo diretorio do arquivo de conexao???

Compartilhar este post

Link para o post
Compartilhar em outros sites

giga_fire    0

giga_fire
Postado

tem certeza que o DB esta no mesmo diretorio do arquivo de conexao???

Tenho :D Eu me lembro que eu já tive essa dor-de-cabeça uma vez... mas não lembro o que foi que eu fiz...Continuo achando que deve ser um problema do IIS

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito