UC知道急：将图片路径存入数据库问题，vb
来源：百度知道 编辑：UC知道 时间：2024/05/16 18:16:44
数据库是sql2000数据库，表名：信息，段：编号，图片路径，图片路径的类型是image
我现在的图片都是先以系统时间保存到文件夹的，保存图片的代码：
dirname = App.Path & "\" & format$(date, "yyyymm")
If Dir(dirname, vbDirectory) = "" Then MkDir dirname
SavePicture Picture1.Image, dirname & "\" & format(Now, "yyyy_mmdd_hhmm_ss") & ".jpg"
比如图片名：2009_0724_0954_759，文件夹名：200907
我现在想保存图片后将图片的路径存入数据，并能读取图片显示在picture控件中，请高手指点！
另在保存的一系列图片中如何找出最新保存的图片？谢谢
我现在的图片都是先以系统时间保存到文件夹的，保存图片的代码：
dirname = App.Path & "\" & format$(date, "yyyymm")
If Dir(dirname, vbDirectory) = "" Then MkDir dirname
SavePicture Picture1.Image, dirname & "\" & format(Now, "yyyy_mmdd_hhmm_ss") & ".jpg"
比如图片名：2009_0724_0954_759，文件夹名：200907
我现在想保存图片后将图片的路径存入数据，并能读取图片显示在picture控件中，请高手指点！
另在保存的一系列图片中如何找出最新保存的图片？谢谢
pa=dirname & "\" & format(Now, "yyyy_mmdd_hhmm_ss") & ".jpg"
SavePicture Picture1.Image, pa
rs.open "select * from 信息 order by 编号" ,cn,3, 3
rs.movenext
bianhao=rs.fields("编号")
rs.addnew
rs.fields("图片路径")=pa
rs.fields("编号")=bianhao+1
rs.update
rs.close