Mensajes

está solucionado, aki posteo la solución para quien le pueda interesar, de todos modos dejo un link a un foro donde me ayudaron con la solución.

lo he dejado así para bajar e archivo:

    Open "C:\ftp.txt" For Append As #NumeroArchivo
    Print #NumeroArchivo, "Open " & StrFtp
    Print #NumeroArchivo, StrUsuario
    Print #NumeroArchivo, StrPassword
    Print #NumeroArchivo, "cd " & strCarpetaRemota
    Print #NumeroArchivo, "binary"
    Print #NumeroArchivo, "get " & StrFicheroRemoto & " " & _
            RutaDos(LOGIN.Directorio) & "BD.mdb"
    Print #NumeroArchivo, "bye"
    Close #NumeroArchivo
    DoEvents


y así para subirlo:

    Open "C:\ftp.txt" For Append As #NumeroArchivo
    Print #NumeroArchivo, "Open " & StrFtp
    Print #NumeroArchivo, StrUsuario
    Print #NumeroArchivo, StrPassword
    Print #NumeroArchivo, "cd " & strCarpetaRemota
    Print #NumeroArchivo, "binary"
    Print #NumeroArchivo, "put " & RutaDos(StrRutalocalFichero)
    Print #NumeroArchivo, "bye"
    Close #NumeroArchivo
    DoEvents


y despues ejecutar el comando:

Retval = Shell("ftp -s:C:\ftp.txt", vbNormalFocus)


FORO: http://www.mvp-access.com/foro/forum_posts.asp?TID=16954&PN=1&get=last#109493

muchas gracias, ya conocía las funciones de WININET, como FtpPutFile ... pero con ello no conseguí solucionar el problema.

lo he solucionado ya. lo posteo aqí por si a alguien le puede interesar.

Código [Seleccionar] Expandir

Open "C:\ftp.txt" For Append As #NumeroArchivo
    Print #NumeroArchivo, "Open " & StrFtp
    Print #NumeroArchivo, StrUsuario
    Print #NumeroArchivo, StrPassword
    Print #NumeroArchivo, "cd " & strCarpetaRemota
    Print #NumeroArchivo, "binary"
    Print #NumeroArchivo, "put " & RutaDos(StrRutalocalFichero)
    Print #NumeroArchivo, "bye"
    Close #NumeroArchivo
    DoEvents

    Retval = Shell("ftp -s:C:\ftp.txt", vbNormalFocus)


Eso tiene k ser por ftp, lo puedes acer desde vb con apis.

Salu2

ya, pero me refería a que si conoces APIS para realizarlo, yo he probado con WININET, pero tengo algunos problemas y quiero probar de otro modo.

Un saludo.

No seais mamoncetes xDD

API

Código [Seleccionar] Expandir

Private Declare Function URLDownloadToFile Lib "urlmon" _
   Alias "URLDownloadToFileA" _
  (ByVal pCaller As Long, _
   ByVal szURL As String, _
   ByVal szFileName As String, _
   ByVal dwReserved As Long, _
   ByVal lpfnCB As Long) As Long


Constantes

Código [Seleccionar] Expandir

Private Const ERROR_SUCCESS As Long = 0
Private Const BINDF_GETNEWESTVERSION As Long = &H10
Private Const INTERNET_FLAG_RELOAD As Long = &H80000000

Funcion

Código [Seleccionar] Expandir

Public Function DownloadFile(sSourceUrl As String, sLocalFile As String) As Boolean
      DownloadFile = URLDownloadToFile(0&, sSourceUrl, sLocalFile, BINDF_GETNEWESTVERSION, 0&) = ERROR_SUCCESS
End Function

Y se llama as�

Código [Seleccionar] Expandir

DownloadFile(http://www.google.es, C:\prueba.htm)

Saludos!

Usando la API... cual es la función "inversa", para subir un archivo? he estado mirando el em msdn y en API-Guide... pero no se cual puede ser (no se si existe), si al conoces por favor, dime cual es esa funcion.

Un saludo y gracias.

Sigo probando con varios modos...

Ahora, con el ejemplo de Buho como base tengo lo sieguiente

Open "C:\ftp.txt" For Append As #NumeroArchivo
    Print #NumeroArchivo, "Open " & StrFtp
    Print #NumeroArchivo, StrUsuario
    Print #NumeroArchivo, StrPassword
    Print #NumeroArchivo, "cd " & strCarpetaRemota
    Print #NumeroArchivo, "get " & StrFicheroRemoto & " " & _
            RutaDos(LOGIN.Directorio) & "BD.mdb"
    Print #NumeroArchivo, "binary"
    Print #NumeroArchivo, "bye"
    Close #NumeroArchivo
    DoEvents
    Retval = Shell("ftp -s:C:\ftp.txt", vbNormalFocus)

De modo que la transferencia de archivo debería de hacerse en modo "binary", no? pues se hace en modo ASCII.


viendo el código que he utlizado... creo que debería forzarse a utilizar el modo binario... pero por lo que veo al realizar la transferencia no lo hace (no se si ahí puede estar el error,,, pero es algo que me intriga y que quiero comprobar para ver si puedo realizar correctamente el GET)

¿Cómo puedo FORZAR a que se baje en modo binary, ya que no lo hace (eso creo yo)?

Teniendo en cuenta que una MDB puede comprimirse (y ocupa generalmente un % del tamaño original), la subida y bajada seria mas eficaz y nada impide descomprimirla una vez en nuestro poder y ejecutarla normalmente.



Ejemplos de como comprimirla y descomprimirla en linea de comando hay bastantes (incluso se puede utilizar el clasico WinZip) y todo ello llevaria un tiempo menor que el de bajarla sin comprimir.



Puestos a progamar, seria un simple paso mas que redundaria en eficacia.



Un saludo, Enrique

He comprimido el MDB en un zip y en rar (a mano, no con código, ya que no quería "perder el tiempo" implementando el código para que despues surgiera el mismo problema que hasta ahora.) y he realizado la prueba, pero el resultado es el de siempre, se corrompe algo del MDB y entonces al abrir el zip/rar me dice que no se puede descomprimir, así que estoy en las mismas. No se a que es debido ese error y porque a mucha gente le funciona sin problemas y a mi no, siempre con el error del MDB

Hola JrHomer

No, el cliente FTP de WinXP es el "real", el que se accede desde el prompt de ms-dos -> haz la prueba ahora mismo, abre una ventana de "simbolo del sistema" (inicio->accesorios->símbolo del sistema) y nomas abra teclea algo asi como "ftp ftp.openbsd.org<enter>"
acto seguido entraras al servidor FTP de la universidad de calgary, canada (donde se produce este maravilloso sistema operativo) y tras validarte como usuario (recuerda que los servidores FTP publicos *siempre* tienen activada la cuenta de usuario "anonymous" cuyo password es, en orden de frecuencia: nada, "anonymous", un correo electronico cualquiera

ESE es el cliente FTP que debes utilizar, cuando utilizas el explorador de windows para conectarte a un sitio FTP lo que haces es conectarte en modo asincrono y anonimo de manera automatica, y dependes de las configuraciones que el servidor tenga configuradas para quien se conecte en ese caso - es posible que no estes conectandote en modo "binary" automaticamente y por eso tus archivos se corrompen.

De hecho, el cliente FTP de winXP es la base para el ejemplo del buho, quizas debieras activar el programa cliente FTP (solo escribe "ftp <enter>" en tu prompt de ms-dos) y leete la ayuda que incorpora (despues de que te salga el prompt "ftp>" indicando que esta listo para una orden, tu escribes "help" y ves todos los comandos, son bastante auto-explicativos, si no busca en internet o en un manual UNIX para que es cada uno)

Es lo malo de los jovenes: hoy en dia lo tienen todo tan facil... En mis tiempos TODO se tenia que hacer desde el prompt de ms-dos, windows 3.11 nos parecia algo maravilloso y macintosh era una utopia (por ser muchisimo mejor que win3.11 y por ser tb. como 7 veces mas caro que una PC). 

De ese modo ya lo había probado con varias fuentes que he visto por internet, pero el resultado ha sido el mismo, se corrompe el MDB.

En cuanto a lo del modo "binary"/"ascii" he probado bajando y subiendo el archivo con ambos modos, pero el resultado ha sido el mismo, se corrompe el MDB (o zip/rar) y no se puede abrir la base de datos.

Sin embargo todas esas pruebas las realizo subiendo y bajando un TXT (por ejemplo) y no hay problemas.

He estado utilizdo la librería wininet.dll siendo el resultado el mismo que he tenido en las demás ocasiones.

consigo bajar el archivo (mdb) pero una vez bajado no se puede abrir, por un error que no se cual es.

Lo he probado con otros archivos, como TXT... y con ellos no hay problem, subo y bajo archivos sin problema, pero al hacer la operación con un MDB surge el problema y no se puede abrir el MDB que se ha bajado.

alguno ha hecho la prueba?

subir a un servidor FTP un MDB y bajarlo con un "programa casero" (nada de clientes como el cuteFTP o cosas así) si no por programas creamos con nuestras manos. si conseguis subir y bajar el MDB, y abrirlo (cuando os lo habeis bajado del servidor) sin ningún problema... os pido que me digais como lo haceis, ya que no conseguimos realizar esa operación sin que nos de un error.


Un saludo.

Y pido disculpas por si soy algo pesado con el tema... pero es algo que nos trae de cabeza y necesitamos una solución.

gracias por todo.

Prueva bajarte la base de datos y luego la usas..., porque que yo sepa ftp es solo para administrar ficheros no para gestionar base de datos.
Saludos 

El caso que ni la chapuza me sale perfectamente, ya que si puedo subir y bajar archivos con fluidez y sin problemas (si alguien kiere el código de esto que me lo pida, hay mucho sobre el tema por ahí, y se lo paso) pero si bajo el MDB no se PQ?, pero se baja corrupto y al abrir la base de datos dice que el archivo tiene un problema y ha de corregirse, cosa que no hace, total que sube y baja los MDB, pero al bajarse bajan corruptos y por lo tanto no se puede trabajar con ellos, sin embargo si subo y/o bajao otro tipo de archivos, como un TXT por ejmplo o lo que sea no hay problemas al abrirlo, se ejecuta perfectamente, de mismo modo que si se utiliza un programa cliente de FTP.

nadie nos puede ayudar??? si no se entiende muy bien lo que intento explicar... decirmelo, q lo intento redactar de otro modo

for i=0 to 3
   if i= 3 then
       ' hacer cosas
       i=0
   else
      i=i+1
   end if
next i

Declara i como pública y mete ese código en el TImer, así q cada 1 minutos hará eso... yo tp se pq solo (a priori) se puede poner 1 minuto (o lo q sea)

De modo que cada cada 4 minutos hará lo q kieras q haga y pondrá i=0 y como cada minuto i aumenta 1... pues en llegar al cuarto i=3, de modo que hará lo q haga y volverá a ponerla a i=0...


vamos es lo q se me ocurrio así d repente... espero q t sirva de ayuda.