请各位高手告诉我。怎么把一个EXCEL文件放在数据库中的一个字段中呀（我用的是SQL数据库）

Question

请各位高手告诉我。怎么把一个EXCEL文件放在数据库中的一个字段中呀（我用的是SQL数据库）

Answer 1

Dim AdoStream As New ADODB.Stream
    Dim AdoDocument As New ADODB.Recordset
    Dim sqlconn As New Connection    Dim strSQL As String
    Dim strFiles As String
    
  
    AdoStream.Type = adTypeBinary
    AdoStream.Open
    
    strSQL = "select * from filelist"
    
    AdoDocument.CursorLocation = adUseClient
    AdoDocument.CursorType = adOpenStatic
    AdoDocument.LockType = adLockOptimistic
    AdoDocument.Open strSQL, sqlconn          AdoStream.LoadFromFile Dir1.Path & "\" & Item.Text'文件路經
          AdoDocument.AddNew
          AdoDocument.Fields("FileContent").AppendChunk AdoStream.Read '寫到數據庫
          AdoDocument.Update
       End If
    Next i
    
    AdoDocument.Close
    AdoStream.Close
    Set AdoDocument = Nothing
    Set AdoStream = Nothing
    
    AdoRecord.UpdateBatch
    Unload Me

Answer 2

caliphliao(老九)这位大哥。/你这个原码里一个二进制都没有。你怎么传呀。

Answer 3

Sqlserver中
首先设定字段为image类型
然后用楼上面的代码