SoloCodigo

Podrías probar copiando el ejecutable fuera del escritorio, por tener algún dato más (seguramente te funcionará ok).

Si no me equivoco tanto en wNT como en 2000 (¿acaso no es la misma plataforma?) el escritorio 'cuelga' de la carpeta 'WINNT'. ¿Puede estar ocurriendo que el propio SO haga que estas carpetas 'especiales' no sean visibles para la función 'Path' del objeto 'App' y que sólo muestre la primera carpeta que sea accesible? Si esto fuera así tendría sentido que el resultado de 'App.Path' sea 'C:WINNT', en caso contrario: no entiendo nada. Desde luego lo que si te puedo decir es que en w95 y 98 'App.Path' muestra la ruta correctamente, esté el ejecutable en el escritorio, mi maletín, esté donde esté...

En fin, lamento no poder ser de más ayuda... a ver si alguien que comprenda windows arroja luz sobre el tema.

Un saludo.

No hombre, no. ¡Cómo va a ser un reproche a Movilla...!

 El comentario va por quién no responde los mensajes que inicia y propone tratos a cambio de ayuda

(" y a cambio te respondere o te dare algunos de mis sistemas de FACTURACION y VENTAS ")

, que a mi entender en un foro como este, donde se contesta desinteresadamente, no tienen cabida.

Que no haya malos entendidos. Saludos.

Me da la sensación que tu problema no está en cómo 'se sube' el fichero, sino más bien en cómo lo lees.

