Problema con ejecutable en Red

[djaevi]

Hola a todos escribo porque tengo el siguiente problema tengo hecho un sencillo codigo en visual basic 6 para unir impresoras por la red de mi trabajo el asunto es que al compilar el archivo ejecutable .exe desde la maquina donde fue creado funciona de maravillas pero ahora resulta que comparti la carpeta donde se encuentra el programa para que pueda abrirse desde otras computadoras y me salta el siguiente error:

Run-Time error '430':

La clase no soporta automatizacion o no soporta la interfase esperada

Los elementos que usa el programa son:

Una conexion a una base de datos de access mediante ole db
La referencia Windows Script Host Model

Tengo el ejecutable compilado con sus dependencias con el programa fusion de modo que no necesite la pc remota tener instalado el vb, de todos modos son librerias basicas y la pc remota tiene instalado el access 2003 por lo cual supongo deberia tener las librerias asi como el mdac etc. tambien he probado en crear un paquete de instalacion con todas las dependencias y sigo teniendo el mismo problema, bueno eso seria mi problema como hago para ejecutar mi programa remotamente sin tener este error desde ya agradezco su ayuda

Saludos

[lokoman]

Hola!
Sugerencias:

• Incluye los RUNTIME FILES de VB6.0, ademas de las .DLLs, .OCX, etc.
• Registrar AUTOMATICAMENTE o MANUAL con REGSVR32
• Verifica que no se te haya quedado algo necesario cuando empaquetaste la aplicación.
• Tambien hay que veriricar el acceso a la BD, si los usuarios no tienen permiso de escritura en el compartido, no podran siquiera abrir la BD Access

[djaevi]

Gracias lokoman por responder ya he hecho todo lo que me has sugerido pero no tuve suerte registre todas las librerias dll, ocx etc y nada no consigo hacerlo funcionar ni en red ni haciendo un paquete instalador e instalando todo mi programa en el equipo :S alguna idea?

[djaevi]

Bueno estuve haciendo una serie de pruebas y estoy convencido que el conflicto esta con la base de access la carpeta compartida tiene permisos totales para todos los usuarios tanto en la solapa compartir como de seguridad de windows, aca les dejo el codigo de mi aplicacion aver si me pueden ayudar, en primer lugar tengo un modulo con el codigo para hacer la conexion a la base de access:

Modulo1:

Código vb:

Global Conexion As New ADODB.Connection
Global Tabla As New ADODB.Recordset
Sub cerrar()
Conexion.Close
End Sub
Sub abrir()
Conexion.ConnectionString = App.Path + "\..\db\impresoras.mdb"
Conexion.Provider = "microsoft.jet.oledb.4.0"
Conexion.Open
End Sub
 

y el codigo que va por detras del formulario

Código vb:

Private Sub Form_Load()
Call abrir
Tabla.Open "SELECT * FROM impresoras", Conexion, adOpenDynamic, adLockOptimistic
instrucciones.FontSize = 10
instrucciones.Text = "Haga doble click sobre la impresora que desee agregar."
Dim Item As ListItem
With printList
    .ColumnHeaders.Add , , "Id", 550
    .ColumnHeaders.Add , , "Impresora", 2900
    .ColumnHeaders.Add , , "Usuario", 2900
    .ColumnHeaders.Add , , "Ubicacion", 2900
    .Width = 9300
    .Height = 4050
    .GridLines = True
    .View = lvwReport
End With
Do Until Tabla.EOF
    With printList
        Set Item = .ListItems.Add(, , Tabla("Id"))
            Item.SubItems(1) = Tabla("Impresora")
            Item.SubItems(2) = Tabla("Usuario")
            Item.SubItems(3) = Tabla("Lugar")
    End With
Tabla.MoveNext
Loop
Tabla.Close
End Sub
 
Private Sub printList_DblClick()
    addPrint (printList.SelectedItem.index)
End Sub
 
Private Sub addPrint(index As Integer)
    Dim progress As Boolean
    Dim count As Double
    count = 1
    Tabla.Open "Select imp_string, pc_string From impresoras WHERE id = " & index
    Do Until Tabla.EOF
        Dim str As String
        str = "\\" & Tabla("pc_string") & "\" & Tabla("imp_string")
    Tabla.MoveNext
    Loop
Tabla.Close
    Dim obj As WshNetwork
    Set obj = New WshNetwork
    progressBar.Value = 1
    TiempoPausa = 3
    Inicio = Timer
    progressBar.Visible = True
    Do While Timer < Inicio + TiempoPausa
        DoEvents
        count = count + 0.001
        If count > 99 Then
            count = 1
        End If
        progressBar.Value = count
    Loop
    On Error GoTo salida
    obj.AddWindowsPrinterConnection (str)
    If Err.Number = 0 Then
        progressBar.Value = 99
        MsgBox "La impresora se agrego correctamente", vbInformation, "Impresora Agregada"
    End If
