窗口中jpg图片显示不出来!!在线送分!!!

Question

各位高手:我用access来管理产品,但不知怎的,在一个产品信息窗口中,产品的图片总是显示不出来,(bmp的格式可以,但jpg格式的位图不行),要求产品的图片要同产品的编号相对应,不存在数据库中,(本人爱好access编程,但不是专业的),望支持!!!我想做到如下效果:1、图片不是存在数据库上，只是保存图片路径；2、图片与产品ID号相关联，窗口打开时,显示相对应产品图片，窗口关掉时，图片则不保存；3、我在窗品输入新产品时，能将图片路径保存在“产品表”中的“图片路径”字段中，下次打开些产品信息，图片自动显示。本人分不多了,但仍送出50分,急!!!谢谢指点！！！

Answer 1

你是用单用ACCESS么？还是VB+ACCESS？
如果是用ACCESS的窗体的话，显示图片用MicroSoft Forms 2.0 Image 控件，在工具箱“其他控件”里有。
示例代码如下：
Private Sub Command3_Click()
    Image1.Picture = LoadPicture("F:\Picture\2005_01_29\Img_0328.jpg")
End Sub

Answer 2

可以让图片的文件名与产品ID相关联,给图片文件命名成Img_产品ID.jpg的形式,用个变量来获取产品ID,在加载图片时就把变量代进去了.如:
Private Sub Command3_Click()
    dim int_ID as inter
    int_ID=产品ID
    Image1.Picture = LoadPicture(app.path & "\Picture\2005_01_29\Img_" & int_ID & ".jpg")
End Sub

Answer 3

向高手致敬!
我按楼上的方法将jpg位图读了出来,但有2个问题没解决:
1、因为我的产品有很多，为了方便管理分为了很多文件夹来放各自类型的产品，我怎样设置路径；有没有办法让它从数据库中读路径，比如字段“PictruePath"专门来保管相应的路径；2、“新增”或“修改”产品数据时，且一控件来将产品图片的路径保存到数据库字段“PictruePath"中，比如在图像控件上“双击”，则显示到我的电脑文件管理器中，在找到的产品图片并选择，则自动将其路径保存到数据库？以上功能的代码怎么写？跪求了！列位大师

Answer 4

高手不敢当,我是菜鸟呢.我没环境写代码,只能说些我的看法了.
1.按你的想法去命名就是了,从数据库里读出来了也好说啊,定义一个记录集rs,用SQL语句来获取符合你条件的记录集,再提取其中的字段不就可以把数据库里的路径赋给一个变量了吗?
  如:
   dim str_sql as string
   dim str_Path as string  '所需要获取的路径名
   str_sql="select PicturePath from 表名"
   rs.open str_sql,con,3,1  '是这样写吗?这样写是不规范的写法,没环境,记不住单词,不过也还可以运行的.
   str_Path=rs.field(0)2.其实这个也差不多,也就是反过来了吧.在双击事件里做个SQL动作就是了.什么insert,updata的,用execute()执行.

Answer 5

谢谢指点,但本人实在是菜,还是没弄懂,"rs.open str_sql,con,3,1 "是什么意思啊,能解释得详细点吗,我想知道它运作的原理.比如"con"代表什么?

Answer 6

con是连接对象建议楼主好好研究一下ADO模型。

Answer 7

Public Con As ADODB.Connection
Public Rs As ADODB.Recordset 或者 Set Rs=New ADODB.Recordset
Rs.Open strSQL, Con, adOpenDynamic, adLockOptimistic如果不明白就去看看MSDN吧

Answer 8

一般和数据库连接都是在Sub main()里OK的。