以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  放一个直接访问数据库二进制字段并打开文档的例子,欢迎完善  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=75004)

--  作者:bahamute
--  发布时间:2015/9/24 12:02:00
--  放一个直接访问数据库二进制字段并打开文档的例子,欢迎完善
终于成功,sql数据库,欢迎大家完善。
Dim cmd As SQLCommand = new SQLCommand()
cmd.C.o.n.n.e.c.t.i.o.n.N.a.m.e = "salaryMS"
Dim dt As DataTable
cmd.CommandText = "s.e.l.e.c.t 文件 from {文件模板} where 文件名 = \'考勤导入模板\'"
Dim xlsByte() As Byte
dt=cmd.ExecuteReader()  
Dim dr As DataRow = dt.DataRows(0)
xlsByte = dr("文件")

Dim fl As String =  ProjectPath & "考勤导入模板.xls"
Dim fs As New IO.FileStream(fl,IO.FileMode.Create,IO.FileAccess.Write)
Dim bw As New IO.BinaryWriter(fs)
bw.Write(xlsByte)
bw.Close()
fs.Close()

Dim Proc As New Process \'打开文件
Proc.File = fl
Proc.Start()
[此贴子已经被作者于2015/9/24 15:46:59编辑过]

--  作者:大红袍
--  发布时间:2015/9/24 12:11:00
--  

mark

 


--  作者:2
--  发布时间:2015/9/24 12:24:00
--  
图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看