Insertar un Documento de Word en SQL server 2000
Hola hay alguien que me pueda decir somo almacenar un documnto de Word en SQL server 2000, Yo se que en acces se insertan en un campo de tipo OLE DB pero en SQL server no se como hacerlo. Gracias
Les estaria Muy agradecido.
Les estaria Muy agradecido.
Pues fijate mi querido compañero que yo tambien ando en las mismas y ya probe la opcion de grabar un documento de word (texto e imagenes) en un campo de tipo image! lo que sucede es que cuando quize grabar un documento de word que mide 2.00 MB se demoro media hora en hacerlo desde visual basic. luego para mostrar el archivo solo que obteniendolo desde la base de datos se quedo trabada mi compu. lo bueno es que probe con 10 hojas de word con texto e imagenes y si lo grabo pero se demoro como 5 minutos en grabar eso y como 3 minutos en leer ese campo:
priavet sub GrabarHIPERTEXTO
Dim Chunk() As Byte
Dim FileSize As Long
Dim Fragmento As Long
Dim DataFile As Integer
Const ChunkSize As Integer = 16384
DataFile = 1
'Abro el Archivo de Tipo Imagen ya sea el Fisico o El Temporal
FileName = "C:TEMP"
Open FileName For Binary Access Read As DataFile
FileSize = LOF(DataFile)
If FileSize = 0 Then Close DataFile: Exit Sub
Chunks = FileSize ChunkSize
Fragmento = FileSize Mod ChunkSize
RDOResultSet(NombredelCampo).AppendChunk Null
ReDim Chunk(Fragmento)
Get DataFile, , Chunk()
RDOCursor(NombredelCampo).AppendChunk Chunk()
ReDim Chunk(ChunkSize)
For i = 1 To Chunks
Get DataFile, , Chunk()
RDOCursor(NombredelCampo).AppendChunk Chunk()
Next i
Close DataFile
priavet sub GrabarHIPERTEXTO
Dim Chunk() As Byte
Dim FileSize As Long
Dim Fragmento As Long
Dim DataFile As Integer
Const ChunkSize As Integer = 16384
DataFile = 1
'Abro el Archivo de Tipo Imagen ya sea el Fisico o El Temporal
FileName = "C:TEMP"
Open FileName For Binary Access Read As DataFile
FileSize = LOF(DataFile)
If FileSize = 0 Then Close DataFile: Exit Sub
Chunks = FileSize ChunkSize
Fragmento = FileSize Mod ChunkSize
RDOResultSet(NombredelCampo).AppendChunk Null
ReDim Chunk(Fragmento)
Get DataFile, , Chunk()
RDOCursor(NombredelCampo).AppendChunk Chunk()
ReDim Chunk(ChunkSize)
For i = 1 To Chunks
Get DataFile, , Chunk()
RDOCursor(NombredelCampo).AppendChunk Chunk()
Next i
Close DataFile