Mensaje enviado por "Ignacio Napal" <inapal@equiplus.com>

Roberto: si estas usando ADO 2.5 (o sup.), dispones de un nuevo objeto para realizar
esta tarea: ADODB.Stream.

Por ejemplo, supongamos que se debe guardar el archivo "c:\Documento.doc" en la columna "Doc" de un recordset "rs" ya abierto. El código resulta algo así:

Dim mstream as New ADODB.Strem
mstream.Type = adTypeBinary
mstream.Open
mstream.LoadFromFile "c:\Documento.doc"
rs.Fields("Doc").Value = mstream.Read
rs.Update


En sentido inverso, para recuperar el contenido de la columna "Doc" de un recordset "rs" ya abierto, y guardarlo en el archivo "c:\Documento.doc", el código resultaría así:

Dim mstream as New ADODB.Strem
mstream.Type = adTypeBinary
mstream.Open
mstream.Write rs.Fields("Doc").Value
mstream.SaveToFile "c:\Documento.doc", adSaveCreateOverWrite

Si estás utilizando RDO, DAO, o una versión anterior de ADO, entonces vas a caer en los métodos "GetChunk" y "AppendChunk" del objeto ADODB.Recordset.
En las ayudas de SQL y de VB, hay un buen ejemplo de cómo se utilizan.

Ignacio Napal
Equiplus S.A.
e-mail: inapal@equiplus.com
----- Original Message -----
From: Roberto Cano <rocano@generali-peru.com.pe>
To: <vb-esp@ccc.uba.ar>
Cc: <visualbasic-esp@yahoogroups.com>
Sent: Thursday, March 08, 2001 6:07 PM
Subject: vb-esp : Word,Excel


> consulta alguno de ustedes a guardado un archivo word , excel en sql server
> o el sybases
> pueden mandarme algunos ejemplos
>
> Saludos