数据库里面存图片

[geonew]

最近做JSP，需要在数据库里面插入图片，再读出来，目前遇到些问题，求教！！！

1.放图片的时候，放什么数据类型，varchar?
2.貌似图片存入数据库是以二进制数据流存入，读图片的时候再以数据流读出，求具体代码。

[饮水需思源]

数据类型应该选择image

[让你望见影子的墙]

一般是在数据库中保存该图片的路径，访问的时候获取到路径以后再进行读取

[Flyingdragon168]

数据库类型是Image类型，给你贴VB代码吧。
'保存图片到数据库中(利用数据流)
Public Sub SaveImageToDB(ByRef fld As ADODB.Field, file As String)
Dim c As New ADODB.Stream

On Error GoTo ErrSave
'如果文件不存在，则不用保存
If FileExists(file) = False Then Exit Sub
'利用数据流保存到数据库中
c.Mode = adModeReadWrite
c.Type = adTypeBinary
c.Open
c.LoadFromFile file
fld.Value = c.Read()
c.Close
Exit Sub
ErrSave:
If Err.Number <> 0 Then
MsgBox Err.Number & ";" & Err.Description, vbInformation + vbOKOnly, "存储图片"
End If
End Sub

Public Sub LoadImageFromDB(ByVal fld As ADODB.Field, objPic As Object)
Dim c As New ADODB.Stream
Dim strFile As String

On Error GoTo errLoad
'如果图片内容为空
If IsNull(fld.Value) Then
objPic.Picture = LoadPicture("")
Exit Sub
End If
'开始从数据库中读取图片
c.Mode = adModeReadWrite
c.Type = adTypeBinary
c.Open
c.Write (fld.Value)
'生成临时文件路径
strFile = g_WinDir & "\Temp"
Call fCreateDir(strFile)
strFile = strFile & "\~" & GetString(False) & ".tmp"
If FileExists(strFile) Then Kill (strFile)
c.SaveToFile strFile, adSaveCreateOverWrite
objPic.Picture = LoadPicture(strFile)
'删除临时文件
Kill strFile
Exit Sub
errLoad:
If Err.Number = 481 Then
Set objPic.Picture = LoadPicture("")
Else
If Err.Number <> 0 Then
MsgBox Err.Number & ";" & Err.Description, vbInformation + vbOKOnly, "加载图片"
End If
End If
End Sub

[SQL77]

这个存储图片的问题,还是存储路径,要不然占用太大了

[netcup]

如果用SQLSERVER2008的话，FILESTREAM功能是专门在数据库里存取流媒体格式的，包括图片在内，比较方便。

[--小F--]

保存文件路径是一种比较好的方法

[wujinjian2008n]

保存图片路径

[geonew]

[Quote=引用 3 楼 flyingdragon168 的回复:]

[/Quote]

辛苦了，先结贴吧，明天去学校实验一下