以下是引用风吹过b在2016-5-5 15:02:56的发言:
那你的代码就改成每次都插入新的记录吧。
Adodc1.recordset.addnew
好像命令是这样的,你自己搜索一下。
代替那三行命令就是了。
那你的代码就改成每次都插入新的记录吧。
Adodc1.recordset.addnew
好像命令是这样的,你自己搜索一下。
代替那三行命令就是了。
谢谢,现在增加正常了,但我现在不按控件箭头的时候再按下显示图片按钮时就弹出这个
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 "图片已经存储到数据库了!"