在vb客户端如何向sql数据库中插入图像？

Question

看看这个吧，
http://www.csdn.net/expert/topic/711/711036.xml?temp=.771084

Answer 1

Dim Filename As String
Dim Lfilesize
Filename = CDialog.Filename
Open Filename For Binary As #1
    Lfilesize = LOF(1) - 1
ReDim bdata(Lfilesize) As Byte
Get #1, , bdata
Close #1
strSql = "select * from t_libinfo"
Rs.Open strSql, strCn, 1, 3
Rs.Fields("limage").AppendChunk bdata
Rs.Update

Answer 2

例4:读取与存储图片到sqlserver数据的image类型字段 
'把照片从数据库中读出 
Public Sub get_tmp_pic(rs As ADODB.Recordset, Picture) 
Dim img() As Byte 
img = rs("图片").GetChunk(rs("图片").ActualSize) 
If Dir(App.Path & "\pic.tmp") <> "" Then 
Kill (App.Path & "\pic.tmp") 
End If 
Open App.Path & "/pic.tmp" For Binary As #1 
Put 1, 1, img() 
Close #1 
Picture.Picture = LoadPicture(App.Path & "/pic.tmp") 
End Sub 
'把图片文件放进数据库中: 
Public Sub load_pic(rs As ADODB.Recordset, Form As Object) 
Dim bit() As Byte 
Dim fn As String 
Form.Dialog1.Filter = "BMP文件(*.BMP)|*.BMP|PCX文件(*.PCX)|*.PCX|JPG文件(*.JPG)|*.JPG|" 
Form.Dialog1.ShowOpen 
If Len(Form.Dialog1.FileName) = 0 Then 
Exit Sub 
End If 
fn = Form.Dialog1.FileName 
Open fn For Binary As #1 
ReDim bit(LOF(1)) As Byte 
Get 1, 1, bit 
Close 1 
rs("图片").AppendChunk bit 
rs.Update 
End Sub