vb.net 制作一个窗口，将PDF上传至SQL，可输入ID使用最优控件 预览PDF

在VB.NET中制作一个界面，允许用户上传PDF文件到SQL数据库，同时提供ID输入，并预览PDF，你可以使用Windows Forms控件以及ADO.NET来完成这个任务。以下是基本步骤：

1. **创建窗体和控件**:
- 创建一个新的Windows Form项目。
- 添加一个`PictureBox`用于预览PDF（如PdfViewer控件），如果找不到现成的，可以考虑使用WebBrowser或第三方控件如iTextSharp Preview等。
- 添加一个`TextBox`用于输入PDF ID。
- 添加一个`Button`作为上传和预览按钮。

2. **添加数据库连接**:
- 在项目中引用System.Data.SqlClient命名空间。
- 使用`SqlConnection`类建立到SQL数据库的连接。

3. **文件上传**:
- 鼠标单击事件处理程序中，使用`OpenFileDialog`打开文件对话框让用户选择PDF文件。
- 读取选定文件的内容（通常是通过FileStream）。
- 使用`SqlCommand`插入新的记录，包含ID和PDF内容的Base64编码。

Dim openFileDialog As New OpenFileDialog()
If openFileDialog.ShowDialog() = DialogResult.OK Then
    Dim fileBytes As Byte() = File.ReadAllBytes(openFileDialog.FileName)
    Dim base64 As String = Convert.ToBase64String(fileBytes)

    Dim insertCommand As New SqlCommand("INSERT INTO PDFs (Id, Content) VALUES (@id, @content)", connection)
    insertCommand.Parameters.AddWithValue("@id", textBoxId.Text)
    insertCommand.Parameters.AddWithValue("@content", base64)
    connection.ExecuteNonQuery()
End If

4. **预览PDF**:
- 在预览按钮的点击事件中，先查询数据库获取指定ID的PDF内容，然后解码为字节流，并展示在预览控件上。

Dim selectCommand As New SqlCommand("SELECT Content FROM PDFs WHERE Id = @id", connection)
selectCommand.Parameters.AddWithValue("@id", textBoxId.Text)
connection.Open()

Dim content As String = (From data In selectCommand.ExecuteReader() Select data.GetString(0)).FirstOrDefault()
Dim decodedBytes As Byte() = Convert.FromBase64String(content)
Dim memoryStream As New MemoryStream(decodedBytes)
pdfViewer.Load(memoryStream)