跪求如何把图片插入数据库后在窗体中不同的人显示不同的图片

slightleaf

我将图片放入数据库后,发现如果有很多张图片,怎么让这些图片和对应的人联系起来显示,而不用一张张的插入,比如张三和李四,他们的照片如何在窗体中做到自动和他们本人连接而不用手动插入.

tz-chf

northwind

fengrh

Private Sub Form_Current()

Dim pathname as string
    pathname = CurrentProject.Path

    If Me![姓名id] & ".jpg "= Me![pictureid] Then
    Me!Image.picture = pathname & Me![pictureid]

    Else
    Me!Image.picture = ""
    End If

End Sub

說明:

1. 資料表內需有 姓名id及pictureid欄位

如:姓名id   姓名     pictureid

     1      王大明       1.jpg

     2      張曉天       2.jpg

2. 將照片跟資料庫放在同一個目錄下

slightleaf

谢谢高手指点感激啊

75501241

[em01]