Indicar Só Uma Parte Do Caminho De Um Bd

#1 MANOBROW

Visitantes

Posted 31/10/2003, 22:57

eu quria um jeito de não precisar digitar o caminho inteiro do bango de dados (Ex: "C:\Inetpub\wwwroot\teste\db\cadastro.mdb") eu queria só colocar (db\cadastro.mdb).

<%
Set Conexao = Server.CreateObject("ADODB.Connection")
Conexao.Open "DBQ=C:\Inetpub\wwwroot\teste\db\cadastro.mdb;Driver={Microsoft Access Driver (*.mdb)};"
ComandoSQL = "SELECT * FROM Tabela"
Set bd = Conexao.Execute(ComandoSQL)
%>

Código Inteiro

<html>
<head>
<title>Parceiros</title>
</head>
<body>
<center>
  <p><table border="0" cellpadding="0" cellspacing="0" width="100%" dwcopytype="CopyTableRow">
      <tr> 
        <td bgcolor="<% =strHeadCellColor %>" align="center"><font face="<%= strDefaultFontFace %>" size="<%= strDefaultFontSize %>" color="<%= strHeadFontColor %>"><b>PARCEIROS</b><br>
          </font></td>
      </tr>
    </table>
  <br>
  <table width="100%" border="0" cellspacing="1" cellpadding="0">
    <%
Set Conexao = Server.CreateObject("ADODB.Connection")
Conexao.Open "DBQ=C:\Inetpub\wwwroot\teste\db\cadastro.mdb;Driver={Microsoft Access Driver (*.mdb)};"
ComandoSQL = "SELECT * FROM Tabela"
Set bd = Conexao.Execute(ComandoSQL)
%>
    <% do while not bd.eof 

%>
    <tr> 
      <td> 
        <div align="center"><font face="Arial" size="2"><b><%=bd("Nome")%></b></font></div>
      </td>
    </tr>
    <tr> 
      <td> 
        <div align="center"><font face="Arial" size="2"><b><img src="<%=bd("Imagem")%>"></b></font></div>
      </td>
    </tr>
    <tr> 
      <td height="11"> 
        <div align="center"> </div>
      </td>
    </tr>
    <%

bd.movenext
loop
%>
  </table>
</center>
</body>
</html>

#2 LiMa_6

Novato no fórum

Usuários
7 posts

Sexo:Não informado
Interesses:ASP, Photoshop, Flash, Fireworks, Java Script, HTML...

Posted 31/10/2003, 23:07

Ei brother,
tenta o seguinte:

Subistitui o:

Conexao.Open "DBQ=C:\Inetpub\wwwroot\teste\db\cadastro.mdb;Driver={Microsoft Access Driver (*.mdb)};"

Por:

conexao="Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/cadastro")

Vê se dá certo?

#3 MANOBROW

Visitantes

Posted 31/10/2003, 23:38

deste jeito não deu certo aparece a mensagem:

"Erro de compilação do Microsoft VBScript (0x800A0401)
Fim da instrução esperado"

Será que tem outro jeito?

#4 Nicholas Pufal

Impossível: só existe até alguém duvidar e provar o contrário.

Usuários
1655 posts

Sexo:Masculino
Localidade:Porto Alegre

Posted 01/11/2003, 07:55

Tenta assim cara:

<%
Set Conexao = Server.CreateObject("ADODB.Connection")
abrir = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/cadastro.mdb")
Conexao.open abrir
ComandoSQL = "SELECT * FROM Tabela"
Set bd = Conexao.Execute(ComandoSQL)
%>

Abraços

BLOG Touché Criação - Vamos trocar idéias? -> http://blog.touchecriacao.com.br/
// Links úteis: Busca || Regras
// Não respondo dúvidas via mensagem privada. Use o fórum para buscar ou perguntar.

#5 MANOBROW

Visitantes

Posted 01/11/2003, 14:26

deu o erro:

Driver ODBC para Microsoft Access]Erro geral Não é possível abrir a chave 'Temporary (volatile) Jet DSN for process 0x2c0 Thread 0x894 DBC 0x15dc024 Jet' do Registro.

indicando esta linha:

Conexao.open abrir

#6 crazybaby

Cyber Eye

Banidos
1112 posts

Sexo:Não informado
Localidade:Divinopolis-MG
Interesses:ASP & Design

Posted 01/11/2003, 14:36

ternta sssim se naum der posta de novo

<%
Set Conexao = CreateObject("ADODB.Connection")
abrir = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/cadastro.mdb")
Conexao.open abrir
ComandoSQL = "SELECT * FROM Tabela"
Set bd = Conexao.Execute(ComandoSQL)
%>

Está com duvida? | Tchau | Entre | Você é visitante?

Regras do Fórum | Warn System

#7 MANOBROW

Visitantes

Posted 01/11/2003, 14:51

deu este erro:

Tipo de erro:
Erro de compilação do Microsoft VBScript (0x800A0401)
Fim da instrução esperado

"abrir = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" &amp; Server.MapPath("parceiros.mdb")"

#8 crazybaby

Cyber Eye

Banidos
1112 posts

Sexo:Não informado
Localidade:Divinopolis-MG
Interesses:ASP & Design

Posted 01/11/2003, 15:13

aff tah xxxxxx j]hein....a conexao q eu uso é a seguiinte

set conexao = createobject("AdoDb.connection")
constr = "Driver={Microsoft Access Driver (*.mdb)};DBQ="& server.MapPath("downloads.mdb")
conexao.open constr

tenta adaptar o server,mappath com o seu bd,casonaum dê ainda tente usar com o metodo Jet.Oledb...

Está com duvida? | Tchau | Entre | Você é visitante?

Regras do Fórum | Warn System

#9 MANOBROW

Visitantes

Posted 01/11/2003, 15:31

-como seria o metodo Jet.Oledb?
-Algem pode me mandar otros metodos de se conectar a banco de dados?

#10 Rodrigo

oi!

Usuários
995 posts

Sexo:Não informado
Interesses:Diretório de sites - http://www.acheinobrasil.com.br

Posted 01/11/2003, 18:54

acerta ai:

abrir = "DBQ=" & Server.MapPath("parceiros.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}; "

Diretório de sites brasileiros - Achei no Brasil