快捷导航

如何向VB数据库内添加照片,数据库为access?

本来用VB编好了数据库,又想着在借用窗体内添加一张照片,作为员工的借用依据,试着在网上查了些资料,无奈自己水平都换给老师了,现在圈出的地方为本人额外添加的内容,现在运行后老是报错,二进制的图片形式好像已写入数据库,但是跟我原来的数据不在一行,求大神给看看,非常感谢。

免责声明:本内容仅代表回答者见解不代表本站观点,请谨慎对待。

版权声明:作者保留权利,不代表本站立场。

回复

使用道具 举报

参与会员2

1、建立一个ACCESS数据库。然后创建新表,比如你想把图片放在名为 “图片”字段中,那么设置 字段 数据类型 为“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
回复

使用道具 举报

保存图片文件名就可以。然后在通过文件名调出图片
回复

使用道具 举报

可能感兴趣的问答

发新帖
  • 微信访问
  • 手机APP