首頁猿問如何向VB數(shù)據(jù)庫內添加照片，數(shù)據(jù)庫...

如何向VB數(shù)據(jù)庫內添加照片，數(shù)據(jù)庫為access?

元芳怎么了 2018-07-14 10:09:20

本來用VB編好了數(shù)據(jù)庫，又想著在借用窗體內添加一張照片，作為員工的借用依據(jù)，試著在網上查了些資料，無奈自己水平都換給老師了，現(xiàn)在圈出的地方為本人額外添加的內容，現(xiàn)在運行后老是報錯，二進制的圖片形式好像已寫入數(shù)據(jù)庫，但是跟我原來的數(shù)據(jù)不在一行，求大神給看看，非常感謝。

查看完整描述

2 回答

桃花長相依

TA貢獻1860條經驗獲得超8個贊

1、建立一個ACCESS數(shù)據(jù)庫。然后創(chuàng)建新表，比如你想把圖片放在名為 “圖片”字段中，那么設置字段數(shù)據(jù)類型為“OLE 對象”。
2.VB代碼內容
Set Cn = New ADODB.Connection
Cn.ConnectionString = ";DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & App.Path & "\aaa.MDB"
Cn.Open
Set Rs = New ADODB.Recordset
Rs.Open "select * from stock", Cn, adOpenStatic, 3
Set mst = New ADODB.Stream
mst.Type = adTypeBinary
mst.Open
mst.LoadFromFile mystr
Rs.AddNew
Rs.Fields("圖片").Value = mst.Read
Rs.Update
Rs.Close
Cn.Close