Conexões com Bancos

Microsoft Access
loadTOCNode(3, 'summary');
Sem o DSN
Set Cnn = Server.CreateObject("ADODB.Connection") Cnn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=c:\mydatabase.mdb"
Banco de dados OLE
Set Cnn = Server.CreateObject("ADODB.Connection") Cnn.open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=c:\mydatabase.mdb"
DSN do arquivo
Set Cnn = Server.CreateObject("ADODB.Connection") Cnn.open "FILEDSN=ADSN"
Com o DSN e sem ID/senha do usuário
Set Conn = Server.CreateObject("ADODB.Connection") Conn.open "DSNname"
Com o DSN e ID/senha do usuário
Set Conn = Server.CreateObject("ADODB.Connection") Conn.open "DSNname","username","password"
Sem o DSN, usando um caminho físico como referência
Set Conn = Server.CreateObject("ADODB.Connection") DSNtest="DRIVER={Microsoft Access Driver (*.mdb)}; " DSNtest=dsntest & "DBQ=c:\mydatabase.mdb" Conn.Open DSNtest
Sem o DSN, usando o Server.MapPathOBSERVAÇÃO: Server.MapPath é o caminho da raiz do servidor da Web. Por padrão, é C:\Inetpub\Wwwroot.
Set Conn = Server.CreateObject("ADODB.Connection") DSNtest="DRIVER={Microsoft Access Driver (*.mdb)}; " DSNtest=dsntest & "DBQ=" & Server.MapPath("/databases/mydatabase.mdb") Conn.Open DSNtest
Microsoft SQL Server
loadTOCNode(3, 'summary');
Banco de dados OLE
Set cnn = Server.CreateObject("ADODB.Connection") cnn.open "PROVIDER=SQLOLEDB;DATA SOURCE=sqlservername;UID=username;PWD=password;DATABASE=mydatabase "
Com o DSN
Set Conn = Server.CreateObject("ADODB.Connection") Conn.open "DSN=MyDSN;UID=user;PWD=password;DATABASE=mydatabase"
Sem o DSN
Set Conn = Server.CreateObject("ADODB.Connection") DSNtest="DRIVER={SQL Server};SERVER=ServerName;UID=USER;PWD=password;DATABASE=mydatabase" Conn.open DSNtest
Microsoft Visual FoxPro
loadTOCNode(3, 'summary');
Sem o DSN
Set Conn = Server.CreateObject("ADODB.Connection") ConnStr= "Driver=Microsoft Visual Foxpro Driver; UID=userID;SourceType=DBC;SourceDB=C:\databases\mydatabase.dbc" Conn.Open ConnStr
Oracle
loadTOCNode(3, 'summary');
ODBC com o DSN
Set Conn = Server.CreateObject("ADODB.Connection") Conn.cursorlocation=adUseClient ' requires use of adovbs.inc; numeric value is 3 Conn.open "DSN=test;UID=name;PWD=pass"
Banco de dados OLE
Set Conn = Server.CreateObject("ADODB.Connection") Conn.cursorlocation=adUseClient ' requires use of adovbs.inc; numeric value is 3 DSNTest="Provider=MSDAORA.1;Password=pass;User ID=name;Data Source=data.world" Conn.open DSNtest

SQL - EXEMPLO DE INNER JOIN

'AQUI ESTÁ NOSSO SELECT.
sql = "SELECT ESTADOS.COD, ESTADOS.ESTADO, CIDADES.CIDADE, CIDADES.CODCIDADE, IMOVEIS.CODIMOVEL, IMOVEIS.IMOVEIS "sql = sql & "FROM (ESTADOS INNER JOIN CIDADES ON ESTADOS.COD = CIDADES.CODESTADO) "sql = sql & "INNER JOIN IMOVEIS ON CIDADES.CODCIDADE = IMOVEIS.CODCIDADE WHERE ESTADOS.COD = " & codestado & " order by cidades.cidade"