我在VB里，现在数据库里要把某种商品的图片信息存放进去，如何做？

Question

我有个表专门存放商品的详细信息，其中包括图片信息，图片显示用picture控件，显示了之后，把这个图片信息如何保存到数据库里，还是把图片的路径都改一下，每种商品对应不同的图片，存放一个图片的目录就可以。请帮助我一下。

Answer 1

表中建立一个二进制字段，将图片按二进制方式写入
表.AppendChunk 二进制数组

Answer 2

直接存图片代码：
Private Sub Command1_Click()
  On Error GoTo err
  Dim StmPic As ADODB.Stream
    '保存你所选择的图像
    Set StmPic = New ADODB.Stream
    StmPic.Type = adTypeBinary    '指定流是二进制类型
    CommonDialog1.ShowOpen
    Picture1.Picture = LoadPicture(CommonDialog1.FileName)
    StmPic.Open                     '将数据获取到Stream对象中
    StmPic.LoadFromFile (CommonDialog1.FileName) '将选择的图像加载到打开的StmPic中
    rs.AddNew
    rs.Fields("pic").Value = StmPic.Read   '从StmPic对象中读取数据
    rs.Update
    StmPic.Close
  Exit Sub
err:
  MsgBox err.Description
End SubPrivate Sub Command2_Click()
     Dim StmPic As ADODB.Stream
     On Error GoTo err
        '读取显示数据库中的图像
        StrPicTemp="c:\temp.jpeg"
        Set StmPic = New ADODB.Stream
        With StmPic
            .Type = adTypeBinary
            .Open
            .Write rs.Fields("pic")       '写入数据库中的数据至Stream中
            .SaveToFile StrPicTemp, adSaveCreateOverWrite  '将Stream中数据写入临时文件中
            .Close
        End With
        Picture2.Picture = LoadPicture(StrPicTemp)  '用Picture控件显示图像
    Exit Sub
err:
     MsgBox err.Description
End Sub