none
abrir un PDF en un AxAcroPDF dentro de un form RRS feed

  • Pregunta

  • Buen dia!

    Bueno, creo que ya existe mucho material sobre los PDF y los AxAcroPDF, pero creo que hasta ahorita no he encontrado una solucion a mi problema, no se si estoy haciendo algo mal, me falta algun imports o no se, el caso es que no puedo visualizar en un AxAcroPDF que esta dentro de un form un archivo PDF.... en mi base de datos (MySQL) en tengo una tabla en donde guardo la direccion donde se almacena el archivo pdf que deseo visualizar en el form.... para extraer los datos:

    Private Sub frmConsulta_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            'Obtener el dataset
            Dim tmpDSPartes As New Data.DataSet
    
            'Generar(query)
            strMySQL = "select clientes.cliente, partes.Numparte, planos.plano, planos.revision from clientes, partes, planos where clientes.idCliente=partes.idCliente and partes.NumParte=planos.numParte and partes.idParte=" & idParte
    
            tmpDSPartes = getTable(strMySQL)
    
            If tmpDSPartes.Tables(0).Rows.Count <> 0 Then
                txtNP.Text = tmpDSPartes.Tables(0).Rows(0).Item("NumParte")
                txtRev.Text = tmpDSPartes.Tables(0).Rows(0).Item("revision")
                txtCliente.Text = tmpDSPartes.Tables(0).Rows(0).Item("cliente")
    
                AxAPlano.LoadFile(tmpDSPartes.Tables(0).Rows(0).Item("plano"))
                'AxAPlano.enable = True
                AxAPlano.Dock = DockStyle.None
                AxAPlano.setShowScrollbars(True)
    
    
            End If
        End Sub
    
    End Class

    el caso es de que en lo textbox si me muestra lo que deseo que me muestre, pero en el AxAcroPDF no me muestra nada, se queda gris..... alguna sugerencia de como poder visualizar mi archivo????

    Gracias de antemano por sus atenciones :)

     
    lunes, 8 de diciembre de 2014 18:43

Respuestas

  • Hola:
    Prueba algo como esto

        Private Sub FrmXXXXX_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
            If File.Exists("TU_FICHERO_PDF") = True Then
                AxAcroPDF1.LoadFile("TU_FICHERO_PDF")
                AxAcroPDF1.Enabled = True
                AxAcroPDF1.Dock = DockStyle.None
                AxAcroPDF1.setShowScrollbars(True)
                AxAcroPDF1.setShowToolbar(False)
            End If
        End Sub
    P.D.

    Lo que tienes que cargar es un fichero con formato PDF, tu estas cargando 1 campo de una tabla. Ese valor del campo (array de bytes o lo que sea), lo tienes que pasar a formato PDF  

     
    Un saludo desde Bilbo
    Carlos

    • Marcado como respuesta SofyBoop martes, 9 de diciembre de 2014 17:49
    martes, 9 de diciembre de 2014 9:07