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

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

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

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

3. **文件上传**:
- 当用户点击“上传”按钮时，捕获事件并在后台处理文件上传：

     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

4. **保存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

5. **查询并预览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

6. **执行查询**:
- 创建一个`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