如何使用VB.NET将PDF文件以BLOB格式存入MySQL数据库

嗨，我来帮你把现有代码改成支持PDF存入MySQL的版本，其实核心思路和图片存储是一致的——都是把文件转成字节数组存入数据库的二进制字段，只是需要调整几个小地方：

1. 调整文件选择对话框的过滤规则 #

首先要让OpenFileDialog能识别PDF文件，修改Filter属性，既可以保留原有图片格式，也可以单独只选PDF：

' 支持图片+PDF的过滤规则，也可以拆分成单独的选项
OFD.Filter = "Image & PDF Files (*.jpg;*.bmp;*.gif;*.pdf)|*.jpg;*.bmp;*.gif;*.pdf|PDF Files Only (*.pdf)|*.pdf|Image Files Only (*.jpg;*.bmp;*.gif)|*.jpg;*.bmp;*.gif"

2. 通用读取文件为字节数组 #

不管是图片还是PDF，都可以用File.ReadAllBytes()直接读取成字节数组，这比单独处理图片的方式更通用，也适合存入数据库：

Dim fileBytes As Byte() = File.ReadAllBytes(OFD.FileName)

3. 确保数据库字段类型正确 #

MySQL中存储大文件（比如PDF）建议用LONGBLOB类型（最大支持4GB），如果原来用的是BLOB，可能会因为文件大小超过限制失败。推荐你的表结构包含这几个字段：

• FileName：VARCHAR，存储文件名
• FileData：LONGBLOB，存储文件的二进制数据
• FileType：VARCHAR，存储文件扩展名（比如.pdf、.jpg），方便后续区分文件类型

4. 完整的示例代码 #

这里给你整合好的完整代码，包含文件选择、读取、存入数据库的流程：

Try
    Dim OFD As New OpenFileDialog()
    ' 更新过滤规则，支持图片和PDF
    OFD.Filter = "Image & PDF Files (*.jpg;*.bmp;*.gif;*.pdf)|*.jpg;*.bmp;*.gif;*.pdf|PDF Files (*.pdf)|*.pdf|Image Files (*.jpg;*.bmp;*.gif)|*.jpg;*.bmp;*.gif"
    OFD.Title = "选择要存储的图片或PDF文件"
    
    If OFD.ShowDialog() = DialogResult.OK Then
        Dim filePath As String = OFD.FileName
        ' 读取文件为字节数组
        Dim fileBytes As Byte() = File.ReadAllBytes(filePath)
        ' 获取文件扩展名，用于记录文件类型
        Dim fileExtension As String = Path.GetExtension(filePath).ToLower()

        ' 连接数据库并插入数据（记得替换成你的连接字符串）
        Using conn As New MySqlConnection("Server=你的服务器地址;Database=你的数据库名;Uid=用户名;Pwd=密码;")
            conn.Open()
            ' 参数化查询，避免SQL注入，同时正确处理二进制数据
            Dim sql As String = "INSERT INTO Files (FileName, FileData, FileType) VALUES (@FileName, @FileData, @FileType)"
            Using cmd As New MySqlCommand(sql, conn)
                cmd.Parameters.AddWithValue("@FileName", Path.GetFileName(filePath))
                cmd.Parameters.AddWithValue("@FileData", fileBytes)
                cmd.Parameters.AddWithValue("@FileType", fileExtension)
                
                Dim rowsAffected As Integer = cmd.ExecuteNonQuery()
                If rowsAffected > 0 Then
                    MessageBox.Show("文件成功存入数据库！")
                Else
                    MessageBox.Show("文件存入失败，请检查数据库连接！")
                End If
            End Using
        End Using
    End If
Catch ex As Exception
    MessageBox.Show("操作出错：" & ex.Message)
End Try

额外注意事项 #

• 如果你原来的代码有图片预览逻辑，PDF没法像图片那样直接用PictureBox显示，要是需要预览PDF，得额外引入PDF查看控件（比如Adobe的控件或者第三方库），不过如果只是存储的话，这部分不需要改动。
• 尽量用参数化查询，不要直接拼接SQL，不然不仅有注入风险，还会导致二进制数据存储出错。
• 如果要存储超大PDF（超过4GB），LONGBLOB也不够用，这时候可能需要考虑文件系统存储+数据库记录路径的方案，但大部分场景下LONGBLOB完全够用。

内容的提问来源于stack exchange，提问作者Poro_doge