高手请帮忙

Question

各位朋友，我想将VB中的*.frx中的内容写到数据库中，然后需要时再从数据库中取出来存成一个*.frx格式的文件。我试了好几天了一直都没有找到方法，希望高手帮忙，谢谢了。

Answer 1

Private Sub Command1_Click()
    Dim rs As New ADODB.Recordset
    Dim stmFile As New ADODB.Stream
    
    rs.CursorLocation = adUseClient
    rs.Open "select * from test where 1=2", cn, adOpenKeyset, adLockPessimistic
    rs.AddNew
    With stmFile
        .Type = adTypeBinary
        .Open
        .LoadFromFile "f:\update40.frx"
        rs!image字段 = .Read
        .Close
    End With
    rs.Update
    rs.Close
    Set stmFile = Nothing
    Set rs = Nothing
End SubPrivate Sub Command2_Click()
    Dim rs As New ADODB.Recordset
    Dim stmFile As New ADODB.Stream
    
    rs.CursorLocation = adUseClient
    rs.Open "select * from test where id=1", cn, adOpenKeyset, adLockPessimistic
    With stmFile
        .Type = adTypeBinary
        .Open
        .Write rs!image字段
        .SaveToFile "f:\aaa.frx"
        .Close
    End With
    rs.Update
    rs.Close
    Set stmFile = Nothing
    Set rs = Nothing
End Sub