Guardar documentos del Word en sql server

21/10/2003 - 13:27 por Pablo | Informe spam
Trabajando con Access, guardaba y recuperaba documentos
creados con el Word en un campo memo con estas dos
funciones

Function putmemo(cFile As String, oRc As Recordset, cCampo
As String) As Boolean
Dim n As Integer
Dim nCanal As Integer
Dim cInter As String
Dim nMax As Long
Dim nLeer As Long

nMax = FileLen(cFile)
nCanal = FreeFile
Open cFile For Binary Access Read As nCanal

Do While nMax > 0
nLeer = IIf(nMax > 50000, 50000, nMax)
nMax = nMax - nLeer
cInter = Space(nLeer)
Get nCanal, , cInter
oRc(cCampo).AppendChunk cInter
Loop
Close nCanal
putmemo = True

End Function

Function getmemo(cFile As String, oRc As Recordset, cCampo
As String)
Dim nCanal As Integer
Dim cInter As String
Dim nMax As Long
Dim nLeer As Long
Dim n As Long

If IsNull(oRc(cCampo)) Then
nMax = 0
Else
nMax = Len("" & oRc(cCampo))
End If

n = 0
nCanal = FreeFile
Open cFile For Binary As nCanal

Do While nMax > 0
nLeer = IIf(nMax > 50000, 50000, nMax)
nMax = nMax - nLeer
cInter = oRc(cCampo).GetChunk(n, nLeer)
n = n + Len(cInter)
Put nCanal, , cInter
Loop
Close nCanal
End Function

¿ Como puedo hacerlo en sqlserver 2000 usando visual basic
net ?

Preguntas similare

Leer las respuestas

#1 Rubén Vigón
21/10/2003 - 15:32 | Informe spam
El siguiente ejemplo almacena un archivo (de cualquier tipo) en un campo BLOB de SQL Server:
http://groups.google.com/groups?sel...12.phx.gbl

PD: El código es de ADO (utiliza un objeto ADODB.Stream), supongo que no será complicado portarlo a
ADO.NET

Un saludo!

Rubén Vigón
Microsoft MVP Visual Basic
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida