28,408
社区成员
发帖
与我相关
我的任务
分享请问,如何向ACCESS数据库中插入一个图片
我最近在做一个ASP的小程序,想实现图片上传功能,谁能告诉我,怎么向ACCESS数据据中写图片,图片在数据库中的类型为:OLE对象,假设我在FILE中读到的此图片所在的位置,怎么往数据库中写呀?谢谢大家了.
...全文
请发表友善的回复…
发表回复
Xcathy 2004-12-20
- 打赏
- 举报
谢谢上帝天使给我所发问题 的回复，程序完全可以实现所要求的功能，你给的程序我看了，不过我看不懂下面这个地方，divider=leftB(formdata,clng(instrb(formdata,bncrlf))-1)
datastart=instrb(formdata,bncrlf & bncrlf)+4
dataend=instrb(datastart+1,formdata,divider)-datastart
mydata=midb(formdata,datastart,dataend)
你能给我解释一下吗？还有就是，我看你的程序当中，表单中只有一个上传图片的FILE，可是我的表单上有好几项内容，如图片名称，图片作者，图片简介，如果我不修改你的程序，请问还能用吗？谢谢
datastart=instrb(formdata,bncrlf & bncrlf)+4
dataend=instrb(datastart+1,formdata,divider)-datastart
mydata=midb(formdata,datastart,dataend)
你能给我解释一下吗？还有就是，我看你的程序当中，表单中只有一个上传图片的FILE，可是我的表单上有好几项内容，如图片名称，图片作者，图片简介，如果我不修改你的程序，请问还能用吗？谢谢
okmax 2004-12-17
- 打赏
- 举报
做个标记，以后研究
bighai 2004-12-17
- 打赏
- 举报
有把图片路经放到库里面的,也有换成二进制再放进去的!
DARKNESSFALL 2004-12-17
- 打赏
- 举报
ACCESS可以往数据库中添加图片的路径，然后<img src="<%=rs("路径")%>">的方法实现
hackate 2004-12-17
- 打赏
- 举报
他好像要把图片都放到数据库里呢，！-_-#
sdts 2004-12-17
- 打赏
- 举报
忘了一个display.asp
<%
response.expires=-9999
set connGraph=server.CreateObject("ADODB.connection")
connGraph.Open "DRIVER={SQL Server};Server=127.0.0.1;Database=Expert;UID=sa;PWD=sasa"
'connGraph.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&server.MapPath("image.mdb")
'set rec=server.createobject("ADODB.recordset")
'rec.Open "SELECT * FROM pic",connGraph,1,1
response.clear
'sql="SELECT * FROM pic"
'sql="select * from img where id='"&Request("id")&"'"
sql="select * from expinfo where eid=21"
set rs=connGraph.Execute(sql)
Response.ContentType = "text/html"
'Response.ContentType = "image/gif"
'Do while not rs.eof
'For i=1 TO rs.recordcount
Response.BinaryWrite rs("epic").getchunk(7500000)
'rs.movenext
'Loop
'NEXT
rs.close
set rs=nothing
%>
<%
response.expires=-9999
set connGraph=server.CreateObject("ADODB.connection")
connGraph.Open "DRIVER={SQL Server};Server=127.0.0.1;Database=Expert;UID=sa;PWD=sasa"
'connGraph.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&server.MapPath("image.mdb")
'set rec=server.createobject("ADODB.recordset")
'rec.Open "SELECT * FROM pic",connGraph,1,1
response.clear
'sql="SELECT * FROM pic"
'sql="select * from img where id='"&Request("id")&"'"
sql="select * from expinfo where eid=21"
set rs=connGraph.Execute(sql)
Response.ContentType = "text/html"
'Response.ContentType = "image/gif"
'Do while not rs.eof
'For i=1 TO rs.recordcount
Response.BinaryWrite rs("epic").getchunk(7500000)
'rs.movenext
'Loop
'NEXT
rs.close
set rs=nothing
%>
sdts 2004-12-17
- 打赏
- 举报
数据库表中有 id（自动编号） img
===========================upload.htm
<html>
<body>
<center>
<form name="mainForm" enctype="multipart/form-data" action="do.asp" method=post>
<input type=file name=mefile accept=image/*><br>
<input type=submit name=ok value="上传">
</form>
</center>
</body>
</html>
===========================
===========================do.asp
<%
response.expires=0
response.buffer=false
formsize=request.totalbytes
formdata=request.binaryread(formsize)
bncrlf=chrB(13) & chrB(10)
divider=leftB(formdata,clng(instrb(formdata,bncrlf))-1)
datastart=instrb(formdata,bncrlf & bncrlf)+4
dataend=instrb(datastart+1,formdata,divider)-datastart
mydata=midb(formdata,datastart,dataend)
set connGraph=server.CreateObject("ADODB.connection")
'connGraph.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&server.MapPath("image.mdb")
connGraph.Open "DRIVER={SQL Server};Server=127.0.0.1;Database=Expert;UID=sa;PWD=sasa"
set rec=server.createobject("ADODB.recordset")
'rec.Open "SELECT * FROM img where id IS NULL",connGraph,1,3
rec.Open "SELECT id,img FROM img",connGraph,1,3
'rec.open "select * From pic",connGraph,1,3
rec.addnew
rec("img").appendchunk mydata
'rec("img")=mydata
rec.update
rec.close
'set rec=nothing
rec.Open "SELECT id,img FROM img",connGraph,1,3
Response.write "共有"&rec.recordcount&"张图片<br>"
Do while not rec.eof
Response.write "<a href='display.asp?id="&rec("id")&"' target='_blank'>编号："&rec("id")&"</a>"
Response.write "<img src='display.asp?id="&rec("id")&"' height=100 width=100><br>"
rec.movenext
Loop
rec.close
set rec=nothing
connGraph.close
set connGraph=nothing
'response.redirect "display.asp?id="&rs("id")
%>
===========================
===========================upload.htm
<html>
<body>
<center>
<form name="mainForm" enctype="multipart/form-data" action="do.asp" method=post>
<input type=file name=mefile accept=image/*><br>
<input type=submit name=ok value="上传">
</form>
</center>
</body>
</html>
===========================
===========================do.asp
<%
response.expires=0
response.buffer=false
formsize=request.totalbytes
formdata=request.binaryread(formsize)
bncrlf=chrB(13) & chrB(10)
divider=leftB(formdata,clng(instrb(formdata,bncrlf))-1)
datastart=instrb(formdata,bncrlf & bncrlf)+4
dataend=instrb(datastart+1,formdata,divider)-datastart
mydata=midb(formdata,datastart,dataend)
set connGraph=server.CreateObject("ADODB.connection")
'connGraph.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&server.MapPath("image.mdb")
connGraph.Open "DRIVER={SQL Server};Server=127.0.0.1;Database=Expert;UID=sa;PWD=sasa"
set rec=server.createobject("ADODB.recordset")
'rec.Open "SELECT * FROM img where id IS NULL",connGraph,1,3
rec.Open "SELECT id,img FROM img",connGraph,1,3
'rec.open "select * From pic",connGraph,1,3
rec.addnew
rec("img").appendchunk mydata
'rec("img")=mydata
rec.update
rec.close
'set rec=nothing
rec.Open "SELECT id,img FROM img",connGraph,1,3
Response.write "共有"&rec.recordcount&"张图片<br>"
Do while not rec.eof
Response.write "<a href='display.asp?id="&rec("id")&"' target='_blank'>编号："&rec("id")&"</a>"
Response.write "<img src='display.asp?id="&rec("id")&"' height=100 width=100><br>"
rec.movenext
Loop
rec.close
set rec=nothing
connGraph.close
set connGraph=nothing
'response.redirect "display.asp?id="&rs("id")
%>
===========================
