Visual Basic - Ayuda armar PDF desde sqlserver

Life is soft - evento anual de software empresarial
   
Vista:

Ayuda armar PDF desde sqlserver

Publicado por shonatan (1 intervención) el 03/02/2011 15:52:46
Hola a todos

Mi problema es que tengo en un campo imagen de una tabla SQLSERVER almacenado un archivo pdf y no se como transforamrlo desde vb otra vez a pdf es decir poder guardarle en el disco duro el archivo pero con formato pdf.

Gracias por su ayuda
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Ayuda armar PDF desde sqlserver

Publicado por Christian (666 intervenciones) el 04/02/2011 05:36:18
Tenes que usar ADo Stream.

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim mstream As ADODB.Stream

Set cn = New ADODB.Connection
cn.Open "Provider=SQLOLEDB;data Source=<name of your SQL Server>;
Initial Catalog=pubs;User Id=<Your Userid>;Password=<Your Password>"

Set rs = New ADODB.Recordset
rs.Open "Select * from pub_info", cn, adOpenKeyset, adLockOptimistic

Set mstream = New ADODB.Stream
mstream.Type = adTypeBinary
mstream.Open
mstream.Write rs.Fields("logo").Value
mstream.SaveToFile "c:\publogo.gif", adSaveCreateOverWrite

rs.Close
cn.Close

este es un ejemplo con gif cambialo a pdf
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar