怎样实现向sql server 2000录入图形、声音、影像文件 二进制流写到sql server的image字段。以二进制流读出写成临时文件,用相应的工具打开。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 下面的代码把数据库中的image类型字段还原为图片文件。数据库用的是sql server自带的pubsDim cn As ADODB.ConnectionDim rs As ADODB.RecordsetDim mstream As ADODB.StreamSet cn = New ADODB.Connectioncn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa;Password=;" _ & "Initial Catalog=pubs;Data Source=MyServer"cn.OpenSet rs = New ADODB.Recordsetrs.Open "Select * from pub_info", cn, adOpenKeyset, adLockOptimisticSet mstream = New ADODB.Streammstream.Type = adTypeBinarymstream.Openmstream.Write rs.Fields("logo").Valuemstream.SaveToFile "c:\publogo.gif", adSaveCreateOverWriters.Closecn.Close下面的代码把一幅图片保存到数据库中Set cn = New ADODB.Connectioncn.Open "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa;Password=sa;" _ & "Initial Catalog=pubs;Data Source=MyServer"Set rs = New ADODB.Recordsetrs.Open "Select * from pub_info", cn, adOpenKeyset, adLockOptimisticrs.AddNewSet mstream = New ADODB.Streammstream.Type = adTypeBinarymstream.Openmstream.LoadFromFile txtImagePathrs.Fields("pub_id") = "……" '在pubs库中,这个字段是主键,需要修改一个有效值rs.Fields("logo").Value = mstream.Readrs.Updaters.Closecn.Close 关于dbase 基础上的Reindex和SQL中什么概念相同? logshipping如何更改ldf位置 BCP语法请教———:) 帮帮忙,急啊。数据显示问题。 数据库备份文件 log备份文件检查 远程数据库问题(sqlserver 2005) SQL Server 有没有假执行功能 关于SQL事物。(急) SQL怎样取消绑定的规则 无法安装sql server2000 谢谢解答,请OpenVMS进来领分! 有关SQL语句
数据库用的是sql server自带的pubs
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim mstream As ADODB.StreamSet cn = New ADODB.Connection
cn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa;Password=;" _
& "Initial Catalog=pubs;Data Source=MyServer"
cn.OpenSet rs = New ADODB.Recordset
rs.Open "Select * from pub_info", cn, adOpenKeyset, adLockOptimisticSet mstream = New ADODB.Stream
mstream.Type = adTypeBinary
mstream.Open
mstream.Write rs.Fields("logo").Value
mstream.SaveToFile "c:\publogo.gif", adSaveCreateOverWriters.Close
cn.Close下面的代码把一幅图片保存到数据库中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.AddNewSet mstream = New ADODB.Stream
mstream.Type = adTypeBinary
mstream.Open
mstream.LoadFromFile txtImagePath
rs.Fields("pub_id") = "……" '在pubs库中,这个字段是主键,需要修改一个有效值rs.Fields("logo").Value = mstream.Read
rs.Updaters.Close
cn.Close