[问题求助，急！]如何获取某一目录下的bmp文件，然后保存进Access2000的数据库中

caccaccac

请教大家一个问题：


我想在Access2000中使用VBA实现以下功能：


获取某一目录下的bmp文件，然后保存进Access2000的数据库中。


表结构如下：


Person_ID              数值型


Image                  OLE对象请问该如何实现。

fan0217

如何获取某一目录下的文件:strA=GetFileList( "C:\*.bmp"),

Function GetFileList(strFilePathName As String) As String
On Error GoTo Err_GetFileList
Dim strDir As String
    strDir = Dir(strFilePathName)
    Do
        GetFileList = GetFileList & strDir & ";"
        strDir = Dir
        If strDir = "" Then Exit Do
    Loop
   
Exit_GetFileList:
    Exit Function
   
Err_GetFileList:
    MsgBox Err.Description
    Resume Exit_GetFileList

End Function

[此贴子已经被作者于2006-4-26 20:35:54编辑过]

yuanrongfa

顶，一直在找怎么样才可以显示指定目录下的文件名字，而且找了很久都没找到，今天就突然看到了，呵呵

沱江水影

可以看到版主制作的效果，却看不到源文件啊，版主可以提供出来学习一下吗？

沱江水影

在这个事例中存在表吗？文件夹中的图片命名是否可以自动输入表中？

古家林

保存图片这个不适access的强项吧，建议还是做链接比较好。

fengtao666

保存图片我觉得应该用SQL SERVER做后台应该比较好吧.