关于数据库存储和提取图片的问题

[lovessll]

我在做数据库存储和提取图片时用的是存路径的方法。
我的方法是先加载上要显示的图片，然后把图片的路径存下来。代码如下：
存储的代码：
Dim picfile As String
picfile = App.Path & "\PIC\" & LvJMTxt(0).Text & ".bmp"
SavePicture Picture1.Picture, picfile
rst.Fields("photo") = picfile
rst.Update

提取显示的代码：
Picture1.Picture = LoadPicture(rs.Fields("photo"))

但现在面临一个问题。就是我的数据库里有一些初始的数据。这些图片该怎么存呢？如果存绝对路径，比如我在数据库的字段“photo”中把初始的图形路径值为：“C:\Pic\1.bmp”程序可以运行。但如果打包换了机子，这个路径就会有问题。如果我用相对路径，把初始的图形路径存为：“App.Path & "\PIC\1.bmp"”。程序就会报错说找不到这个路径，我调试了一下，发现这样出来的效果会成为：Picture1.Picture = LoadPicture("App.Path & "\PIC\1.bmp"")，也就是说格式里多了两个引号！
我想把初始的图片路径先存在数据库中，用相对路径的方法存，这样就不会出现机子不同路径不同的问题~！这个问题该如何解决啊！恳请大家帮帮忙！

[lovessll]

呵呵。明白啦！谢谢啦!

[xrongzhen]

只存"\PIC\1.bmp"，读的时候路径再加上APP.Path

[贝隆]

存在一个临时文件就是了，重复就覆盖它

[vansoft]

[Quote=引用 2 楼 veron_04 的回复:]
存在一个临时文件就是了，重复就覆盖它
[/Quote]
楼主存的是一个文件路径，不是文件。

存文件名就行了。取出来时再拼就行了。

[vansoft]

[Quote=引用 2 楼 veron_04 的回复:]
存在一个临时文件就是了，重复就覆盖它
[/Quote]
楼主存的是一个文件路径，不是文件。

存文件名就行了。取出来时再拼就行了。

[vansoft]

[Quote=引用 2 楼 veron_04 的回复:]
存在一个临时文件就是了，重复就覆盖它
[/Quote]
楼主存的是一个文件路径，不是文件。

存文件名就行了。取出来时再拼就行了。