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

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

创建窗体和控件:

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

添加数据库连接:

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

文件上传:

鼠标单击事件处理程序中，使用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
登录后复制

预览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)
登录后复制