谢谢!!!先谢了!!首先我用ACCESS建了个数据库叫shiyan,里面有个表叫dongman,只有两列,形式如下:
姓名 图片地址
杀生丸 d:\a\1.jpg
阿斯兰 d:\a\2.jpg
玲 d:\a\3.jpg
史黛拉 d:\a\4.jpg
奈落 d:\a\5.jpg然后我在FORM上加了一个ADODC1控件,和一个DATALIST1控件,我把他们连在数据库shiyan上,
设置显示姓名列,于是现在DATALIST1上显示的是那五个姓名。
5个姓名竖着排列(旁人:废话!),都可以点击(还是废话)我现在在FORM上加一个PICTURE1控件,我现在就是希望PICTURE1能显示名字对应的图片,
比如我点击“阿斯兰”,PICTURE1就会显示“2.jpg”,怎么能做到啊??我看我写的还算清楚把,谢谢各位老大拉!!!!!
姓名 图片地址
杀生丸 d:\a\1.jpg
阿斯兰 d:\a\2.jpg
玲 d:\a\3.jpg
史黛拉 d:\a\4.jpg
奈落 d:\a\5.jpg然后我在FORM上加了一个ADODC1控件,和一个DATALIST1控件,我把他们连在数据库shiyan上,
设置显示姓名列,于是现在DATALIST1上显示的是那五个姓名。
5个姓名竖着排列(旁人:废话!),都可以点击(还是废话)我现在在FORM上加一个PICTURE1控件,我现在就是希望PICTURE1能显示名字对应的图片,
比如我点击“阿斯兰”,PICTURE1就会显示“2.jpg”,怎么能做到啊??我看我写的还算清楚把,谢谢各位老大拉!!!!!
DataList1.ListField = "姓名"
DataList1.BoundColumn = "图片地址"
Picture1.Picture = LoadPicture(DataList1.BoundText)End SubPrivate Sub Form_Load()
pathtmp = App.Path
If Right(pathtmp, 1) <> "\" Then
pathtmp = pathtmp + "\"
End If
mdb_path = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & pathtmp & "shiyan.mdb;Persist Security Info = True;Jet OLEDB:Database Password="
Adodc1.ConnectionString = mdb_path Adodc1.CommandType = adCmdText
sql$ = "select 姓名,图片地址 from dongman "
Adodc1.RecordSource = sql$
Adodc1.Refresh