Jump to content


Photo

Criando Uma Conexão Com O Banco De Dados


  • This topic is locked This topic is locked
Nenhuma resposta neste tópico

#1 Coutrahh

Coutrahh

    24 Horas

  • Usuários
  • 445 posts
  • Sexo:Masculino
  • Localidade:Rio de Janeiro

Posted 16/12/2004, 23:41

Não vi algo parecido e tenho certeza que é problema para muitos, inclusive já foi muitas vezes meu problema ;)

Conectando um banco de dados do Microsoft Access

Sem DSN
<%
Set Cnn = Server.CreateObject("ADODB.Connection")
Cnn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=c:\mydatabase.mdb"
%> 

Banco de dados OLE sem DSN:
<%
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 DSN e sem identificação do usuário/senha
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open "DSNname"
%> 

Com DSN e identificação do usuário/senha
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open "DSNname","username","password"
%> 

Sem 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 DSN, usando Server.MapPath

OBS.: Server.MapPath é o caminho proveniente da raiz do servidor 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
%> 


Conectando um banco de dados do Microsoft SQL Server

OLE DB
<%
Set cnn = Server.CreateObject("ADODB.Connection")
cnn.open "PROVIDER=SQLOLEDB;DATA SOURCE=sqlservername;UID=username;PWD=password;DATABASE=mydatabase "
%> 

Com DSN
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open "DSN=MyDSN;UID=user;PWD=password;DATABASE=mydatabase"
%> 

Sem DSN
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSNtest="DRIVER={SQL Server};SERVER=ServerName;UID=USER;PWD=password;DATABASE=mydatabase"
Conn.open DSNtest
%> 


Conectando um banco de dados do Microsoft Visual FoxPro

sem 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
%>



Conectando um banco de dados do Oracle

ODBC com DSN
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.cursorlocation=adUseClient 
' requer o uso de adovbs.inc; o valor numérico é 3
Conn.open "DSN=test;UID=name;PWD=pass"
%>

Banco de dados OLE
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.cursorlocation=adUseClient 
' requer o uso de adovbs.inc; o valor numérico é 3
DSNTest="Provider=MSDAORA.1;Password=pass;User ID=name;Data Source=data.world"
Conn.open DSNtest
%> 


Conectando um banco de dados do MYSQL

<%
Set cnnDB = Server.CreateObject("ADODB.Connection") 
cnnDB.ConnectionString = "driver=MySQL;server=127.0.0.1;uid=usuario;pwd=senha;database=banco_de_dados" 
cnnDB.Open 
%>

fonte: http://www.superasp.com.br


-----------------------------------------------------------------------------------------------
Para uma maior organização desta seção, todas as duvidas relacionadas a este tutorial devem ser tiradas na seguinte sala:
http://forum.wmonlin...p?showforum=113

Edição feita por: Agente Linhares, 28/06/2005, 21:37.

Rede Social de Sexo e Swing 100% grátis
http://sexdelirio.com
Conteúdo destinado a maiores de 18 anos




0 user(s) are reading this topic

0 membro(s), 0 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq