Question

access数据库里面建了一个照片字段，类型是文本，用于存取图片的路径，如何把这个路径改成相对路径？

用VB编了一个信息管理，有添加图片功能，但是添加的图片是绝对路径的，如何让添加进access数据库图片的路径是相对的？

Answer 1

将当前程序所在路径替换为点就可以了.如
tPath = Replace(tPath, App.Path, ".", 1, 1, 1)
假设程序所在目录为 C:\Programs\ABC
则路径 C:\Programs\ABC\Images\001.jpg 会被处理为 .\Images\001.jpg
在需要时,再将首个点替换为 App.Path 即可.

追问

存入access数据库的文件路径怎么写？

追答

将已经转换为相对路径的字符串存入数据库就可以了.
比如上面代码中的 tPath 变量就是转换为相对路径后的路径字符串, 存它的值就行了.

追问

我的在插入图片代码是这样的
Private Sub Command10_Click()
CommonDialog1.Action = 1
Label12.Caption = CommonDialog1.FileName
Image1.Picture = LoadPicture(Label12.Caption)
End Sub
这样给access数据库存的是图片的绝对路径，然后用了一个label来保存路径，使用image控件loadlabel的captain来显示的，那么改过之后该怎么写？

追答

那你只需要在设置和读取label.caption时进行一下转换就行了.
比如将路径赋值给label前进行转换
Label12.caption = Replace(tPath, App.Path, ".", 1, 1, 1)
在加载图片时再进行一次转换.
Image1.Picture = LoadPicture(IIf(Left(Label12.Caption,1)=".", Replace(Label12.Caption, ".", App.Path, 1, 1, 1), Label12.Caption))