UC知道急：将图片路径存入数据库问题 vb
来源：百度知道 编辑：UC知道 时间：2024/05/20 11:28:32
数据库是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控件中，请高手指点！
另在保存的一系列图片中如何找出最新保存的图片？谢谢
那就改为字符串型，请问保存路径的代码怎么写，大侠给一个例子吧！谢谢
保存图片到SQL数据库：
str = "select * from 信息 where 编号 = " & text1.Text
Set Rs = New ADODB.Recordset
Rs.Open str, Conn, adOpenStatic, adLockOptimistic, -1
If Rs.BOF = False Then
Rs.Fields(0) = text1.Text ' 存储图片ID
Rs.Fields(1).Value = txtPath.Text ' 存储图片路径
Rs.Update
Else
Rs.AddNew
Rs.Fields(0) = text1.Text ' 存储图片ID
Rs.Fields(1).Value = txtPath.Text ' 存储图片路径
Rs.Update
End If
Rs.Close
晕
既然都是保存路径了你还有IMAG类型干啥呢？
直接就用字符类型保存路径
除非你是要直接以2进制方式保存图片
但是那样很费资源 建议还是用路径方式保存