需要代码，将EXCEL文件写入SQL中的代码

Question

请各位大侠帮助，现需要将*.xls 文件写入SQL的WH_FILES表中，需要代码！！
急，急！！多谢

Answer 1

'引用ADO2.5及以上版本Sub SaveExcel2DB()
    Dim iRe As New ADODB.Recordset
    Dim iStream As New ADODB.Stream
    Dim iConc$
    
    '打开表,以备写入EXCEL文件
    iConc = "Provider=SQLOLEDB.1;Persist Security Info=True;Data Source=服务器名;Initial Catalog=数据库名;User ID=用户名;Password=密码"
    iRe.Open "WH_FILES", iConc, adOpenKeyset, adLockOptimistic
    
    '读取EXCEL文件
    With iStream
        .Type = adTypeBinary
        .Open
        .LoadFromFile "x:\EXCEL文件名"
    End With
    
    '将数据存储到表中
    With iRe
        .AddNew '新增一条记录
        .Fields("字段名") = iStream.Read()
        .Save
    End With
    
    '关闭数据源
    iRe.Close
End Sub

Answer 2

insert into WH_FILES 
select * FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',
  'Data Source="c:\test.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...xactions