Odbc

[NewUser 0]

Ola galera,

Estou com um probleminha aparentimente simples.

Estou fazendo uma conexão asp+MySql, instalei o odbc 5.1 e quando faço o teste ele da sucesso mais quando vou me conectar pelo condigo a este erro:

Microsoft OLE DB Provider for ODBC Drivers (0x80004005)

[Microsoft][ODBC Driver Manager] Nome da fonte de dados não encontrado e nenhum driver padrão especificado

/ServerLocal/MagnaImport/busca_esquerda.asp, line 16

Minha conexão

<%

Dim conexaoBanco

conexaoBanco = "DRIVER={MySQL ODBC 5.1 Driver}; SERVER=localhost; PORT=3306; DATABASE=magnaimport1; USER=root; PASSWORD=; OPTION=3;" 
%>

preciso de um help

[hargon 64]

Você instalou esse driver? Caso não, baixe no site do MySQL e instala.

[NewUser 0]

como citei acima ja instalei e funciona no teste.

[Vinicius Ianni 189]

Eu uso esta rotina pra conectar, tanto acesso local qto no servidor:

 

'Variáveis com os valores de sua base de dados. 
strDataSoure = "mydb.servidor.com.br" 'colocar a localização de sua base de dados,preferenciamente o dominio
strDataBase ="meudb" 'Colocar o nome da base 
strUser = "meulogin" 'colocar nome do usuário 
strPWD = "senha" 'colocar a senha 

'Geramos a query SQL que irá acessar os dados na base de dados 
'Conforme alteração 1 
' Fazer select em tabela teste2, que contem os campos: id (int(11) e texto(varchar(50))
'strQuery = "select * from web" 

' Definir String de conexao para base MySQL
strConexao = "Driver={MySQL ODBC 3.51 Driver};SERVER=" & strDataSoure 
strConexao = strConexao & "; DATABASE=" & strDataBase 
strConexao = strConexao & ";Uid="& strUser 
strConexao = strConexao & ";Pwd="& strPWD 

set TedkDados = server.CreateObject("ADODB.Connection")
TedkDados.open strConexao

 

Como Pode ver, é um misto de uma str de conexão do uolhost com um do TedK que ele postou aqui.

 

Tem funcionado em 100% dos casos sem erros.

[Patrique 0]

poste o code do teste ae, uma coisa é ter o mysql outro coisa é o drive, você esta fazendo o teste pelo code?

[NewUser 0]

Eu uso esta rotina pra conectar, tanto acesso local qto no servidor:

 

'Variáveis com os valores de sua base de dados.

strDataSoure = "mydb.servidor.com.br" 'colocar a localização de sua base de dados,preferenciamente o dominio

strDataBase ="meudb" 'Colocar o nome da base

strUser = "meulogin" 'colocar nome do usuário

strPWD = "senha" 'colocar a senha

 

'Geramos a query SQL que irá acessar os dados na base de dados

'Conforme alteração 1

' Fazer select em tabela teste2, que contem os campos: id (int(11) e texto(varchar(50))

'strQuery = "select * from web"

 

' Definir String de conexao para base MySQL

strConexao = "Driver={MySQL ODBC 3.51 Driver};SERVER=" & strDataSoure

strConexao = strConexao & "; DATABASE=" & strDataBase

strConexao = strConexao & ";Uid="& strUser

strConexao = strConexao & ";Pwd="& strPWD

 

set TedkDados = server.CreateObject("ADODB.Connection")

TedkDados.open strConexao

 

 

 

Como Pode ver, é um misto de uma str de conexão do uolhost com um do TedK que ele postou aqui.

 

Tem funcionado em 100% dos casos sem erros.

 

Estou com problema para encntrar o drive ODBC não sei por qual razão, a conexão ta ok.

[Vinicius Ianni 189]

Desinstala tudo e baixa o odbc do site do mysql novamente e reinstala tudo.

Se o script está ok, isso começa a cheirar instalação com problemas.

[NewUser 0]

Desinstala tudo e baixa o odbc do site do mysql novamente e reinstala tudo.

Se o script está ok, isso começa a cheirar instalação com problemas.

 

Desinstalei e instalei e nada. o teste quando instalo o drive no gerenciador funciona com sucesso mais no IIS rodando a página da este erro.

Não sei mais oq fazer.

[Vinicius Ianni 189]

o servidor do mysql está rodando ?

[NewUser 0]

sim. como eu disse o eu testo pelo o ODBC e da sucesso.

VLW

[hargon 64]

Você está usando qual IIS? Qual Windows?

 

Esse driver que você instalou, baixou de onde?

 

Posta o que está na linha 16.

[NewUser 0]

a linha 16 e a que abra o banco open

 

cmd.ActiveConnection = conexaoBanco

 

windows xp sp3 e IIS 5

 

ja estou a mais de 26h e nada, ja estou quase formatando a máquina.

obrigado de novo

[xanburzum 169]

tente assim, este simples exemplo:

 

<% 
'Criamos o objeto de conexão
Set conn = Server.CreateObject("ADODB.Connection") 
 
'Abrimos uma conexão com o banco de dados ,altere os dados abaixo com as informações de sua base de dados
conn.Open("DRIVER={MySQL ODBC 5.1 Driver};SERVER=ENDEREÇO_DA_BASE_MYSQL;PORT=3306;DATABASE=NOME_DA_BASE;USER=NOME_DA_BASE;PASSWORD=SENHA_DA_BASE;OPTION=3;")
 
response.write "banco conectado" 
 
'Fechamos a conexão com o banco de dados
conn.Close()
 
'Destruímos o objeto
Set conn = Nothing
%>

verifique a porta padarun do MySQL se esta 3306

[hargon 64]

Faça o que o Xan sugeriu para testes e poste o resultado.

 

Mas o correto no seu código é Set cmd.ActiveConnection = conexaoBanco