WORD文件存到數據庫中

Question

老板昨天下達任務﹐要把工廠文件存到數據庫中﹐請問有什么辦法可以把WORD﹐EXCEL文件存到數據庫中﹐不勝感激﹗﹗﹗﹗

Answer 1

Option ExplicitDim lb_Word()  As Byte, rsWd As New ADODB.RecordsetOpen "C:\aa.doc" For Binary Access Read As #1
lb_Word = InputB(LOF(1), #1)
Close #1rsWd.AddNew
rsWd.Fields("WORD").AppendChunk lb_Word
rsWd.Update

Answer 2

用image类型方法：
1、建立过程
CREATE PROCEDURE sp_textcopy ( 
  @srvname    varchar (30), 
  @login      varchar (30), 
  @password    varchar (30), 
  @dbname      varchar (30), 
  @tbname      varchar (30), 
  @colname    varchar (30), 
  @filename    varchar (30), 
  @whereclause varchar (40), 
  @direction  char(1)) 
AS 
DECLARE @exec_str varchar (255) 
SELECT @exec_str = 
        'textcopy /S ' + @srvname + 
        ' /U ' + @login + 
        ' /P ' + @password + 
        ' /D ' + @dbname + 
        ' /T ' + @tbname + 
        ' /C ' + @colname + 
        ' /W "' + @whereclause + 
        '" /F ' + @filename + 
        ' /' + @direction 
EXEC master..xp_cmdshell @exec_str  2、建表和初始化数据
create table 表名 (编号 int,image列名 image)
go
insert 表名 values(1,0x)    -- 必须的，且不是null
insert 表名 values(2,0x)    -- 必须的，且不是null
go3、读入
sp_textcopy '你的服务器名','sa','你的密码','库名','表名','image列名','c:\图片.bmp','where 编号=1','I' --注意条件是 编号=1sp_textcopy '你的服务器名','sa','你的密码','库名','表名','image列名','c:\bb.doc','where 编号=2','I' --注意条件是 编号=2go4、读出成文件
sp_textcopy '你的服务器名','sa','你的密码','库名','表名','image列名','c:\图片.bmp','where 编号=1','O' --注意条件是 编号=1sp_textcopy '你的服务器名','sa','你的密码','库名','表名','image列名','c:\bb.doc','where 编号=2','O' --注意条件是 编号=2
go如果报textcopy不是可执行文件的话，你就到
C:\Program Files\Microsoft SQL Server\MSSQL\Binn
目录下拷备 textcopy.exe到：
C:\Program Files\Microsoft SQL Server\80\Tools\Binn

Answer 3

你用的是什么数据库,如果是SYBASE或者SQLSERVER则字段类型用二进制的,如果是ACCESS,则用BOLB类型就可以了!!

Answer 4

引用:Microsoft ActiveX Data Objects 2.5 Library
或以上版本,用类似下面的方法Sub file()
    Dim istr As New ADODB.Stream
    Dim iRe As New ADODB.Recordset
    With istr
        .Open
        .Type = adTypeBinary
        .LoadFromFile ("c:\a.xls")
    End With
    ire.open "表名",数据库连接字符串,1,3
    ire.addnew
    ire("保存文件的字段名")=istr.read
    ire.update
    ire.close
    istr.close
End Sub

Answer 5

謝謝大家的參與﹗﹗﹗
TO﹕zjcxc(邹建) 
你那種方法怎么讀取出來呢?
謝謝﹗