Office中国论坛/Access中国论坛

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

作者: caccaccac 时间: 2006-4-26 18:59
标题: [问题求助，急！]如何获取某一目录下的bmp文件，然后保存进Access2000的数据库中
请教大家一个问题：

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

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

表结构如下：

Person_ID 数值型

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

作者: fan0217 时间: 2006-4-27 04:33
如何获取某一目录下的文件: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

[attach]17416[/attach]

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

作者: yuanrongfa 时间: 2006-9-4 23:10
顶，一直在找怎么样才可以显示指定目录下的文件名字，而且找了很久都没找到，今天就突然看到了，呵呵

作者: 沱江水影 时间: 2008-2-5 13:29
可以看到版主制作的效果，却看不到源文件啊，版主可以提供出来学习一下吗？

作者: 沱江水影 时间: 2008-2-5 13:35
在这个事例中存在表吗？文件夹中的图片命名是否可以自动输入表中？

作者: 古家林 时间: 2008-2-5 17:26
保存图片这个不适access的强项吧，建议还是做链接比较好。

作者: fengtao666 时间: 2008-2-13 15:56
保存图片我觉得应该用SQL SERVER做后台应该比较好吧.

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)