vba把图片转成二进制_图片，也可以作为数据添加到数据库中

大家好，我们继续讲解VBA数据库解决方案，今日讲解第43讲内容：如何向数据库中增加图片。这讲的内容我们要把图片存储入数据库中，把图片作为数据来处理。这讲的内容非常适合人事管理及一些图片必要管理的场合。

我们看下面的数据库：

现在我们要把备注单元格中作为图片管理，也就是说要把和对应员工编号的必要的图片放在F列的"备注"字段中，这个时候该如何处理呢？

我们先打开我们的数据库：

修改备注的字段为OLE对象，这时我们将利用图片的控件来装载图片。看下面我给出的代码：

Sub mynzRecords_43() '第43讲 将图片添加到数据库中的方案

Dim abytPic() As Byte

Dim strPicPath, strPicName, strFldPath As String

Dim strPath, strTable, strSQL, strMsg As String

Dim cnADO, rsADO As Object

Set cnADO = CreateObject