4 replies to this topic

[Mendingo]

<%
Dim conConexao
const cntCaminho ="o caminho que eu coloco com meu bd"
Set conConexao
Server.CreateObject("ADODB.Connection")
conConexao.Open "Driver={Microsof Acess Driver (*.mdb)};dbq" &cntCaminho
conConexao.Close
%>

Porque dá errado?
PS- o Caminho eu coloco certo, é porque não copiei do código original, e sim reescrevi, caso haja algum erro comentem por favor.

Só pra lembrar, é meu primeiro post no fórum ) achei muito legal o fórum!!!

[vicoluis]

então copie e cole o código exatamente como vc está usando para darmos melhor a ajuda...

[LeoB]

Olá. Bem vindo. Aproveite bastante este fórum.
...
Não sou bom em recados, portanto vamos logo ao trabalho.

Faltou o = depois do DBQ, um "c" no Access e o "t" do Microsoft.

<%
Dim conConexao
const cntCaminho ="o caminho que eu coloco com meu bd"
Set conConexao
Server.CreateObject("ADODB.Connection")
conConexao.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & cntCaminho
conConexao.Close
%>

E não cole o & com o vizinho que nem você fez: &cntCaminho. Dê um espaço. É por que o & quando vem colado em alguém, geralmente, é para representar números em hexa/octadecimal. Ex: &HFF &O30 . Por isso é bom evitar.

[Pastel]

Tive que trocar de nick, se liga galera, eu nunca mandei nenhum site pro ar até hoje porque sempre dá erro na conecção com o servidor.
Eu não programo nada, eu faço o site todo pelo Dreamweaver MX, aprendi por livro, sei fazer qualquer coisa, mas pelo programa. Por isso ele cria um arquivo e tal que tem que informar o dsn, já tentei varias vezes mecher nesse DSN tbm e deu erro, agora comprei um livro de programação de ASP pra vê se eu aprendia corrigir esse erro, e pelo que li e vocês postaram, ficou assim:

<%
Dim conConexao
const cntCaminho ="C:\dmx\dados.mdb"
Set conConexao 
Server.CreateObject("ADODB.Connection")
conConexao.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & cntCaminho
conConexao.Close
%>

Nessa hora de declarar a variavel dá erro:

Set conConexao

[nccs]

tanta assim:

Set Conexao = CreateObject("ADODB.CONNECTION")
conStr ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("Pasta_do_Banco/Nome_do_Banco") & "; uid=sa; pwd=;"