1,075
社区成员
发帖
与我相关
我的任务
分享斑竹呢，有问题了，高手解决阿
如何把一个excel文件存入sqlserver2000的数据库里，然后需要取出来，编辑，再保存回去，用pb怎么做阿，大概要用到blob、ole什么的，整不明白了，高手帮忙，分有的是阿。
...全文
请发表友善的回复…
发表回复
workhand 2005-07-28
- 打赏
- 举报
blob Lb_aa,aa
selectblob a1 into :Lb_aa from aaa where id = 1 ;
ulong nbr
// dw_5.object.datawindow.ole_1.client.class = Lb_aa
ole_2.objectdata = Lb_aa
////激活OLE
ole_2.activate(inplace!)
这样可以显示存的文件了，不过激活后是最小的一个窗口，需要自己拉，不知道为啥了
selectblob a1 into :Lb_aa from aaa where id = 1 ;
ulong nbr
// dw_5.object.datawindow.ole_1.client.class = Lb_aa
ole_2.objectdata = Lb_aa
////激活OLE
ole_2.activate(inplace!)
这样可以显示存的文件了，不过激活后是最小的一个窗口，需要自己拉，不知道为啥了
nimittz 2005-07-28
- 打赏
- 举报
老大，你是想在pb里打开一个excel并编辑最后用pb保存到数据库是吧，可以使用ole阿，另外自己参看vba的帮助阿，例子也有很多的。保存用updateblob,取出来用selectblob阿。
workhand 2005-07-28
- 打赏
- 举报
大哥，不固定阿，现在就想存excel，然后编译完了再存上
j9dai 2005-07-28
- 打赏
- 举报
Excel格式固定吗？
固定的话干嘛不用DW啊
固定的话干嘛不用DW啊
workhand 2005-07-28
- 打赏
- 举报
li_rc = GetFileOpenName("选择报表模板文件",ls_path,ls_filename,"报表模板文件","报表模板EXCEL文件(*.xls),*.xls," )
if li_rc <> 1 then return
if ls_filename = '' or isnull(ls_filename) then return
integer li_fnum, li_bytes,flen
SetCurrentDirectoryA(is_buffer)
li_fnum = FileOpen(Ls_path , StreamMode!)
flen = FileLength(ls_filename )
IF flen > 32765 THEN
IF Mod(flen, 32765) = 0 THEN
loops = flen/32765
ELSE
loops = (flen/32765) + 1
END IF
ELSE
loops = 1
END IF
blob aaa
For i = 1 To Loops
fileread(li_fnum ,aaa)
Lb_aa = Lb_aa + aaa
next
blob aa
IF aa = Lb_aa then
messagebox(Gs_tsxx,'空')
End IF
updateblob aaa set a1 = :Lb_aa where id = 1 ;
这样大致可以更新到数据库里，但是是否正确不知道，我怎么取出来，放到什么地方才能看到我的excel，才知道存的对不对阿
