Dicas De Todas As Conexões De Bando De Dados.

[Guest Ajudando por gostar de ajudar]

Está lista é atualizável, uma lista de conexões de diversos bancos de dados, tornado muito mais produtiva a dica.

CONEXÃO MySQL

<% 
Set conexao = Server.CreateObject("ADODB.Connection")
conexao.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};"_
& "SERVER=IP_DO_SERVIDOR;"_ 
& " DATABASE=NOME_DO_BANCO_DE_DADOS;"_
& "UID=USUÁRIO;PWD=SENHA; OPTION=3"
conexao.Open
%>

CONEXÃO ACCESS

<%
diver = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
Server.MapPath("BANCO_DE_DADOS_NOME.mdb")
set conexao = CreateObject("ADODB.Connection")
conexao.open diver
%>

CONEXÃO PGSQL

<%
Set conexao = Server.CreateObject("ADODB.Connection")
conexao.ConnectionString = "DRIVER={PostGreSQL};"_
& "SERVER=IP_DO_SERVIDOR;"_ 
& " DATABASE=NOME_DO_BANCO_DE_DADOS;"_
& "UID=USUÁRIO;PWD=SENHA; OPTION=3"
conexao.Open
%>

CONEXÃO SQL SERVER

<%
Dim banco_de_dados
banco_de_dados = "Provider=SQLOLEDB; Data Source=IP_DO_SERVIDOR;Network Library=DBMSSOCN; Initial Catalog=<NOME_DO_BANCO_DE_DADOS>; User Id=<USUÁRIO>; Password=<SENHA>"
set conexao = server.createobject ("adodb.connection")
conexao.open banco_de_dados
%>

CONEXÃO INTERBASE

<%
conexao.ConnectionString = "DRIVER={Firebird/Interbase(r) driver};"_ 
& "DBNAME=IP_DO_SERVIDOR:/DIRETÓRIO_FISÍCO/NOME_DO_BANCO_DE_DADOS.gdb;"_ 
& "UID=USUÁRIO;PWD=SENHA"
conexao.Open
%>