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