dim BlobBuffer() as byte
Cursor1.Position = 1
ref_id= Cursor1.GetString("ref_id")
BlobBuffer = Cursor1.GetBlob("PDFdata")
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "save_blob"
cmd.Parameters = Array As Object(ref_id,BlobBuffer)
reqManager.ExecuteCommand(cmd,"save_blob")