Codigo Asp Para Ler Banco De Dados Mysql

[ligeirotegs]

Amigos

Bom dia!

Sou novato no Asp, converti o banco de dados de Acess (netcar.mdb) e criei meu novo banco de Dados em Mysql com o nome netcar, igual ao anterior

Estou querendo que meu código Asp, leia pelo novo banco mysql e não mais pelo acess.

Será que alguém consegue me dar a dica onde mudo o meu código abaixo.

Tenho uma pagina e um arquivo com o nome sis.arquivo.asp que é a pagina que le o meu banco de dados, (com o código completo a seguir), gostaria de saber onde devo mudar para ler o nome do banco de dados mysql que tenho que cadastrar no código o endereço, login, senha e nome do banco de dados.

Gostaria de saber onde devo colocar os dados no codigo asp para ler esse novo banco de dados.

Será que alguém me dá a dica? O cógio completo a seguir:

Muito Obrigado

Sucesso

Código completo do sis.arquivo.asp é =(Esse é o código que ainda esta lendo o acess (netcar.mdb))

<%
private function AbrirBD(intNivel)
dim strCaminhoBD, intTempNivelDir

intTempNivelDir=intNivel
strCaminhoBD = Server.MapPath(Request.ServerVariables("SCRIPT_NAME"))
intTempNivelDir = intTempNivelDir + 1
if (InStr(strCaminhoBD,"teste") > 0) then intTempNivelDir = intTempNivelDir + 1
while intTempNivelDir > 0
strCaminhoBD = Left(strCaminhoBD, InStrRev(strCaminhoBD,"\")-1)
intTempNivelDir = intTempNivelDir - 1
wend
strCaminhoBD = strCaminhoBD & "\dados\netcar.mdb"

'RESPONSE.WRITE strCaminhoBD & "<br>"
'RESPONSE.END


set conexao = Server.CreateObject("ADODB.Connection")
on error resume next
conexao.Open "DRIVER={Microsoft Access Driver (*.mdb)};" & _ 
"DBQ=" & strCaminhoBD & ";" & _
"PWD="
if err.Number <> 0 then
conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;" &_
"Data Source=" & strCaminhoBD
if err.Number <> 0 then
'Response.Redirect("foradoar.asp")
'RESPONSE.WRITE "Estamos em manutencao !!! Por favor, aguarde !!!"
response.write "Caminho para o banco de dados: " & strCaminhoBD
response.Write("<br>Diretório atual: " & strNivelDirPagina)
response.Write("<br>Diretórios: " & intTempNivelDir)
response.Write("<br>Código de erro: " & err.Number)
response.Write("<br>Descrição do erro: " & err.Description)
response.Write("<br>Página atual: " & Request.ServerVariables("SCRIPT_NAME"))
response.Write("<br>Página anterior: " & Request.ServerVariables("HTTP_REFERER"))
response.Write("<br>Help Context: " & err.helpcontext)
response.Write("<br>Help Path: " & err.helppath)
response.Write("<br>Native Error: " & err.nativeerror)
response.Write("<br>Source: " & err.source)
response.Write("<br>SQLState: " & err.sqlstate)
dim objFSO
set objFSO = Server.CreateObject("Scripting.FileSystemObject")
if objFSO.FileExists(strCaminhoBD) then
Response.Write("<br>...o arquivo existe.")
else
Response.Write("<br>ARQUIVO NÃO ENCONTRADO!")
end if
set objFSO = nothing
response.End()
end if
end if
on error goto 0
end function

private function FecharBD
Conexao.Close
set Conexao = nothing
end function
%>

Editado Junho 9, 2007 por andreia_sp
Utilize tags para códigos, facilita a visualização.

[.Andreia.]

O que vai mudar é a forma de conectar ao banco, voce pode consultar o link: http://www.connectionstrings.com onde há todos os bancos e as formas de conexao.

Porem voce precisará do conector do mysql (se não me engane o mais atual é o 3.51 Driver) que voce baixa no site http://dev.mysql.com/downloads/connector/odbc/3.51.html

[Marcos-rj]

Tenta assim, veja se funciona. você precisa fazer as seguintes alterações:

em:

NOMEDOBANCODADOS = colocar o nome do banco de dados

UID= nome do usuario do banco de dados

PWD= a senha do banco de dados, se tiver

conexao.Open = "Driver={MySQL ODBC 3.51 Driver}; SERVER=localhost; DATABASE=NOMEDOBANCODADOS; UID=NOMEUSUARIO; PWD=SENHA"

Editado Junho 9, 2007 por Marcos-rj

[Guest --ligeirotegs --]

prezado Ricardo

muito obrigado por sua ajuda

Estou com duas duvidas e oscaminhos que estão no codigo direcionados em ambos os casos abaixo

abaixo é o caminho que o codigo esta apontando

.......................................................................................................

strCaminhoBD = strCaminhoBD & "\dados\netcar.mdb"

'RESPONSE.WRITE strCaminhoBD & "<br>"

'RESPONSE.END

if err.Number <> 0 then

conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;" &_

"Data Source=" & strCaminhoBD

.........................................................................................................

esse banco de dados é o velho.

Como é o caminho que devo colocar para o Mysql, sendo que o nome do meu banco mysql é o mesmo netcar

muito obrigado

sucesso

[bareta]

veja

conexao.Open = "Driver={MySQL ODBC 3.51 Driver}; SERVER=localhost; DATABASE=NOMEDOBANCODADOS; UID=NOMEUSUARIO; PWD=SENHA"

o local é o server ali... geralmente fica localhost ... quando for outra coisa no painel de controle da hospedagem tem algo falando... pode ser de um ip a um endereço http...

em database você coloca o nome do seu banco... no caso netcar...

UID coloque o nome de usuario cadastrado para acessar o banco...

PWD a senha de acesso ao banco..

[Guest --ligeirotegs --]

Muito obrigado pelas dicas a todos.

Na realidade o que estou tendo dificuldade, não é com o painel da provedora, já criei e o mysql, e esta ok lá.

Postei o codigo acima indicado por voces para ser mais exato esse:

conexao.Open = "Driver={MySQL ODBC 3.51 Driver}; SERVER=localhost; DATABASE=NOMEDOBANCODADOS; UID=NOMEUSUARIO; PWD=SENHA"

Mas não funcionou a ligação

O problema que no script tem uma indicação de caminho para o banco antigo que esta no script que postei acima (1ªvez).

repare no caminho no codigo acima onde consta isso: "\dados\netcar.mdb"

é essa a minha duvida maior, estou achando que o codigo que indicaram não esta funcionando, justamente porque esse caminho esta errado.

De qualquer forma, muito obrigado pelas dicas

sucesso

[Marcos-rj]

No MYSQL você não irá colocar o caminho do banco de dados.

tenta isso. da uma olhada, sai apagando umas linhas. to no trabalho e não posso ficar muito tempo.

private function AbrirBD(intNivel)

set conexao = Server.CreateObject("ADODB.Connection")

on error resume next

conexao.Open = "Driver={MySQL ODBC 3.51 Driver}; SERVER=localhost; DATABASE=NOMEDOBANCODADOS; UID=NOMEUSUARIO; PWD=SENHA"

if err.Number <> 0 then

'Response.Redirect("foradoar.asp")

'RESPONSE.WRITE "Estamos em manutencao !!! Por favor, aguarde !!!"

response.Write("<br>Código de erro: " & err.Number)

response.Write("<br>Descrição do erro: " & err.Description)

response.Write("<br>Página atual: " & Request.ServerVariables("SCRIPT_NAME"))

response.Write("<br>Página anterior: " & Request.ServerVariables("HTTP_REFERER"))

response.Write("<br>Help Context: " & err.helpcontext)

response.Write("<br>Help Path: " & err.helppath)

response.Write("<br>Native Error: " & err.nativeerror)

response.Write("<br>Source: " & err.source)

response.Write("<br>SQLState: " & err.sqlstate)

end if

on error goto 0

end function

private function FecharBD

Conexao.Close

set Conexao = nothing

end function

%>