vb.net 制作一个窗口，上传PDF保存至SQL，可查询相应SQL中PDF并预览 实例

在VB.NET中创建一个窗口来上传PDF文件，并将其保存到SQL数据库，然后能够查询数据库并预览PDF内容，可以按照以下步骤进行：

环境准备:

使用Visual Studio作为IDE，选择一个新项目，例如Windows Forms Application。
安装System.Data.SqlClient和iTextSharp库，前者用于数据库操作，后者用于处理PDF。

界面设计:

设计一个简单的用户界面，包括文件上传控件（如PictureBox、Button或LinkButton），一个用于显示结果的区域（如TextBox或Label），以及一个用于预览PDF的组件（如PdfViewer或WebBrowser）。

文件上传:

当用户点击“上传”按钮时，捕获事件并在后台处理文件上传：Private Sub btnUpload_Click(sender As Object, e As EventArgs) Handles btnUpload.Click
If OpenFileDialog.ShowDialog() = DialogResult.OK Then
Dim filePath As String = OpenFileDialog.FileName
' 将文件路径存储到数据库
SavePdfToDatabase(filePath)
End If
End Sub
登录后复制

保存PDF到数据库:

使用SqlConnection和SqlCommand连接到SQL Server，将PDF文件的内容（通常是Base64编码的二进制数据）插入到一个表中：Private Sub SavePdfToDatabase(filePath As String)
Using conn As New SqlConnection(connectionString),
cmd As New SqlCommand()

' 建立连接和命令
conn.Open()
cmd.Connection = conn
cmd.CommandText = "INSERT INTO PdfTable (FilePath, Content) VALUES (@FilePath, @Content)"

' 参数绑定
cmd.Parameters.AddWithValue("@FilePath", filePath)
cmd.Parameters.AddWithValue("@Content", ReadBinaryFile(filePath))

' 执行命令
cmd.ExecuteNonQuery()
End Using
End Sub
Function ReadBinaryFile(filePath As String) As Byte()
' 读取并转换PDF为字节数组
Return File.ReadAllBytes(filePath)
End Function
登录后复制

查询并预览PDF:

用户可以输入查询条件后，从数据库检索PDF信息，解码Base64内容并使用PDF阅读器预览：Private Sub btnSearch_Click(sender As Object, e As EventArgs) Handles btnSearch.Click
Dim query As String = txtQuery.Text
Dim pdfContent As String = GetPdfFromDatabase(query)
If Not String.IsNullOrEmpty(pdfContent) Then
' 解码并预览PDF
PdfViewer1.Document.LoadFromString(Convert.FromBase64String(pdfContent))
Else
MessageBox.Show("PDF not found.")
End If
End Sub
Private Function GetPdfFromDatabase(query As String) As String
' 根据查询条件获取PDF内容
' 示例代码省略了错误处理和实际SQL查询构建的部分
Using reader As SqlDataReader = ExecuteQuery(query)
If reader.Read() Then
Return reader.GetString(2) ' 假设Content字段的索引是2
Else
Return ""
End If
End Using
End Function
登录后复制

执行查询:

创建一个ExecuteQuery辅助函数，用于执行SQL查询：Private Function ExecuteQuery(query As String) As SqlDataReader
Using conn As New SqlConnection(connectionString),
cmd As New SqlCommand(query, conn)

' 执行查询
conn.Open()
Return cmd.ExecuteReader()
End Using
End Function
登录后复制