VBA将本地图片以二进制形式存储到SQLServer

 本地数据库创建了一张表 Staff, 用于存储用户的基础信息，主要包括的字段以及数据如下：

签名图片字段用于存储签名图片的二进制数据。

代码如下：

'将图片插入到数据库中
Sub insertPic()
        
        '定义连接对象
        Dim Conn As ADODB.Connection
        Set Conn = New ADODB.Connection
        Set rs = New ADODB.Recordset
        Dim iStm As ADODB.Stream  '流数据
        Dim Picpath As String
        Dim strSQL As String
        Dim strPic As String
        Dim picName As String
        Dim abytPic() As Byte
        
        
        '选择图片文件
        
        Picpath = ChosePic
        strPic = Dir(Picpath) '带扩展名
        picName = Split(strPic, ".")(0) '不带扩展名的文件名