vb将pdf流写入access数据库,通过acropdf控件读出pdf流之实现

在VB中将PDF流写入Access数据库，并通过AcroPDF控件读取PDF流的实现方法如下：

1. 首先，您需要使用VB代码将PDF文件流写入Access数据库中的BLOB字段。您可以使用ADO连接到Access数据库，然后使用INSERT语句将PDF流作为参数插入到相应的数据库表中。以下是一个示例代码：

Dim conn As New ADODB.Connection
conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\YourDatabase.accdb;" '替换为您的数据库路径
conn.Open

Dim rs As New ADODB.Recordset
rs.Open "YourTableName", conn, adOpenDynamic, adLockOptimistic '替换为您的表名

Dim fileStream As New ADODB.Stream
fileStream.Open
fileStream.Type = adTypeBinary
fileStream.LoadFromFile "C:\YourPDFFile.pdf" '替换为您的PDF文件路径

rs.AddNew
rs.Fields("PDFData").Value = fileStream.Read
rs.Update

rs.Close
conn.Close

2. 接下来，您需要在VB窗体上添加一个AcroPDF控件，该控件可用于显示PDF文件。您可以在工具箱中找到AcroPDF控件并将其拖放到您的窗体上。

3. 在窗体加载事件中，可以使用以下代码从Access数据库中获取PDF流，并将其加载到AcroPDF控件中进行显示。

Private Sub Form_Load()
  Dim conn As New ADODB.Connection
  conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\YourDatabase.accdb;" '替换为您的数据库路径
  conn.Open

  Dim rs As New ADODB.Recordset
  rs.Open "YourTableName", conn, adOpenDynamic, adLockOptimistic '替换为您的表名

  If Not rs.EOF Then
    Dim fileStream As New ADODB.Stream
    fileStream.Open
    fileStream.Type = adTypeBinary
    fileStream.Write rs.Fields("PDFData").Value
    fileStream.SaveToFile "C:\Temp\TempPDF.pdf", adSaveCreateOverWrite '将PDF流保存为临时文件，替换为您的临时文件路径

    AcroPDF.src = "C:\Temp\TempPDF.pdf" '替换为您的临时文件路径
  End If

  rs.Close
  conn.Close
End Sub

其中，您需要将代码中的数据库路径、表名、PDF文件路径和临时文件路径替换为您实际的路径信息。

这样，您就可以通过VB将PDF流写入Access数据库，并通过AcroPDF控件在窗体上显示PDF文件了。