7 respostas a este tópico

[jjunior302]

Caros amigos está aqui uma coisa fundamental para o uso de scripts em asp, é a ligação com o banco de dados portanto esou lhe's enviando as rotinas de abertura e fechamento do banco no access.

ABRINDO O BANCO

dim banco
set banco=Server.CreateObject("ADODB.Connection")
banco.Open("Driver={Microsoft Access Driver (*.mdb)};DBQ="&Server.MAPPATH("Bdados/dados.mdb")&"")

FECHANDO O BANCO

banco.close()
set banco=nothing

Portando está ai as rotinas bom proveito

[jack_-_ganzha]

Eu gostaria de saber como faço para conectar a outros bancos, como o MySQL por exemplo. Tem como?

valeuz...

[jjunior302]

CARA TEM COMO SIM VO PROCURAR POR AKI POR MINHAS BAGUNÇAS E TE MANDO

[jjunior302]

jjunior302, on 31-March-2003, 12:10, said:

CARA TEM COMO SIM VO PROCURAR POR AKI POR MINHAS BAGUNÇAS E TE MANDO

Pronto foi mal a demora, eu tinha me eskecido mas esta aki aabertura do banco para o Mysql

Set cnnDB = Server.CreateObject("ADODB.Connection") cnnDB.ConnectionString="driver=MySQL;server= o nome do servidor;uid=nome de usuario;pwd=senha

Falow qualquer coisa estamos aki

[stiveo]

Caro amigo,

Como eu faço para ligar meu formulário ao Banco de Dados no servidor?

Você informou o código acima, mas como eu faço para ele reconhecer todos os campos do meu formulário para ser armazenado no BD no servidor?

Desculpe pela ignorância...


Stiveo

jjunior302, on 29-Mar-2003, 11:09, said:

Caros amigos está aqui uma coisa fundamental para o uso de scripts em asp, é a ligação com o banco de dados portanto esou lhe's enviando as rotinas de abertura e fechamento do banco no access.

ABRINDO O BANCO

dim banco
set banco=Server.CreateObject("ADODB.Connection")
banco.Open("Driver={Microsoft Access Driver (*.mdb)};DBQ="&Server.MAPPATH("Bdados/dados.mdb")&"")

FECHANDO O BANCO

banco.close()
set banco=nothing

Portando está ai as rotinas bom proveito

<{POST_SNAPBACK}>

[www.MICROMANUTY.com.br]

ótimo esse código é show,,,,,,


Gostaria de saber se vc tem um código que faça a ligação do asp com um banco firebird(Interbase)


Obrigado

[Cristhiano]

Tem o site http://www.connectionstrings.com/

Que mostra vários tipos de conexões com vários tipos de bancos e liguagens.



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: Forum.WmOnline.com.br