Access圖片管理系統(tǒng)

secowu

能否幫忙做一個(gè)access例子,用于批量導(dǎo)入與導(dǎo)出以O(shè)LE字段存儲(chǔ)在mdb里的二進(jìn)制圖片?
非常感謝:
1.圖片保存在當(dāng)前路徑的 photo下面,并以 readerid 作為圖片的名稱如　4528-6280.jpg
2.mdb里有個(gè)表名叫　full ,包含如下字段:
readerid (文本類型)
photo(OLE類型)
3.現(xiàn)在,能否做個(gè)程序,將photo目錄下的圖片全部導(dǎo)入　full 表中,readerid與圖片名稱對(duì)應(yīng).
　并支持批量導(dǎo)出圖片.
4.程序另外希望能夠支持從xls文檔中批量導(dǎo)入及批量導(dǎo)出至xls文檔,像附件中的格式.

secowu

感謝王版來(lái)幫忙

Grant

fans做過(guò),你可以參考一下他的例子

todaynew

不必將圖片地址放到表中管理，可用一組合框或列表框列出圖片文件夾中的地址列表即可。具體方法可參見(jiàn)《圖片調(diào)整》一文。

Private Sub Form_Load()
Dim myFSO As New FileSystemObject
Dim myFolder As Folder
Dim myfile As File
Dim str As String
If myFSO.FolderExists(CurrentProject.Path & "\相片") = True Then
    Set myFolder = myFSO.GetFolder(CurrentProject.Path & "\相片")
    For Each myfile In myFolder.Files
        str = str & myfile.Name & ";"
    Next myfile
Else
    MsgBox "文件夾不存在！"
End If
Me.相片名稱.RowSource = str
Me.圖片.Picture = ""
Me.圖片.SizeMode = acOLESizeZoom
End Sub

secowu

不必將圖片地址放到表中管理，可用一組合框或列表框列出圖片文件夾中的地址列表即可。具體方法可參見(jiàn)《圖片調(diào)整》一文。

Private Sub Form_Load()
Dim myFSO As New FileSystemObject
Dim myFolder As Folder
...
todaynew 發(fā)表于 2009-12-9 18:21

感謝回復(fù),主要是要解決將圖片放入表中管理的這種情況.
因?yàn)?這個(gè)表,實(shí)際上是從sql里導(dǎo)出來(lái)的

secowu

繼續(xù)回來(lái)頂一下...........

secowu

最好是可以直接連接某個(gè)SQL庫(kù).......
這樣就方便多了,通用的.
就像李尋歡的通用查詢那樣,

cjf78

一定很有意思

cjf78

一定很有意思

BILLFEI

有縮略圖的才好