Como grabar un campo Image de SqlServer en un disco rigido ?
Publicado por Marche (1 intervención) el 22/06/2022 22:30:02
Buenas, tengo la imagen de un archivo pdf en un campo (image) de SqlServer.
Necesito desde Visual Basic 6.0 que lo lea y pueda generar el archivo que necesita el componente pdf para visualizarlo. Encuentro mucho código pero en Visual Basic.Net, pero lo que hay de VB 6.0 es casi nulo.
Muchas gracias
El codigo es el siguiente, pero me devuelve el componente de pdf que no es un archivo válido
Necesito desde Visual Basic 6.0 que lo lea y pueda generar el archivo que necesita el componente pdf para visualizarlo. Encuentro mucho código pero en Visual Basic.Net, pero lo que hay de VB 6.0 es casi nulo.
Muchas gracias
El codigo es el siguiente, pero me devuelve el componente de pdf que no es un archivo válido
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Option Explicit
Dim mvaroRs As ADOR.RecordsetPrivate Sub Form_Load()
Dim nfile As Integer
nfile = FreeFile()
Open Trim(oSitio.PathTMP) + Trim(mvaroRs!sFileName) For Output As nfile
Print #nfile, mvaroRs!IFile, Close #nfilepdfFile.setZoom (100)
pdfFile.setView ("Fit")
pdfFile.src = Trim(oSitio.PathTMP) + Trim(mvaroRs!sFileName)
End Sub
Public Property Let oRs(vData As ADOR.Recordset)
Set mvaroRs = vDataEnd Property
Valora esta pregunta
0