Utilizamos cookies propias y de terceros. Al navegar entendemos que aceptas el uso de cookies. +Info.
Política de cookies
Proyecto AjpdSoft

· Inicio
· Buscar
· Contactar
· Cookies
· Descargas
· Foros
· Historia
· Nosotros
· Proponer
· Temas
· Top 10
· Trucos
· Tutoriales
· Usuario
· Wiki

Nick


Contraseña


Nuevo usuario


English
Proyecto AjpdSoft: Foros

AjpdSoft :: Ver tema - Error acceso denegado en aplicación VB6 al conectar con rdo
Foros de discusión Buscar Perfil FAQ Iniciar sesión
Information Error acceso denegado en aplicación VB6 al conectar con rdo

Publicar nuevo tema Responder al tema
Foros de discusión » VB.Net, C# .Net, Visual Studio .Net   
Ver tema anterior :: Ver tema siguiente
AutorMensaje
varios
Magnífico usuario


Registrado: Oct 10, 2006
Mensajes: 2092

Asunto: Error acceso denegado en aplicación VB6 al conectar con rdo Responder citando

He creado una aplicación en Visual Basic 6, utilizo RDO (Microsoft Remote Data Object 2.0) para acceso a Oracle a través de ODBC. Cuando compilo la aplicación funciona correctamente en el equipo local donde la he creado, es un Windows XP. Pero cuando intento ejecutarla en un Windows 2000 ó un 2003 me da el siguiente error:

Error 70, permiso denegado

Error 70, permission denied

He comprobado que el error lo da la línea de código siguiente:

Set rdoEntorno = rdoEngine.rdoEnvironments(0)

El código completo que utilizo para la conexión con Oracle es:

Código:

Private Sub bComprobarDuplicidad_Click()
  Dim rdoEntorno As rdoEnvironment
  Dim rdoConexion As rdoConnection
  Dim rsConsulta As rdoResultset
  Dim conODBC As String
  Dim filtro As String


  On Error GoTo cError
 
  conODBC = "DSN=nombre_ODBC;ODBC;uid=fernando;pwd=alonso"
  Set rdoEntorno = rdoEngine.rdoEnvironments(0)
  Set rdoConexion = rdoEntorno.OpenConnection("nombre_ODBC", False, True, conODBC)
   
  'filtramos por fecha actual
 
  filtro = "select FechaEscritura, NotarioN, ProtocoloNotario from notaria where NotarioN='" + _
      CStr(txtNotarioN.text) + "' and ProtocoloNotario='" + txtProtocolo.text + "'" _
      + "and TO_CHAR(FechaEscritura, 'DD/MM/YYYY')='" + CStr(now) + "'"
 
  Set rsConsulta = rdoConexion.OpenResultset(filtro, rdOpenStatic)
 
  If rsConsulta.RowCount > 0 Then
    MsgBox "El protocolo, notario y año seleccionados ya existen.", vbExclamation + vbOKOnly
  End If

  ...
MensajePublicado:
Mie Mar 21, 2007 10:49 am
Top of PageVer perfil de usuario
alonsojpd
Administrador/Moderador


Registrado: Sep 16, 2003
Mensajes: 2687

Asunto: Re: Error acceso denegado en aplicación VB6 al conectar con Responder citando



Anuncios



varios escribió:
He creado una aplicación en Visual Basic 6, utilizo RDO (Microsoft Remote Data Object 2.0) para acceso a Oracle a través de ODBC. Cuando compilo la aplicación funciona correctamente en el equipo local donde la he creado, es un Windows XP. Pero cuando intento ejecutarla en un Win...


En la carpeta del sistema, C:\Windows\system32 tendrás el fichero MSRDO20.DLL ¿qué versión tiene en tu equipo local con Windows XP? ¿es la misma que en Windows 2K?
MensajePublicado:
Mie Mar 21, 2007 10:55 am
Top of PageVer perfil de usuario
varios
Magnífico usuario


Registrado: Oct 10, 2006
Mensajes: 2092

