如何在ACCESS中将图片上传到MSSQL中啊

徐阿鹏

我在有ACCESS做一个人力资源管理的系统,请问如何员工的照片上传到数据库里啊!

那位好心人能告诉我啊!!!!

zyz

使用ADO Recordset.

先以二进制方式打开照片文件,将其读入一个数组,然后用Recordset直接将数组的内容写入图片字段.

徐阿鹏

不会,能否写清楚点,最好有实例!

nylgwsf9

在ACCESS的工具箱是有一个叫结合物件框,拖到表单上,然后资料来源选你的图片栏位名称.执行后在该控件是按右键选插入物件,找到图片即可.

LeeTien

Dim rs As New ADODB.Recordset//sql   字段是二进制的bmp  连接表显示是ole对象
    Dim Istm As ADODB.Stream
    rs.Open "SELECT 图片 FROM dbo.图库 WHERE id=" & [Forms]![图库]![id], CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    Set Istm = New ADODB.Stream
    With Istm
        .Mode = adModeReadWrite
        .Type = adTypeBinary
        .Open
        .Write rs("图片")
        .SaveToFile "c:\image.jpg"
    End With
    Me.Image1.Picture = "c:\image.jpg"
    rs.Close
    Istm.Close
    Kill "c:\image.jpg"
    Set rs = Nothing
    Set Istm = Nothing//请教sql<image>在access的操作

LeeTien

Dim rs As New ADODB.Recordset//sql   字段是二进制的bmp  连接表显示是ole对象
    Dim Istm As ADODB.Stream
    rs.Open "SELECT 图片 FROM dbo.图库 WHERE id=" & [Forms]![图库]![id], CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    Set Istm = New ADODB.Stream
    With Istm
        .Mode = adModeReadWrite
        .Type = adTypeBinary
        .Open
        .Write rs("图片")
        .SaveToFile "c:\image.jpg"
    End With
    Me.Image1.Picture = "c:\image.jpg"
    rs.Close
    Istm.Close
    Kill "c:\image.jpg"
    Set rs = Nothing
    Set Istm = Nothing//

seanfree

先实习一下