问在VB.NET中使用windows表单从MS Access打开PDF

EN

    Dim strSqll As String
    Dim conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\BCInventory.accdb;Persist Security Info=False;")
    conn.Open()


    strSqll = "Select filename from pdf WHERE PR = '" & pr & "' AND Year = '" & year & "'"

    Dim sqlCmdd As New OleDbCommand(strSqll, conn)

    Dim r As OleDb.OleDbDataReader = sqlCmdd.ExecuteReader()

    If Not r.HasRows Then Exit Sub

    Do While r.Read()
        fname = r.GetString(0)
    Loop
    conn.Close()

       Try
            Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\BCInventory.accdb;Persist Security Info=False;")
            con.Open()
            Dim strSql As String = "Select File from pdf WHERE PR = '" & pr & "' AND Year = '" & year & "' AND fileType='" & ftype & "'"

            Dim sqlCmd As New OleDbCommand(strSql, con)

            Dim fileData As Byte() = DirectCast(sqlCmd.ExecuteScalar(), Byte())

            Dim sTempFileName As String = Application.StartupPath & "\Purchase Orders scans" & "\" & fname

            If Not fileData Is Nothing Then
                Using fs As New FileStream(fname, FileMode.OpenOrCreate, FileAccess.Write)
                    fs.Write(fileData, 0, fileData.Length)
                    fs.Flush()
                    fs.Close()
                End Using
                ShellEx(Me.Handle, "Open", fname, "", "", 10)
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try