如何添加图片到图片框显示，并添加到数据库，在线等，急急急......

Question

如何添加图片到图片框显示，并添加到数据库，在线等，急急急......

Answer 1

'保存文件到数据库中的函数
Sub s_SaveFile()
  If rs_card.State = adStateOpen Then
     rs_card.Close
  End If
  rs_card.Open "select * from card", conn, adOpenKeyset, adLockOptimistic
  Dim iStm As ADODB.Stream
  '读取文件到内容
  Set iStm = New ADODB.Stream
  With iStm
  .Type = adTypeBinary '二进制模式
  .Open
  .LoadFromFile CStr(App.Path) & "\picture\footage\test2.bmp"
 ' .LoadFromFile CStr(App.Path) & "\picture\footage\" & Trim(CStr(rs.Fields("xh").Value)) & "_" & Trim(CStr(rs.Fields("xm").Value)) & ".bmp"
  End With
   
    Dim iStmtm As ADODB.Stream
  '读取文件到内容
  Set iStmtm = New ADODB.Stream
  With iStmtm
  .Type = adTypeBinary '二进制模式
  .Open
  .LoadFromFile CStr(App.Path) & "\picture\footage\test3.bmp"
 ' .LoadFromFile CStr(App.Path) & "\picture\footage\" & Trim(CStr(rs.Fields("xh").Value)) & "_" & Trim(CStr(rs.Fields("xm").Value)) & ".bmp"
  End With
  With rs_card
    .AddNew '新增一条记录
    .Fields("xh") = Trim(Text_xh.Text)
    .Fields("xm") = Trim(Text_name.Text)
    .Fields("yx") = Trim(Text_yx.Text)
    .Fields("ZYMC") = Trim(Text_zy.Text)
    .Fields("BHMC") = Trim(Text_bj.Text)
    .Fields("zyxh") = Trim(Left(Text_xh.Text, 7))
    .Fields("photo") = iStm.Read
    .Fields("TM") = iStmtm.Read
    .Update
  End With
  '完成后关闭对象
  iStm.Close
  iStmtm.Close
  rs_card.Close
End Sub
你自己改改！