Re: [indopb] Add Blob di Datawindow

Sun, 26 Jun 2011 23:41:14 -0700



ini untuk download blob sepertinya pak.. kalo dengan cara ini bisa sih.. tp data gak bisa ditampilkan sebagai column
sementara yg dimaksud.. adalah menampilkan langsung blob picture kedalam datawindow.. sebagai column

silahkan buka di sini..
http://powerbuilder.hyderabad-colleges.com/Advanced-PowerBuilder-2-19-250.html


Afrianto Dulbahri wrote:
 

Yang ini, copas dari scriptnya Pak Setiawan:

 ll_filelength = filelength( ls_file)
 li_filenum = fileopen(ls_file, streammode!)
 
 if li_filenum = -1 then
  rollback ;
  messagebox( "Open Error","File open error occurred while tring to open " + ls_file )
  return
 end if
 
 if ll_filelength > 32765 then
   if mod( ll_filelength , 32765 ) = 0 then
     loops = ll_filelength / 32765
   else
     loops = ( ll_filelength / 32765 ) + 1
   end if
 else
   loops = 1
 end if
 
 for inx = 1 to loops
   fileread( li_filenum , b_read )
   b_lib = b_lib + b_read
 next
 
 fileclose( li_filenum )
 
 select count(*) into :li_c from prg where namafile = :ls_file ;
 f_err("")
 
 if li_c = 1 then
  updateblob prg
  set object = :b_lib
  where namafile  = :ls_file ;
  f_err("")
 else
 // insert into prg ( namafile, versi, tgl )
  insert into prg ( namafile ) values ( :ls_file ) ;
  f_err("")
  updateblob prg
  set object = :b_lib
  where namafile  = :ls_file ;
  f_err("")
 end if

Silahkan dimodifikasi sesuai kebutuhan.

Salam,
Afri

Date: Sun, 26 Jun 2011 22:32:48 -0700 (PDT)
Subject: Re: [indopb] Add Blob di Datawindow

 
script yang mana ya mas afri... sorry newbie...

From: Afrianto Dulbahri <[email protected]>
To: [email protected]
Sent: Monday, June 27, 2011 12:11 PM
Subject: Re: [indopb] Add Blob di Datawindow

 
Pakai script seperti yang dikirimkan Pak Setiawan Santosa Pak.

Salam,
Afri
Date: Sun, 26 Jun 2011 22:04:47 -0700 (PDT)
Subject: [indopb] Add Blob di Datawindow

 
Saya mempunyai tabel Pegawai yg memiliki field foto(blob), gmn caranya agar setiap row pegawai ada fotonya? karena file blob tidak dapat saya tambahkan langsung dalam data window. trim ya





__._,_.___


-----------------------------------------------
IndoPB - Indonesia PB User Group
http://groups.yahoo.com/group/indopb



Your email settings: Individual Email|Traditional
Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Daily Digest | Switch to Fully Featured
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe

__,_._,___

Kirim email ke