access数据库图片
1. 如何在ACCESS数据库放入图片
首先建一个数据库,假设为(img.mdb).在其中建一表(pic),表中有两个字段(id,img),id数据类型为"自动编号",img的类型为"OLE对象".
下面用三个文件用来实现图片功能,conn.asp是定义数据库连接函数的,up.asp用来上传图片,show.asp用来从数据库读取图片.
-------------conn.asp--------------
<%
dim conn,rs
function getdata(sql)
dbpath="img.mdb"
set conn=server.CreateObject("ADODB.connection")
connstr="provider=Microsoft.jet.oledb.4.0;data source="&server.MapPath(dbpath)
conn.open connstr
set rs=server.CreateObject("ADODB.recordset")
rs.open sql,conn,3,2
end function
sub rsclose()
rs.close()
set rs=nothing
conn.close()
set conn=nothing
end sub
%>
---------------up.asp---------------
<html>
<body>
<form action="up.asp" method="post" enctype="multipart/form-data" >
<input type="file" size="12" name="imgurl" id="imgurl">
<input type="submit" value="upload">
</form>
</body>
</html>
<%
if (request.totalbytes)>0 then '如果有数据提交,则进行下面的处理
%>
<!--#include file="conn.asp"-->
<%
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)
sql="select * from pic"
getdata(sql)
rs.addnew
rs("img").AppendChunk myData
rs.update
rsclose()
response.clear
response.write "success!"
end if
%>
-------------show.asp--------------
<!--#include file="conn.asp"-->
<%
id=trim(request("id"))
sql="select * from pic where id="&id
getdata(sql)
Response.ContentType="image/*"
Response.BinaryWrite rs("img").getChunk(8000000)
rsclose()
%>
图片上传后就可以通过show.asp?id=*来读取了,你也可以直接将图片用<img>标签插入其他页面中,如<img src="show.asp?id=1" />
2. VB+Access做数据库如何保存图片
access是微软发布的一款关系型数据库。access数据库保存图片的方法很多，可以通过vb，c++，php，asp等开发语言实现；也可以直接向access数据库插入图片进行保存。下面演示直接插入步骤：
1、打开access数据库，新建一张数据表（存储图片的字段类型选择：OLE 对象）；
6、这样，一张图片就保存到access数据库里去了。
3. 怎样在ACCESS数据库里存入图片
使用Stream对象，可以实现对数据库的图像存取。
数据库中存放图像的字段是二进制类型（Access为OLE类型）。
比如，如果用“CommonDialog”控件来选择你硬盘上的图像文件；
用“Picture”控件来显示图像，那么下面的代码供参考：
（已连接数据库，打开了相应的记录集rs）
Dim StmPic As ADODB.Stream
Dim StrPicTemp As String
......
'保存你所选择的图像
Set StmPic = New ADODB.Stream
StmPic.Type = adTypeBinary '指定流是二进制类型
StmPic.Open '将数据获取到Stream对象中
StmPic.LoadFromFile (CommonDialog1.FileName) '将选择的图像加载到打开的StmPic中
rs.AddNew
rs.Fields(1).Value = StmPic.Read '从StmPic对象中读取数据
rs.Update
StmPic.Close
......
'读取显示数据库中的图像
Set StmPic = New ADODB.Stream
StrPicTemp = "c:\temp.tmp" '临时文件,用来保存读出的图片
With StmPic
.Type = adTypeBinary
.Open
.Write rs.Fields(1) '写入数据库中的数据至Stream中
.SaveToFile StrPicTemp, adSaveCreateOverWrite '将Stream中数据写入临时文件中
.Close
End With
Picture1.Picture = LoadPicture(StrPicTemp) '用Picture控件显示图像
......
4. 在access数据库中添加图片怎样添加如果采用路径的方式，应该怎样写路径，还有是什么数据类型
其实呢。在ACCESS里添加图片有两种方法，一种是采用二进制 好像是叫二进制流的存储吧。。不知道什么名字了。另一种是在字段里存放HTML标签。<img src="abc.jpg"/>网页显示出来是通过标签下的src去找地址的。。
5. 怎样数据库access保存jpg图片
1、首先，打开Access，选择文件菜单中的“新建“，选择一种数据库类型，这里选择的是本地数据库，即”空白桌面数据库“，如下图所示。
6. 在access数据库中如何添加图片
1、可以建立一个字段 将其数据类型改为OLE对象 然后直接粘贴图片
2、或用将图片转换为二进制 存入数据库中
3、用普通字段放一个路径 指向图片 直接让显示
第三种方法最好了 图片直接存入数据库，数据库会很大的。。。
7. 如何在ACCESS数据库里存放照片和音频视频
创建数据库连接。
使用OleDbConnection。
保存图片到Access数据库。
将图片转成二进制流存到数据库中，使用OleDbCommand命令。
保存成功后，数据库中图像字段显示为“长二进制数据”。
读取数据库中的图片。
将读出的图片数据转成字节数组，而后转成图片显示。
8. ACCESS数据库中如何插入图片
数据库里面一般保存的是图片的路径.而实际的图片是上传到服务器上去面去的.
9. 请问access数据库通过图片位置查找图片，应该怎么操作呢
可以，存放图片是很费控件的，一般是存放路径的。
Sub getPhoto()' 显示一个 OFFICE 打开文件对话框，为当前的员工记录选择一个文件名
' 如果用户选择了一个文件
' 则将它显示到图片控件中去
On Error GoTo Err_e
Dim fileName As String
Dim result As Integer
With Application.FileDialog(msoFileDialogFilePicker)
.Title = "请选择员工照片"
.Filters.Add "所有文件.", "*.*" '对像显示 “文件选择器”对话框，并在消息框中显示每个选定的文件
.Filters.Add "JPG文件.", "*.jpg"
.Filters.Add "BMP文件.", "*.bmp"
.FilterIndex = 1 '返回或设置一个 long 类型，表示对话框的默认文件筛选
.AllowMultiSelect = False
.InitialFileName = CurrentProject.path '设置或返回一个 string 类型 ，表示对话框中初始显示的路径和/或文件名
result = .Show '显示文件对话框并返回一个 long 类型，表明用户按下的操作按钮（-1）还是取消按钮（0）。
If (result <> 0) Then
fileName = Trim(.SelectedItems.Item(1))
'Item返回一个string类型，对应用户从问价对话框选择的文件路径，该对话框由FileDialong对象的Show方法显示。
Me.照片.Visible = True
Me.照片.SetFocus
Me.照片.Text = fileName
Me.员工信息ID.SetFocus
Me.照片.Visible = False
Me.LblError.Visible = False
End If
End With
Exit_e:
Exit Sub
Err_e:
MsgBox Err.Description
Resume Exit_e
End Sub
10. access数据库中存储图片
假设数据库db1中有表tb1，表有ID，path两个字段，path用来存放图片路径
可用ID检索。
在工程中添加引用MicrosoftActiveXDataObject2.5才可以用ADODB
DimrsAsNewADODB.Recordset
DimcnAsNewADODB.Connection
DimcmdAsNewADODB.Command
'
PrivateSubForm_Load()
cn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=E:xylkylinDocotherdb1.mdb;PersistSecurityInfo=False"
cn.CursorLocation=adUseClient
cn.Mode=adModeReadWrite
cn.Open
cmd.ActiveConnection=cn
cmd.CommandType=adCmdText
DimiAsInteger
Fori=0To3
Me.Option1(i).Caption="Picture"&i+1
Nexti
EndSub
PrivateSubOption1_Click(IndexAsInteger)
cmd.CommandText="selectpathfromtb1whereid="&Index+1
Setrs=cmd.Execute
Image1.Picture=LoadPicture(rs.Fields("path"))
Text1.Text=rs.Fields("path")
EndSub
不明白了问我