Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations derfloh on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
how to save MS Word into MS SQL Server in PB6? 1
- Thread starter kmsam2
- Start date
-
1
- #2
blob b,b_temp
long ll_file_len
integer li_file_num
string ls_filename = "c:\document1.doc"
ll_file_len = filelength(ls_filename)
li_file_num = FileOpen(ls_filename, StreamMode!, Read!, LockReadWrite!)
do while FileRead(li_file_num, b_temp) > 0
b += b_temp
loop
FileClose(li_file_num)
UPDATEBLOB Employee SET word_doc = :b
WHERE Emp_num = 100
USING Emp_tran ;
long ll_file_len
integer li_file_num
string ls_filename = "c:\document1.doc"
ll_file_len = filelength(ls_filename)
li_file_num = FileOpen(ls_filename, StreamMode!, Read!, LockReadWrite!)
do while FileRead(li_file_num, b_temp) > 0
b += b_temp
loop
FileClose(li_file_num)
UPDATEBLOB Employee SET word_doc = :b
WHERE Emp_num = 100
USING Emp_tran ;
- Thread starter
- #3
![[bomb]](/data/assets/smilies/bomb.gif "[bomb] [bomb]")
Lenin.- Status
Similar threads
- Locked
- Question
- Locked
- Question
- Locked
- Question