sql server 2000: 如何把image保存到表中?

Question

如何把word/excel中的图形保存到sql server 2000 表中. 请高手指教.

Answer 1

dao的方法可以直接将图片存放在SQL中,如果你用ADO的话你就得以二进制方式读取,再存入.

Answer 2

图片存取参考:
--引用ADO 2.5(Microsoft ActiveX Data Objects 2.5 Library)
--在数据表中建立一个image类型的字段
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(0).Value = StmPic.Read   '从StmPic对象中读取数据
    rs.Update
    StmPic.Close
  Exit Sub
'err:
  'MsgBox err.Description
End Sub
Private Sub Command2_Click()
  Dim StmPic As ADODB.Stream
  Dim StrPicTemp As String
  'On Error GoTo err
    '读取显示数据库中的图像
    Set StmPic = New ADODB.Stream
    StrPicTemp = "c:\temp.tmp"    '临时文件,用来保存读出的图片
'    Set rs = conn.Execute("select * from Picture")
'    MsgBox rs.RecordCount
'    Do While rs.EOF = False And rs.BOF = False
'      If rs.Fields(1).Value = "00001" Then Exit Do
'      rs.MoveNext
'    Loop
    With StmPic
        .Type = adTypeBinary
        .Open
        .Write rs.Fields(0)       '写入数据库中的数据至Stream中
        .SaveToFile StrPicTemp, adSaveCreateOverWrite  '将Stream中数据写入临时文件中
        .Close
    End With
    Picture2.Picture = LoadPicture(StrPicTemp)  '用Picture控件显示图像
 Exit Sub
'err:
  'MsgBox err.DescriptionEnd Sub