Error conexion oracle desde vb6
Publicado por jaiser (2 intervenciones) el 28/06/2004 11:05:11
Hola a todos!
A ver si alguien me puede echar una mano porque me estoy volviendo un poco loco,me da el siguiente error al abrir la conexion de ado contra oracle:
Error:-2147467259
ora-06413 No se ha abierto la conexion
Lo extraño del caso es que el mismo programa en ejecución funciona perfectamente y hace bien la conexión, pero en diseño me da error.
Con el sql plus y con el toad me conecta perfectamente y probando con el odbc32-text a realizar la conexión no me da ningún problema.
Utilizo VB6 contra una base de datos oracle 9i, tengo instlado el MDAC-TYPE 2.7 y el controlador del odbc es Oracle7.
Con rdo me pasa lo mismo me da error en diseño y me realiza bien la conexión en ejecución.
Os pongo el código de la conexión:
Set mconConexion = New ADODB.Connection
With mconConexion
\'Conexión con Microsoft OLE DB Provider for oracle
.ConnectionString = \"Provider=MSDAORA.1;\" & _
\"Password=\" & mstrPassword & _
\";User ID=\" & mstrUsuario & _
\";Data Source=\" & mstrBD & _
\";Persist Security Info=True\"
.CursorLocation = adUseClient
.Open
End With
A ver si alguien me puede echar una mano porque me estoy volviendo un poco loco,me da el siguiente error al abrir la conexion de ado contra oracle:
Error:-2147467259
ora-06413 No se ha abierto la conexion
Lo extraño del caso es que el mismo programa en ejecución funciona perfectamente y hace bien la conexión, pero en diseño me da error.
Con el sql plus y con el toad me conecta perfectamente y probando con el odbc32-text a realizar la conexión no me da ningún problema.
Utilizo VB6 contra una base de datos oracle 9i, tengo instlado el MDAC-TYPE 2.7 y el controlador del odbc es Oracle7.
Con rdo me pasa lo mismo me da error en diseño y me realiza bien la conexión en ejecución.
Os pongo el código de la conexión:
Set mconConexion = New ADODB.Connection
With mconConexion
\'Conexión con Microsoft OLE DB Provider for oracle
.ConnectionString = \"Provider=MSDAORA.1;\" & _
\"Password=\" & mstrPassword & _
\";User ID=\" & mstrUsuario & _
\";Data Source=\" & mstrBD & _
\";Persist Security Info=True\"
.CursorLocation = adUseClient
.Open
End With
Valora esta pregunta


0