Si abres el fichero en modo binario (OPEN fichero FOR BINARY AS #numero) y mediante el método GET puedes leer uno o más bytes del fichero, almacenando el valor de cada byte en una variable o en un elemento de una matriz.

El valor Lo verás según el tipo de datos de la variable: si la variable es de tipo byte, lo verás como un número en decimal del 0 al 255, si es carácter lo verás como el caracter ascii correspondiente al valor del byte, ...

Podrías usar una función de este tipo para obtener el valor binario de un número decimal como ceros y unos en una cadena (aunque no sé cómo ira el rendimiento). Si el parámetro 'RevByteOrder' es True, indica que el orden de los bits que componen el número están en orden inverso, es decir, primero el bit más significativo :

Public Function Binario(ByVal NumBase 10 as Long,Optional ByVal RevByteOrder As Boolean) As String
   
    Dim intExp As Integer
    Dim str1 As String
    Dim int1 As Integer

    Do While True
        If 2 ^ intExp > NumBase10 Then
            If intExp > 0 Then
                intExp = intExp - 1
            End If
            Exit Do
        End If
        intExp = intExp + 1
    Loop

    If Not RevByteOrder Then

        For int1 = intExp To 0 Step -1
            If NumBase10 < (2 ^ int1) Then
                str1 = "0" & str1
            Else
                str1 = "1" & str1
                NumBase10 = NumBase10 - (2 ^ int1)
            End If
        Next int1

    Else

        For int1 = intExp To 0 Step -1
            If NumBase10 < (2 ^ int1) Then
                str1 = str1 & "0"
            Else
                str1 = str1 & "1"
                NumBase10 = NumBase10 - (2 ^ int1)
            End If
        Next int1

    End If

    Binario = str1

End Function

Espero que esto te vaya bien... Saludos y suerte.

Una forma podría ser la que a continuación te explico. Antes de nada, avisar que si esto es algo que necesitas muy a menudo, te merece la pena ponerte, en caso contrario ...

La idea es la siguiente:

Si abres un formulario de vb con un editor de texto, te encontrarás con bloques de texto de este estilo:

      Begin VB.TextBox Text1
         BeginProperty Font
            Name               =   "Arial"
            Size                   =   8.25
            Charset            =   0
            Weight              =   400
            Underline         =   0   'False
            Italic                   =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   330
         Left            =   240
         TabIndex        =   3
         Top             =   3240
         Width           =   4695
      End

Cada bloque identifica objetos del formulario, desde el formulario mismo a otros controles que contenga.
Si te fijas, en medio de cada uno de estos bloques, puede haber otro bloque para la propiedad Font del objeto.

Bien. Aquí viene la cuestión. Se trataría entonces de hacer un programita que fuera leyendo cada uno de los archivos *.frm, identificando los bloques del estilo

         BeginProperty Font
                .
                .
                .
         EndProperty

y fueras sustituyendo los valores por los que a ti te interesen.

Como te decía al principio, creo que deberías valorar hacer o no un programa de este estilo según el trabajo que te vaya a ahorrar en un futuro, ya que tal vez para una ocasión puntual, lo que te merece la pena es seguir el consejo de chiaravel. De todas formas si te pones a hacer el programa, utiliza para depurar mientras lo haces un formulario de prueba, no vaya a ser que escaralles alguno que ya tienes hecho.

Un saludo y suerte.

Sin estar seguro al 100% te diré que por mucho que establezcas propiedades al objeto Printer en vb, al Access le va a dar igual.

Una forma que veo sería seleccionando el informe en la BD y entrando por Archivo, Configurar página, intentar indicar que el informe se imprima en dúplex (aunque ahora mismo tengo la duda de si ésto no se indicará en las propiedades de la impresora, con lo cual afectaría a todos los informes).

Otra forma podría ser llamando desde el evento Open del informe a otro programita que enviara la secuencia de escape, por ejemplo, necesaria para que la impresora imprima en dúplex (consulta el manual de la impresora).

Lo que si creo que es bastante seguro es que con el objeto Printer y Access no vas a conseguir nada, ya que Printer es miembro de VB (VB6.OLB), Access no incluye esta refencia, y a pesar de todo, Access imprime sin objeto Printer.

No se si te habré sido de mucha ayuda...pero en fin, son ideas. No desesperes, tal vez en este mismo foro alguien te de una solución adecuada. Suerte.

Asigna en el equipo local la vía de acceso donde se encuentra la base de datos remota a una unidad de red (explorador de windows, conectar unidad de red).
Puedes referirte al equipo que tiene la BD por su nombre (archivo hosts , lmhosts) o por su IP.
Si el equipo remoto no corre con windows, deberías usar un gateway.

Una vez que tienes mapeada una letra con una unidad de red, refiérete a ella como si se tratara de una unidad local.

Espero que esto te sirva.

Por cierto, por si las moscas... Para saber cómo enumerar claves del registro:

http://www.pellesoft.nu/sysdoc/api/r/regenumkeyex.htm

Saludos.

No conozco .Net (y no por falta de ganas), pero según lo poco que tengo oido, necesitarás para ejecutar tus programas en los clientes tener instalado framework.net. Es que realmente los ejecutables se traducen a un lenguaje de bajo nivel interpretado por una tal CLR (common language library, o algo así). Total que en los equipos en que quieras ejecutar tus pgms, necesitan una 'máquina virtual' (tipo java, ¿no?).

En fin, a ver si alguien que sepa de esto nos explica mejor el tema.

Un saludo.

Disculpas por el despiste en la respuesta del mensaje...

Lo que dice J.M.Movilla es correctísimo.

Necesitarás definir en tu aplicación los siguientes objetos:

Objeto conexión (ADODB.Connection). Utiliza su método 'Open' con la cadena de conexión adecuada a tu caso.

Objeto comando(ADODB.Command). Establece su propiedad 'ActiveConnection' con el valor del objeto conexión anterior (con SET, ojo,  es un objeto) .   Establece la propiedad 'CommandType' igual 'adCmdText'.

Objeto recordset (ADODB.Recordset). Este contendrá los registros seleccionados obtenidos de la siguiente forma:

   set rs1 = cmd1.Execute "SELECT SUM(Importe) AS Total FROM Tabla WHERE Fecha BETWEEN #" & Text1.Text & "# AND #" & Text2.Text & "#"

Donde rs1 sería el objeto recordset y cmd1 el comando.

Una vez ejecutado, el resultado lo obtendrías así:

Total = Iff(Not IsNull(rs1.Fields(0).Value) , rs1.Fields(0).Value, 0)

Todo esto así a grandes rasgos. Si quieres más detalle o ejemplos, creo que en mensajes anteriores de este foro podrás encontrar lo que buscas.

Si te acostumbras a trabajar con este tipo de objetos, pronto dejarás de usar controles data

Suerte.

Deberás usar un par de ejecutables (por lo menos):

C2.EXE para crear archivos *.OBJ (creo).
LINK.EXE para generar el ejecutable a partit de los OBJ.

Ten en cuenta que esto que te digo son meras suposiciones mías, por lo que tal vez lo que te digo está equivocado, pero supongo que por aquí van los tiros.

Suerte.

Puedes utilizar el modificador /S para que el registro - desregistro se haga de forma silenciosa.

REGSVR32 Archivo.Dll /S

Suerte.

Puedes ejecutar para un recordset una sentencia SQL de este estilo:

"SELECT SUM(Campo1) FROM Tabla
WHERE FECHA1>=" & Text1.Text & " AND FECHA1<=" & Text1.Text

Suerte.