如何在ACCESS中加入图片？

2025-02-23 17:08:13

推荐回答（5个）

回答1：

我不清楚你的意思是不是将图片存放在ACCESS数据库中？
如果是：
1、首先在数据表中建立一个字段，这个字段的数据格式是：“OLE 对象”，也就是说必须就图片的格式转换成二进制格式进行存储。
2、第二步是图片的选择，采用下面的方法：

在硬盘中选择图片，建议图片的格式最好是.gif或.jpg格式的。
3、

<%
（存储图片的序号的变量）=request("ID")
response.buffer=true
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 rs=Server.CreateObject("ADODB.Recordset")
rs.Open "Select * From （存储图片的数据表） WHERE ID="& （存储图片的序号的变量） &"",conn,3,3
rs("（存储图片的字段）").appendchunk mydata
rs("（判别图片是否存储的字段－字段格式：是/否")=True
rs.update
rs.close
set rs=nothing
%>
好的，现在你已经将图片存储到ACCESS数据库中了。
如果要读出，必须使用度二进制数据的专用代码。

回答2：

ole 字段

ado 的 appendchunk 和getchunk操作，代码如下：

该范例使用 AppendChunk 和 GetChunk 方法用其他记录中的数据填写图像字段。

Public Sub AppendChunkX()

Dim cnn1 As ADODB.Connection
Dim rstPubInfo As ADODB.Recordset
Dim strCnn As String
Dim strPubID As String
Dim strPRInfo As String
Dim lngOffset As Long
Dim lngLogoSize As Long
Dim varLogo As Variant
Dim varChunk As Variant

Const conChunkSize = 100

' 打开连接。
Set cnn1 = New ADODB.Connection
strCnn = "Provider=sqloledb;" & _
"Data Source=srv;Initial Catalog=pubs;User Id=sa;Password=; "
cnn1.Open strCnn

' 打开 pub_info 表。
Set rstPubInfo = New ADODB.Recordset
rstPubInfo.CursorType = adOpenKeyset
rstPubInfo.LockType = adLockOptimistic
rstPubInfo.Open "pub_info", cnn1, , , adCmdTable

' 提示复制徽标。
strMsg = "Available logos are : " & vbCr & vbCr
Do While Not rstPubInfo.EOF
strMsg = strMsg & rstPubInfo!pub_id & vbCr & _
Left(rstPubInfo!pr_info, InStr(rstPubInfo!pr_info, ",") - 1) & _
vbCr & vbCr
rstPubInfo.MoveNext
Loop
strMsg = strMsg & "Enter the ID of a logo to copy:"
strPubID = InputBox(strMsg)

' 将徽标大块复制到变量中。
rstPubInfo.Filter = "pub_id = '" & strPubID & "'"
lngLogoSize = rstPubInfo!logo.ActualSize
Do While lngOffset < lngLogoSize
varChunk = rstPubInfo!logo.GetChunk(conChunkSize)
varLogo = varLogo & varChunk
lngOffset = lngOffset + conChunkSize
Loop

' 从用户处得到数据。
strPubID = Trim(InputBox("Enter a new pub ID:"))
strPRInfo = Trim(InputBox("Enter descriptive text:"))

' 添加新记录，大块复制徽标。
rstPubInfo.AddNew
rstPubInfo!pub_id = strPubID
rstPubInfo!pr_info = strPRInfo

lngOffset = 0 ' 重置位移。
Do While lngOffset < lngLogoSize
varChunk = LeftB(RightB(varLogo, lngLogoSize - lngOffset), _
conChunkSize)
rstPubInfo!logo.AppendChunk varChunk
lngOffset = lngOffset + conChunkSize
Loop
rstPubInfo.Update

' 显示新添加的数据。
MsgBox "New record: " & rstPubInfo!pub_id & vbCr & _
"Description: " & rstPubInfo!pr_info & vbCr & _
"Logo size: " & rstPubInfo!logo.ActualSize

' 删除新记录，因为这只是演示。
rstPubInfo.Requery
cnn1.Execute "DELETE FROM pub_info " & _
"WHERE pub_id = '" & strPubID & "'"

rstPubInfo.Close
cnn1.Close

End Sub

回答3：

想实现往Access中写入图片。开始时这样写：
var ms:tmemorystream;
jp:tbitmap;
begin
ms:=tmemorystream.Create;
jp:=tbitmap.Create;
image1.Picture.Bitmap.SaveToStream(ms);
jp.LoadFromStream(ms);
with adoquery1 do
begin
close;
sql.Clear;
sql.Add('insert into tab (pic) values(:ppp)');
Parameters.ParamByName('ppp').LoadFromStream(ms,ftVarBytes);
ExecSQL;
end;
end;

回答4：

设:数据类型为
OLE对象
可插入图片
然后，要插入图片的框里，右键单击，选“插入对象...”，选“由文件创建”
浏览...
选“连接”,
确定。
注:图片格式为:BMP

回答5：

wwwww

最新问答

西门子plc能控制三菱伺服电机吗？有什么特殊要求吗

2020年集成灶十大品牌官方排名是什么？

求个美国爱情电影的名字，男女双方有心灵感应，可以互相看到对方的眼前的景象

如果一个男生被别人误会他和一个女生是男女朋友，其实他们不是，男生也不解释说不是，男生这样是喜欢女生

咱县联通宽带客服电话是多少

英语翻译

动物亚硝酸盐中毒时有何临床症状特征？应如何解救

刀郎为什么消失了

雍正皇上到底有多少个老婆，多少位妻和妾

谁知道这鞋子的牌子？我以前是在四川西部女鞋之都买的。