使用 Excel VBA 将文件（如 PDF、图像、Word...）上传到 SQL Server 中的表

Question

我有一个 Excel 文件，一些用户将其用作前端，我希望能够通过 VBA 将一般文件（如 PDF、图像、word 文档...）上传到 SQL Server。

在搜索了很多网站后，我整理了一些代码，但我不知道在 VBA SQL 变量（INSERT INTO 查询）中写什么来上传一些通用文件（例如 PDF）

VBA 代码：

Sub SaveAsBinary()

    Dim adoStream As Object
    Dim adoCmd As Object
    Dim strFilePath As String
    Dim adoCon As Object
  
    Dim SQL As String
    Dim FileNameStr as String
  
    
    Set adoCon = CreateObject("ADODB.Connection")
    Set adoStream = CreateObject("ADODB.Stream")
    Set adoCmd = CreateObject("ADODB.Command")
    
    '--Open Connection to SQL server
    adoCon.CursorLocation = 3 'adUseClient
    
    adoCon.Open = "Driver={SQL Server Native Client 11.0};" _
                        & "MyServerName;" _
                        & "Database=MyDatabaseName;" _
                        & "Uid=MyUserName;" _
                        & "Pwd={MyPassword};" _
                        & "Connection Timeout=30;"
    
    
    '----
    
    strFilePath = Range("a1").Value 'keep File path to upload (simple local computer path)
    FileNameStr = Dir(strFilePath )
    
    SQL = "INSERT INTO Tbl_Test VALUES (FileNameStr, ??)" '‹‹---What value should be here for loading a pdf file (for example)

    
    adoStream.Type = 1 'adTypeBinary
    adoStream.Open
    adoStream.LoadFromFile strFilePath 'It fails if file is open
        
    With adoCmd
        .CommandText = SQL ' Query
        .CommandType = 1 ' adCmdText
        
        '---adding parameters
        .Parameters.Append .CreateParameter("@FileName", 20, 1, 0, 1)
        .Parameters.Append .CreateParameter("@MyFile", 204, 1, adoStream.Size, adoStream.Read)
        '---
    End With
    
    adoCmd.ActiveConnection = adoCon
    adoCmd.Execute
        
    adoCon.Close
    
End Sub

原始代码取自： https://usefulgyaan.wordpress.com/2014/09/30/store-and-fetch-files-sql-server-tables/

Sql server 中的表：

CREATE TABLE [dbo].[Tbl_Test](
    [FileName] [nvarchar](200) NOT NULL,
    [MyFile] [varbinary](max) NOT NULL
) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY]

一栏是文件名，一栏是文件本身。

注意：SQL Server 位于没有共享文件夹/BLOB/FTP 的远程服务器上。

Answer 1

解决方案是保持这条线为

SQL = "INSERT INTO Tbl_Test VALUES (?, ?)"

并将参数填写到该 SQL 中

.Parameters.Append .CreateParameter("@FileName", 20, 1, 0, 1)
.Parameters.Append .CreateParameter("@MyFile", 204, 1, adoStream.Size, adoStream.Read)

使用CreateParameter Method 和适合数据库字段的数据类型。

Answer 2

我会这样做：

SQL = "INSERT INTO Tbl_Test([FileName],[MyFile]) VALUES ('" & FileNameStr & "', CAST(" & adoStream.Read & ") as varbinary(max))"

备注： 未在 VBA 中测试 - 我是 AutoIt 编码器，而不是 VBA 编码器。