[Resolvido] ASP + MySql

[Thiago Paschoalin 0]

Olá, eu dei uma caçada antes de postar, mas não achei minha resposta...

 

Por problemas de segurança com o ACCESS, estou tentando migrar para o MySql com o ASP, mas não consigo conecta.

 

Montei como teste apra conectar...

 

<%
DataSource = "Driver=MySQL; server=SERVIDORMYSQL; uid=USUARIO; pwd=SENHA; database=BANCO" 
Set Conn = Server.CreateObject("ADODB.Connection") 
Conn.Open DataSource

Set RS = Server.CreateObject( "ADODB.Recordset" )
RS.ActiveConnection = Conn

Set rs = Conn.Execute("SELECT * FROM tabelateste ORDER BY Id")

%>

<% if not rs.eof then 
while not rs.eof %>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="10%"><% = rs("Id") %></td>
<td width="60%"><% = rs("nome") %></td>
<td width="30%"><% = rs("email") %></td>
</tr>
</table>

<%
rs.Movenext
wend
end if
%>

e aparece o erro "HTTP 500 - ERRO INTERNO DO SERVIDOR".

 

A pasta e o banco estão com permissão.

 

Alguem poderia me ajudar ? Grato desde já.

[Ted k' 126]

se seu banco está local tente usar o ip local ou o nome "localhost" no SERVER

[Thiago Paschoalin 0]

não Ted, o banco está em um servidor online. (hospedagem)...

 

não entendi pq não conectou...

 

mas usei assim... detalhes:

 

Driver = MySQL;

server = usei o caminho que uso no MySql-Front para conectar(endereço);

uid = usuário do banco;

pwd = senha do banco;

database = nome do banco;

 

Dá uma luz para mim ^^

[Ted k' 126]

opa pode ser isso, geralmente uso o IP do servidor de internet, tente colocar o IP do servidor onde está hospedado ou algum link de acesso ao banco mysql, verifique com o seu servidor, como ele libera o acesso!

[PedBolo 0]

faz assim:

 

Dim Conexao
Set Conexao = Server.CreateObject("ADODB.Connection")
Conexao.Open "Driver=MySQL ODBC 3.51 Driver; Server=localhost; Database=NOMEDOBANCO; Uid=USUARIO;Pwd=SENHA;"

deixa server localhost, mesmo rodando no servidor.

[Thiago Paschoalin 0]

Não deu certo PedBolo.... mesmo deixando localhost... o mesmo erro 500.

 

Alterei a verificação de loop mas tb NADA !

 

Dim Conexao
Set Conexao = Server.CreateObject("ADODB.Connection")
Conexao.Open "Driver=MySQL ODBC 3.51 Driver;Server=localhost;Database=BANCO;Uid=USER;Pwd=SENHA;"

Set RS = Server.CreateObject("ADODB.Recordset")
RS.ActiveConnection = Conexao

Set rs = Conexao.Execute("SELECT * FROM tabelateste ORDER BY Id")
%>

<% do until rs.eof %>

<% = rs("Id") %> - <% = rs("nome") %> - <% = rs("email") %>

<%
rs.movenext 
loop
Conexao.close
%>

Achei que poderia ser isso tb, mas não é ! Tô perdido !

[PedBolo 0]

vai no IE > Ferramentas > Opções da internet > na aba avançadas e desmarca a opção "mostrar mensagens de erro http amigáveis".

 

quando abrir sua página ele imprimir na tela o erro que está dando.

 

bom, já que é a primeira vez que está usando MySQL, não custa perguntar, o banco já foi criado no servidor? você criou o usuario e conta para acessa-lo? se você tem uma conta revenda de host, veja se no pacote de hospedagem você liberou permissão para criação do db mysql.

 

se tudo estiver ok, tenta conectar no banco remotamente pelo SQL Front , é um programa excelente pra administrar sua database, dae você vai saber se o erro é com o banco, ou com o servidor.

http://www.sqlfront.com

 

pois o seu código parece estar funcionando perfeitamente.

[Thiago Paschoalin 0]

Eu já criei o banco sim, e uso o MySql-Front 3.2 para acessar o banco... pelo qual criei as tabelas.

 

Engraçado, pq está tudo criado certo, e como disse já acesso o banco MySql pelo programa mas dá uma olhada no erro ai.

 

Microsoft OLE DB Provider for ODBC Drivers error '80004005' 

[MySQL][ODBC 3.51 Driver]Can't connect to MySQL server on 'localhost' (10061) 

/teste/default.asp, line 13

O que será que está errado ?

 

DEU CERTO !!!!

 

Ele não estava aceitando o servre como localhost, coloquei o caminho do mysql e logou no banco ! ^^

 

 

Muito Obrigado Ted e PedBolo, muito obrigado mesmo... pela ajuda ai !

 

Abraços !! ~^

[Ted k' 126]

se o banco está no servidor online, pq ñ coloca o caminho do servidor, o IP?

[Thiago Paschoalin 0]

Isso mesmo Ted... ^^ fiz isso e deu certo ! Abração e obrigado MAIS uma vez !

[Ted k' 126]

massa, parabéns, qualquer coisa posta æ!