O MySQL é o sistema de banco de dados mais popular atualmente e fazer um script ASP utilizar esse sistema é simples.
Primeiramente, você precisa estar no servidor onde está instalado o Driver ODBC que permite que os scripts ASP se conectem com bases MySQL.
Painel de Administração do MySQL
Oferecemos a você uma interface amigável e fácil de usar para você criar suas tabelas e administrar a sua base MySQL de sua conta Windows.
O endereço de acesso é http://www.seudominio.com.br/mysql. Substitua o termo "seudominio" para o nome do seu site.
O acesso ao banco de dados MySQL também pode ser realizado de forma externa. Neste caso, é necessário que você tenha um endereço IP fixo em sua conexão de internet, e este IP será configurado junto ao seu banco, sem custos adicionais.
Entre com seu login e senha e usufrua de todas as funcionalidades desse painel!
Para habillitar o serviço, assim como o acesso externo, basta solicitar através de nosso formulário de suporte. É Grátis!
Usando o MySQL com ASP
Abaixo, seguem exemplos de conexão com uma base MySQL usando DSN, usando uma string de conexão e exemplos de como podemos manipular dados de uma base MySQL.
Conexão usando DSN
DSN significa Data Source Name e basicamente é um "atalho" que pode ser criado pelos administradores do servidor para que você use em seu código.
Para solicitar a criação de um DSN, entre em contato conosco pelo formulário de suporte, fornecendo o nome do DSN desejado.
Suponhamos que o DSN desejado foi o "mysql_dsn". Uma vez criado, segue abaixo o código ASP efetuando a conexão e tentando listar os campos da tabela "Contatos".
<%
on error resume next
dim adoConn
dim adoRS
dim counter
set adoConn = Server.CreateObject("ADODB.Connection")
set adoRS = Server.CreateObject("ADODB.Recordset")
adoConn.Open "DSN=mysql_dsn"
adoRS.ActiveConnection = adoConn
if adoConn.errors.count = 0 then
response.write "<h2>Campos na tabela 'Contatos':</h2>"
adoRS.Open "describe Contatos"
while not adoRS.EOF
response.write adoRS.fields(0).value & "<br>"
adoRS.MoveNext
wend
else
response.write "ERRO: Não foi possível conectar!"
end if
%>
Conexão usando string
Segue abaixo o código ASP efetuando a conexão e tentando listar os campos da tabela "Contatos". Neste exemplo não é preciso solicitar a criação do DSN, pois estão sendo informados na string de conexão os seguintes elementos:
Driver usado:
MySQL ODBC 3.51 Driver
Server:
localhost
Database:
nome da base de dados
Uid:
login
Pwd:
senha
<%
on error resume next
dim adoConn
dim adoRS
dim counter
set adoConn = Server.CreateObject("ADODB.Connection")
set adoRS = Server.CreateObject("ADODB.Recordset")
adoConn.Open "Driver=MySQL ODBC 3.51 Driver; Server=localhost; Database=banco; Uid=seulogin;
Pwd=suasenha;"
adoRS.ActiveConnection = adoConn
if adoConn.errors.count = 0 then
response.write "<h2>Campos na tabela 'Contatos':</h2>"
adoRS.Open "describe Contatos"
while not adoRS.EOF
response.write adoRS.fields(0).value & "<br>"
adoRS.MoveNext
wend
else
response.write "ERRO: Não foi possível conectar!"
end if
%>
Manipulando dados em uma base MySQL
Abaixo o código usa o DSN criado anteriormente. Após a conexão é usada um comando (query) para inserir dados na tabela "Contatos".
<%
on error resume next
dim adoConn
dim adoRS
dim strQuery
set adoConn = Server.CreateObject("ADODB.Connection")
adoConn.Open "DSN=mysql_dsn"
strQuery = "INSERT INTO Contatos VALUES(0, 'Jill', 'Smith', '20 Santamonica Parade', 'Beverly
Hills', '555 0303')"
adoConn.Execute strQuery
%>
Pode-se também atualizar um registro, mudando o comando SQL:
strQuery = "UPDATE Contatos SET firstName = 'Jack' WHERE firstName = 'Jill'"
E para deletar um registro, pode-se fazer como abaixo:
strQuery = "DELETE FROM Contatos WHERE firstName = 'Jack'"
Pode-se ainda gerar uma consulta: