Como guardar un PDF en un campo de una tabla en SQL SERVER utilizando PowerBuilder

1.- Crea un campo de tipo image en la tabla donde deseas guardar tu archivo.
2.- Luego lees el archivo pdf del path donde se encuentre
3.- Seguidamente actualizas el contenido leido en el campo de la tabla
Supongamos que tenemos una tabla que se llama prueba y utiliza una llave
unica sobre el campo tmp_llave. El campo campo image se llama tmp_archivo.
// Declaramos nuetros campos de tipo blog
blob lbl_data
blob lbl_temp
long ll_file, ll_long = 0, ll_tam
integer li_pos = 1
// leemos el archivo
ll_file = FileOpen("c:\temp\prueba.pdf",streammode!)
// barremos sus registros
Do While FileRead(ll_file,lbl_temp) > 0
lbl_data += lbl_temp
Loop
// cerramos el archivo
FileClose(ll_file)
// actualizamos nuestra base de datos
UPDATEBLOB prueba SET prueba.tmp_archivo = :lbl_data WHERE
prueba.tmp_llave = :li_llave;
// Para recuperar y mostrar el archivo:
SELECTBLOB tmp_archivo INTO :lbl_data FROM prueba WHERE
prueba.tmp_llave = :li_llave;
ll_file FileOpen("c:\temp\prueba2.pdf",StreamMode!,Write!)
ll_tam = len(lbl_data)
if ll_tam <= 32766 then
FileWrite(ll_file,lbl_data)
else
Do
lbl_temp = BlobMid(lbl_data,li_pos,32765)
ll_long = ll_long + FileWrite(ll_file,lbl_temp)
li_pos = li_pos + 32765
Loop While ll_long <= ll_tam
end if
// fin de la solucion