Foros del Web - Guardar Documento de Word y Excel en Access

Foros del Web (http://www.forosdelweb.com/)

- Visual Basic clásico (http://www.forosdelweb.com/f69/)

- - Guardar Documento de Word y Excel en Access (http://www.forosdelweb.com/f69/guardar-documento-word-excel-access-584725/)

MrArion

09/05/2008 12:07

Guardar Documento de Word y Excel en Access

Hola amigos tengo un problema con un sistema que estoy realizando, necesito saber; como guardar un documento de Word y de Excel en una base de datos de Access, la idea la tengo, pero aun no se como hacerlo,

David

09/05/2008 12:36

Re: Guardar Documento de Word y Excel en Access

Cita:

Iniciado por MrArion (Mensaje 2397506)

No sé si eso es posible, lo mejor es guardar la ruta de los archivos en la Base de Datos...

MrArion

09/05/2008 13:06

Re: Guardar Documento de Word y Excel en Access

Ok amigo gracias, me imagino que para que no modifiquen mis documentos los tendre que esconder dentro de algun directorio. bueno gracias

David

09/05/2008 13:13

Re: Guardar Documento de Word y Excel en Access

Cita:

Iniciado por MrArion (Mensaje 2397616)

Ok amigo gracias, me imagino que para que no modifiquen mis documentos los tendre que esconder dentro de algun directorio. bueno gracias

Puedes esconderlo dentro de tu propio ejecutable, jeje.
Saludos :arriba:

P.S.: o puedes agregarle algunos caracteres al comienzo y ya no se podrá modificar con Excel o Word.

MrArion

09/05/2008 13:31

Re: Guardar Documento de Word y Excel en Access

oye me puedes esplicar como esta esto ultimo "puedes agregarlo algunos caracteres al comienzo y ya no se podrá modificar con Excel o Word" disculpa no entendi muy bien

David

09/05/2008 13:52

Re: Guardar Documento de Word y Excel en Access

Cita:

Iniciado por MrArion (Mensaje 2397654)

oye me puedes esplicar como esta esto ultimo "puedes agregarlo algunos caracteres al comienzo y ya no se podrá modificar con Excel o Word" disculpa no entendi muy bien

Me refería a algo así:

Código:

' Para bloquear el Archivo

Dim FileData As String

Close

Open "C:\Libro1.xls" For Binary As #1

FileData = Input(LOF(1), 1)

Close

FileData = Space(255) & FileData

Open "C:\Libro1.xls" For Output As #1

Print #1, FileData;

Close

Código:

' Para desbloquear el Archivo

Dim FileData As String

Close

Open "C:\Libro1.xls" For Binary As #1

FileData = Input(LOF(1), 1)

Close

FileData = Right(FileData, Len(FileData) - 255)

Open "C:\Libro1.xls" For Output As #1

Print #1, FileData;

Close

Lógico que es una forma de bloqueo muy simple, pero funciona para impedir que alguien vea el contenido del *.xls...

La zona horaria es GMT -6. Ahora son las 18:17.