求高效率图片上传思路(要求远程数据库,二进制流操作),在线等

Question

公司要我做一个图片上传的程序,远程的SQL服务器
要求用二进制流传送文件,有没有高效率一点的
有谁做过吗,代码参考一下就行,我主要是没有思路

Answer 1

楼主说的是传送文件保存到SQL的image字段吗?

Answer 2

如果是的话我这里原来写过一个,不过是本地的,你参考下引用 Microsoft ActiveX Data Objects 2.5
Private Sub Command1_Click()
    Dim con As New ADODB.Connection
    con.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=project;Data Source=localhost"
    Dim rs As New ADODB.Recordset
    rs.Open "picup", con, adOpenDynamic, adLockOptimistic
    Dim stmpic As ADODB.Stream
    Dim strpictemp As String
    Set stmpic = New ADODB.Stream
    stmpic.Type = adTypeBinary    '指定流是二进制类型
    stmpic.Open                     '将数据获取到Stream对象中
    stmpic.LoadFromFile ("G:\besttime.bmp") '将选择的图像加载到打开的StmPic中
    rs.AddNew
    rs.Fields(0).Value = "demo"
    rs.Fields(1).Value = stmpic.Read   '从StmPic对象中读取数据
    rs.Update
    stmpic.Close
    MsgBox "Save OK!", , "OK"
    rs.Close
    con.Close
    Set rs = Nothing
    Set con = Nothing
End Sub