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
不明白了問我