首頁(yè) 猿問(wèn) 如何向VB數(shù)據(jù)庫(kù)內(nèi)添加照片，數(shù)據(jù)庫(kù)...

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

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

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

查看完整描述

2 回答

桃花長(zhǎng)相依

TA貢獻(xiàn)1860條經(jīng)驗(yàn) 獲得超8個(gè)贊

1、建立一個(gè)ACCESS數(shù)據(jù)庫(kù)。然后創(chuàng)建新表，比如你想把圖片放在名為 “圖片”字段中，那么設(shè)置字段數(shù)據(jù)類型為“OLE 對(duì)象”。
2.VB代碼內(nèi)容
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