Asunto: Re: Error acceso denegado en aplicación VB6 al conectar con Responder citando



Anuncios



alonsojpd escribió:
En la carpeta del sistema, C:\Windows\system32 tendrás el fichero MSRDO20.DLL ¿qué versión tiene en tu equipo local con Windows XP? ¿es la misma que en Windows 2K?



En Windows XP tengo la 6.0.88.62 de MSRDO20 rdoEngine control (MSRDO20.DLL), el Windows 2003 tiene la 5.0.33.30 ¿se puede deber a esto? si es así ¿cómo lo soluciono?
MensajePublicado:
Mie Mar 21, 2007 10:59 am
Top of PageVer perfil de usuario
alonsojpd
Administrador/Moderador


Registrado: Sep 16, 2003
Mensajes: 2687

Asunto: Re: Error acceso denegado en aplicación VB6 al conectar con Responder citando



Anuncios



varios escribió:
En Windows XP tengo la 6.0.88.62 de MSRDO20 rdoEngine control (MSRDO20.DLL), el Windows 2003 tiene la 5.0.33.30 ¿se puede deber a esto? si es así ¿cómo lo soluciono?



Efectivamente, hemos reproducido tu situación y en Windows 2000, 2003 se produce este error con la versión 5.0.33.30, para solucionarlo hemos hecho lo siguiente:

1. Reemplazamos el fichero MSRDO20.DLL de la carpeta System32 de Windows 2000/2003 por el de tu Windows XP, de esta forma tendrás la versión 6.0.88.62 en el servidor.

2. Desde Windows 2K registra la dll nuevamente con:

regsvr32 C:\Windows\system32\MSRDO20.DLL

3. Si tienes la posibilidad de reiniciar Windows 2000 mejor, si no puedes no suele ser necesario.

Con esto es suficiente para actualizar Microsoft Remote Data Objects en el servidor.
MensajePublicado:
Mie Mar 21, 2007 11:19 am
Top of PageVer perfil de usuario
nicro
Usuario


Registrado: Sep 17, 2007
Mensajes: 1

Asunto: Responder citando

Tengo el mismo problema entre un windows 2000 Pro y un windows XP Pro.
Es decir, yo desarrollo en windows XP, pero por temas de referencias y demas debo compilar en Windows 2000 Pro. El fallo es al generar una dll, en windows XP la consigo generar bien, pero al intentar generar la dll desde W2000 Pro me da dicho error y no acaba de generarse la dll.

Lo curioso es que la versión tanto en 2000 y XP es la misma de la MSRDO20.DLL 6.0.88.62

Instale el MDAC 2.8 SP1, porque en otros equipos tenia dicho mdac, y ni aún así consigo que en windows 2000 Pro consiga generar la librería.

El error me dice:
Código:

Compile error:

Permission denied.


y me remarca la instrucción:

Set rdoCon = rdoEnvironments(0).OpenConnection(dsName:=strDSN, Prompt:=rdDriverNoPrompt, ReadOnly:=False, Connect:=con)

Estoy muy perdido estoy pensando a ver si va a ser que Windows 2000 Pro se instala en el directorio WINNT y Windows XP en el directorio Windows.

También pasé del Windows XP al W2k todas las dependencias del MSRDO20.DEP

Ayuda, por favor.
MensajePublicado:
Lun Sep 17, 2007 7:53 am
Top of PageVer perfil de usuario
Mostrar mensajes de anteriores:   
Todas las horas son GMT - 1 Horas
Publicar nuevo tema Responder al tema
Foros de discusión » VB.Net, C# .Net, Visual Studio .Net  

Cambiar a:  
Key
  Puede publicar nuevos temas en este foro
No puede responder a temas en este foro
No puede editar sus mensajes en este foro
No puede borrar sus mensajes en este foro
No puede votar en encuestas en este foro
Este sitio web NO CONTIENE malware, todos los programas con código fuente aquí. Autor: Alonso Javier Pérez Díaz Google+ Síguenos en Google+