请教:怎样读出ACCESS97中的图片

kkkppp好 2000-07-11 09:34:00
表名:TABLE
字段名:PIC
用ASP怎样读出PIC字段里的图片??
...全文
134 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
kkkppp好 2000-07-12
  • 打赏
  • 举报
回复
谢谢!!!真是仁者见仁,智者见志呀!!!
jury 2000-07-12
  • 打赏
  • 举报
回复
最简单有效的办法是在数据库中直接放图象文件名。
TopHead 2000-07-11
  • 打赏
  • 举报
回复
'将图片存入数据库
'首先将文件读入一字节数组
Dim bit() As Byte
Open "C:\WINDOWS\安装程序.bmp" For Binary As #1
ReDim bit(LOF(1)) As Byte
Get 1, 1, bit
Close 1

'然后将字节数组的内容写入数据库即可
Dim cnn As New ADODB.Connection, rst As New ADODB.Recordset
cnn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Northwind;Data Source=rdm"
rst.Open "T1", cnn, adOpenKeyset, adLockOptimistic
rst.AddNew
rst("F1").AppendChunk bit
rst.Update
'
' '将数据库中的图片读出
' '首先将数据库中的内容读到一字节数组
' Dim bit1() As Byte
' bit1 = rst("F1").GetChunk(rst("F1").ActualSize)
' '然后将字节数组的内容拼装成文件即可
' Open "c:\1.bmp" For Binary As #1
' Put 1, 1, bit1
' Close 1
' Me.Picture = LoadPicture("c:\1.bmp")

供参考:)

28,390

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