請教,當我用VB+sql Server 開發時,怎樣把一個圖片(autocad,proe ) 通過Stream對象存入Recordset中?

Question

Sub save_picture(ByVal Mypicture As String)  'Picture的路径
Dim cnn As New ADODB.Connection
Dim rst1 As Recordset
  Dim bit() As Byte   Set rst1 = adoconnect3()  '连接你的sql server,得到记录集
    
    'If Not (rst1.EOF And rst1.BOF) Then
       If Mypicture = "" Then
        '    然后将字节数组的内容写入数据库即可
            rst1.Fields("Picture") = ""
            rst1.UpdateBatch
       Else
            Open Mypicture For Binary As #1
            ReDim bit(LOF(1)) As Byte
            Get 1, 1, bit
            Close 1
         '    然后将字节数组的内容写入数据库即可
         rst1.AddNew
         rst1.Fields("Picture").AppendChunk bit
         rst1.Fields("Name") = "姓名"
         rst1.UpdateBatch
       End If
    'End If
End SubSub save_picture(ByVal Mypicture As String)  'Picture的路径
Dim cnn As New ADODB.Connection
Dim rst1 As Recordset
  Dim bit() As Byte   Set rst1 = adoconnect3()  '连接你的sql server,得到记录集
    
    'If Not (rst1.EOF And rst1.BOF) Then
       If Mypicture = "" Then
        '    然后将字节数组的内容写入数据库即可
            rst1.Fields("Picture") = ""
            rst1.UpdateBatch
       Else
            Open Mypicture For Binary As #1
            ReDim bit(LOF(1)) As Byte
            Get 1, 1, bit
            Close 1
         '    然后将字节数组的内容写入数据库即可
         rst1.AddNew
         rst1.Fields("Picture").AppendChunk bit
         rst1.Fields("Name") = "姓名"
         rst1.UpdateBatch
       End If
    'End If
End Sub