是不是对应的这行没有数据造成的?
你判断一下是否存在记录再调用显示命令吧。
读取,仍然加那三行代码进行判断。
Dim Mst As New ADODB.Stream '数据库连接略,根据你自己的数据库设置即可 RS.Open "select * from 数据表", cn, 3, 2 RS.AddNew Mst.Type = adTypeBinary Mst.Open '打开Mst对象 If Text2.Text <> "" Then Mst.LoadFromFile Text2.Text 'Mst对象将图片内容转换成二进制数据 'Text2.Text 是硬盘中选择的图片路径+文件名+扩展名 RS.Fields("图片") = Mst.Read '将二进制数据存储在数据表的【图片】Image数据类型的字段,Access数据库存储在【OLE 对象】的字段即可。 RS.Fields("扩展名") = SSR 'SSR是取得的图片的扩展名,含 . 号,例如 .jpg '将图片文件的扩展名存储在【扩展名】这个字段 RS.Update Mst.Close RS.Close MsgBox "图片已经存储到数据库了!"