Office中国论坛/Access中国论坛

标题: 怎么找出没有相片的记录？ [打印本页]

作者: yanlj518 时间: 2008-2-20 21:45
标题: 怎么找出没有相片的记录？
示例是根据罗斯文示例数据库做的，照片在数据库的当前目录下，现在的目的是要查出表雇员照片字段中还没有相片的员工姓名。表中没有相片的显然是张三，李四，王五三人，但假如有上千条记录，怎么去找那些没有相片的人呢？

作者: huangqinyong 时间: 2008-2-20 22:13
在查询中用is null

作者: yanlj518 时间: 2008-2-21 10:06
huangqinyong误会我的意思了。表雇员中的照片字段名和当前目录下的照片名称是一样的，默认情况下照片字段名是不会为空的，只是当前目录下没有相对应的照片，现在的目的是要查出这些照片字段中连接为空的相片，也就查出那些人还没有相片，而不是查找雇员表中相片字段为空的记录。不知道我说清楚了没有，谢谢！

作者: yanlj518 时间: 2008-2-21 11:04
好难哦，没有人知道吗？

作者: yanlj518 时间: 2008-2-21 15:33
希望高手解答，热切期待中!

作者: iamee 时间: 2008-2-21 19:54
设计表时，没有“照片”的人使用默认值不就得了

[ 本帖最后由 iamee 于 2008-2-21 19:55 编辑 ]

作者: yanlj518 时间: 2008-2-21 21:41
在设计阶段这样做当然可以，现在是已经复制进了上千张相片，表中的雇员字段名也默认就是相片名，那怎样查没有相片的人呢？

作者: iamee 时间: 2008-2-22 08:34
找个小工具，或者搜索一下“遍历”，写个函数

作者: ly_19811105 时间: 2008-2-22 08:44
飘过,学习中,现在想学了

作者: yanlj518 时间: 2008-2-22 11:20
谢谢iamee,什么是遍历啊?能根据我的附件帮我写一个吗?不胜感激!

作者: iamee 时间: 2008-2-22 17:11
用dir函数写的遍历程序，你参考一下
把路径修改成你的就可以了，我用的是*.*，你也要改成你的图片格式

作者: yanlj518 时间: 2008-2-22 20:15
好像不行啊，能帮我将附件做一下吗？查询出没有相片的三个人，谢谢！

作者: iamee 时间: 2008-2-22 23:48
修改了一下，遍历“C:\Documents and Settings\Administrator\桌面\test\”文件夹下所有*.bmp的图片。
你要修改成对应路径.
当员工照片不在文件夹中是，会把照片修改成“NoImage”，剩下的就看你的了

[ 本帖最后由 iamee 于 2008-2-23 00:04 编辑 ]

作者: liangzhenye 时间: 2008-2-23 09:51
Private Sub Command0_Click()
Dim photopath As String
photopath = "D:\Documents and Settings\Administrator\桌面\test\test\" ' 相关图片的位置
Dim db As Database
Dim temp As Recordset
Set db = CurrentDb
Set temp = db.OpenRecordset("select * from [雇员]", 2)
While Not temp.EOF
      If Dir(photopath & temp![照片]) <> "" Then    'dir 是一个函数
         MsgBox "有图片"
      Else
         MsgBox "no photo"
      End If
      temp.MoveNext
Wend
temp.Close
End Sub

作者: yanlj518 时间: 2008-2-23 11:46
非常感谢，问题解决了！代码学习中！

作者: 小作坊 时间: 2009-2-26 11:55
想学

作者: chaojianan 时间: 2009-2-27 17:02
谢谢14楼分享。

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