Error ADO con Oracle Database 9i
Buenas,
Tengo que hacer una práctica usando Oracle como SGBD y ASP como lenguaje de programación. Instalé el programa hace unos minutos, crée las tablas con datos, inserté datos de prueba y al conectarme a la misma mediante ADO y el siguiente código:
Set Rs = Server.CreateObject("ADODB.RecordSet")
SQL = "SELECT * FROM Clientes"
Rs.Open SQL, "Provider=OraOLEDB.Oracle.1;Password=tarde1;Persist Security Info=True;User ID=tarde1;Data Source=BDGlobal", 1, 3
... obtengo el siguiente error:
"Microsoft OLE DB Service Components: Acceso denegado."
¿Alguien sabe a qué puede ser debido?
Gracias de antemano
Tengo que hacer una práctica usando Oracle como SGBD y ASP como lenguaje de programación. Instalé el programa hace unos minutos, crée las tablas con datos, inserté datos de prueba y al conectarme a la misma mediante ADO y el siguiente código:
Set Rs = Server.CreateObject("ADODB.RecordSet")
SQL = "SELECT * FROM Clientes"
Rs.Open SQL, "Provider=OraOLEDB.Oracle.1;Password=tarde1;Persist Security Info=True;User ID=tarde1;Data Source=BDGlobal", 1, 3
... obtengo el siguiente error:
"Microsoft OLE DB Service Components: Acceso denegado."
¿Alguien sabe a qué puede ser debido?
Gracias de antemano
Tal vez este código de Visual BAsic te ayude... yo no lo he hecho en ASP, pero quiza te de una idea.
Option Explicit
Dim miCon As New ADODB.Connection
Dim miRS As New ADODB.Recordset
Dim myConect As String
Dim myUsr As String
Dim myPsw As String
Dim mySql As String
Dim myID As Integer
Public Sub Conexion()
myConect = "Oracle_9i"
myUsr = "saxman"
myPsw = "blizz"
mySql = " select * from primera order by NO_EMPLEADO; "
miCon.Open myConect, myUsr, myPsw
With miRS
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open mySql, miCon
End With
End Sub
Option Explicit
Dim miCon As New ADODB.Connection
Dim miRS As New ADODB.Recordset
Dim myConect As String
Dim myUsr As String
Dim myPsw As String
Dim mySql As String
Dim myID As Integer
Public Sub Conexion()
myConect = "Oracle_9i"
myUsr = "saxman"
myPsw = "blizz"
mySql = " select * from primera order by NO_EMPLEADO; "
miCon.Open myConect, myUsr, myPsw
With miRS
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open mySql, miCon
End With
End Sub
