如何将一个EXCEL文件作为二进制文件存入数据库，再把它读取打开？
2018-09-06 12:27
下面的代码把数据库中的image类型字段还原为excel文件。
数据库用的是sql server自带的pubs
Dim rs As ADODB.Recordset
Dim mstream As ADODB.Stream
Set cn = New ADODB.Connection
cn.ConnectionString = Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa;Password=sa; _
Initial Catalog=pubs;Data Source=MyServer
cn.OpenSet rs = New ADODB.Recordset
rs.Open Select * from pub_info, cn, adOpenKeyset, adLockOptimistic
Set mstream = New ADODB.Stream
mstream.Type = adTypeBinary
mstream.Open
mstream.Write rs.Fields(logo).Value
mstream.SaveToFile c:publogo.xls, adSaveCreateOverWrite
rs.Close
cn.Close
下面的代码把一Excel保存到数据库中Set cn = New ADODB.Connection
cn.Open Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa;Password=sa; _
Initial Catalog=pubs;Data Source=MyServer
Set rs = New ADODB.Recordset
rs.Open Select * from pub_info, cn, adOpenKeyset, adLockOptimistic
rs.AddNew
Set mstream = New ADODB.Stream
mstream.Type = adTypeBinary
mstream.Open
mstream.LoadFromFile txtEXcelPath
rs.Fields(pub_id) = …… 在pubs库中，这个字段是主键，需要修改一个有效值
rs.Fields(logo).Value = mstream.Read
rs.Update
rs.Close
cn.Close
该代码来自MSDN
上一篇：一个防止被采集的方法
下一篇：asp 简单分页代码
文章标题：如何将一个EXCEL文件作为二进制文件存入数据库，再把它读取打开？
文章链接：http://soscw.com/essay/10332.html