VBA可以读数据库中的图片文件吗？

Question

如果能，能不能给出例子。谢了。

Answer 1

Private Sub write_Click()
   Dim Cnn As New ADODB.Connection
   Dim Rs As New ADODB.Recordset
   Dim Rm As New ADODB.Command
   Dim mstream As New ADODB.Stream
   Dim str As String
   
   Cnn.ConnectionString = "Provider=MSDASQL.1;Password=admin;Persist Security Info=True;User ID=admin;Data Source=Test"
   Cnn.CursorLocation = adUseClient
   Cnn.Open
   Rs.Open "select * from a", Cnn, adOpenKeyset, adLockPessimistic
   mstream.Type = adTypeBinary
   mstream.Open
   mstream.LoadFromFile App.Path + "\a.gif"
   'On Error Resume Next
   Rs.AddNew
   mstream.Position = 1
   Rs.Fields(0).Value = mstream.Read
   Rs.Update
   Rs.Close
   Cnn.CloseEnd SubPrivate Sub read_Click()
    Dim Cnn As New ADODB.Connection
    Dim Rs As New ADODB.Recordset
    Dim Rm As New ADODB.Command
    Dim mstream As New ADODB.Stream
   
    Cnn.ConnectionString = "Provider=MSDASQL.1;Password=admin;Persist Security Info=True;User ID=admin;Data Source=Test"
    Cnn.CursorLocation = adUseClient
    Cnn.Open
    Rs.Open "select * from a", Cnn, adOpenKeyset, adLockOptimistic
    mstream.Type = adTypeBinary
    mstream.Open
    mstream.Write Rs.Fields("col").Value
    mstream.SaveToFile App.Path + "\doc3.doc", adSaveCreateOverWrite
    Rs.Close
    Cnn.Close
End Sub