salida:
    If Err.Number <> 0 Then
        progressBar.Value = 99
        MsgBox "Hubo un error al intentar conectarse a la impresora compruebe lo siguiente: " & vbCrLf & "- La Pc donde se encuentra la impresora esta encendida" & vbCrLf & "- Tanto la pc donde se encuentra la impresora como la suya estan conectadas a la red" & vbCrLf & "- La impresora que desea agregar ya existe como parte de sus impresoras", vbCritical, "Error!"
    End If
End Sub
 

Los controles que utilizo son 2 image, 1 listView donde cargo los datos de la base, un textbox y una barra de progreso, desde ya gracias por su ayuda

[lokoman]

Todo lo que encuentro referente al error es sobre los Microsoft Data Access Components (MDAC), que son los que se usan en las conexiones a las Bases.

http://www.mecsw.com/info/appnote/app_017.html

Hay que bajar e instalar la ultima versión desde el site de Microsoft. Este es el que yo tengo, intenta a ver si te sirve:

http://myfreefilehosting.com/f/2696e5f66d_7.49MB


Tengo unas preguntas para cuando ejecutas en la PC remota:

• El error es cuando cargas la aplicacion?
• Si es asi, veo que usas una ruta relativa en vez de una absoluta en la linea:

Código vb:

Conexion.ConnectionString = App.Path + "\..\db\impresoras.mdb"
 

Cambiala por la ruta absoluta, es mas confiable a mi parecer, puede que te funcione bien en tu PC, pero en las demas den error.

Yo uso la conexion asi:

Código vb:

Dim Conexion As ADODB.Connection
    Dim Ruta As String
    
    Ruta = "C:\Program Files\Microsoft Office\OFFICE11\SAMPLES\Neptuno.mdb"
    Set Conexion = New ADODB.Connection
    
    Conexion.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
        & Ruta & ";Persist Security Info=False"
    Conexion.Open
 

Es lo mismo, pero con ruta absoluta.


• Si no da error al cargar la aplicacion en la PC remota, los datos de la Base se cargan en los LIST?
• Si es asi, el error es en el EVENTO printList_DblClick()?
Corre el ejecutable desde la PC remota... no desde el SERVER, es posible que alguna politica impida el funcionamiento correcto en los ejecutables desde la red. Tambien verifica que los usuarios tengan permiso a agregar impresores.

[djaevi]

Gracias por contestar lokoman pero mi problema persiste te paso a comentar:

El error sale al intentar abrir la aplicacion por lo cual el evento dblClick de momento no seria el problema:

He intentado instalar la version del mdac que me dejaste (gracias por tomarte el tiempo de subirla) tanto en el server como en el equipo remoto para que ambos tengan las mismas librerias pero en ambos me salio un mensaje diciendo que el equipo ya cuenta con el mdac instalado.

Lo que he hecho para probar es poner una ruta absoluta a la base de datos pero por red esto seria: "\\recCompartido\aplicacion\db\impresoras.db"

Esto lo hago debido a que la base se va a modificar desde el server y no quisiera estar teniendo que copiarla en cada equipo que tenga instalado el programa cada vez que se actualice ya que los usuarios solo usan la base para ver las impresoras disponibles y unirse a ellas.

De igual modo para probar tambien probe como me sugeriste de poner la ruta a la base de datos en local "C:\Archivos de Programa" etc etc pero al igual que antes en el server funciona y en el equipo remoto no.

Otra cosa que me llama la atencion es que al instalar el programa en la pc remota no se copia la base de datos por lo cual la copie manualmente donde deberia estar y nada tampoco funciona.

Todos los usuarios tienen permisos para agregar impresoras de igual modo estoy haciendo las pruebas con 2 pcs donde el usuario que uso es el mio el cual es administrador.

Bueno por ahora esto es todo je gracias de nuevo por tu ayuda

[DexterGlue]

hola djaevi

He obtenido ese tipo de error cuando la aplicacion trata de buscar el dll en el lugar que esta registrado y este muy probablemente no coincide con la version registrada.

Pienso que el error es posible que te de por que la aplicacion busca los dll que ella necesita en las estaciones clientes y al no encontrarlas manda ese error. Puede probar verificando eso.

Saludos

[djaevi]

Hola dexter gracias por comentar probe de colocar a mano las librerias pero nada sigo sin suerte :S estoy considerando cambiarme a delphi como me sugirieron varios compañeros no puede ser que haya que instalar el visual basic para que una aplicacion funcione 100% :(

Salu2