ChikoBribabai
23 de Mayo del 2006

URGENTE Como Conectar ASP con ORACLE

Alguien que me de una solucion porfavor.

muchas gracias.

saludos

foxfeliz
23 de Mayo del 2006

espero esto te sirva:
CONECCION A BASES DE DATOS DESDE ASP

ACCES:

SIN DSN

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

DSN de archivo

<%
Set Cnn = Server.CreateObject("ADODB.Connection")
Cnn.open "FILEDSN=ADSN"
%>

Con DSN y sin contraseña e Id. de usuario

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open "DSNname"
%>


Con DSN y contraseña e Id. de usuario

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open "DSNname","username","password"
%>

Sin DSN, mediante una ruta de acceso física como referencia

<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSNtest="DRIVER={Microsoft Access Driver (*.mdb)}; "
DSNtest=dsntest & "DBQ=c:mydatabase.mdb"
Conn.Open DSNtest
%>
OLE DB

<%
Set Cnn = Server.CreateObject("ADODB.Connection")
Cnn.open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=c:mydatabase.mdb"
%>



NOTA
Server.MapPath es la ruta de la raíz del servidor Web. De forma predeterminada es C:Inetpubwwwroot.

<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSNtest="DRIVER={Microsoft Access Driver (*.mdb)}; "
DSNtest=dsntest & "DBQ=" & Server.MapPath("/databases/mydatabase.mdb")
Conn.Open DSNtest
%>
ò
<%
StrConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& server.MapPath("base.mdb")
Set oConn = Server.CreateObject("ADODB.Connection")
oCOnn.Open StrConn
%>



Microsoft SQL Server
OLE DB

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

Con DSN

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

Sin 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
Sin DSN

<%
Set Conn = Server.CreateObject("ADODB.Connection")
ConnStr= "Driver=Microsoft Visual Foxpro Driver; UID=userID;SourceType=DBC;SourceDB=C:databasesmydatabase.dbc"
Conn.Open ConnStr
%>


Oracle
ODBC con 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"
%>

OLE DB

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