如何添加图片到图片框显示，并添加到数据库，在线等，急急急......
如何添加图片到图片框显示，并添加到数据库，在线等，急急急......
[解决办法]
'保存文件到数据库中的函数
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
你自己改改！
