vb 如何从数据库中读取二进制图片到临时文件中，然后又把它转回到数据库中

Question

vb 如何从数据库中读取二进制图片到临时文件中，然后又把它转回到数据库中，在线等待

Answer 1

Dim con As New ADODB.Connection
Dim rec As ADODB.RecordsetPrivate Sub c1_Click()
    'p.Filter = "图片文件(*.jpg,*.bmp)|*.jpg;*.bmp"
    p.ShowOpen
    t3.Text = p.FileName
    'i.Picture = LoadPicture(p.FileName)
End SubPrivate Sub c2_Click()
    Dim pic() As Byte
    Dim lngFile As Long
    Set rec = New Recordset
    rec.Open "select * from stu where 1<>1", con, adOpenDynamic, adLockOptimistic, -1
    lngFile = FreeFile
    Open t3.Text For Binary As #lngFile
    ReDim pic(LOF(lngFile))
    Get #lngFile, , pic
    Close #lngFile
    rec.AddNew
    rec.Fields(0).Value = t1.Text
    rec.Fields(1).Value = t2.Text
    rec.Fields(2).Value = pic
    rec.Update
    rec.Close
    i.Picture = LoadPicture("")
End SubPrivate Sub c3_Click()
    Dim pic() As Byte
    Set rec = New Recordset
    rec.Open "select * from stu where stu_id='" & t1.Text & "'", con
    t2.Text = rec.Fields(1).Value
    ReDim pic(rec.Fields(2).ActualSize)                     '返回2进制图片的字节长度
    pic = rec.Fields(2).Value
    Open App.Path & "\" & t1.Text For Binary As #1
    Put #1, , pic
    Close #1
    'Set i.Picture = LoadPicture(App.Path & "\" & t1.Text)
    'MsgBox App.Path
    'Kill (App.Path & "\" & t1.Text)
End SubPrivate Sub Form_Load()
    Set con = New Connection
    con.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=kkk;Data Source=."
End Sub''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
这段代码是把一张图片存到数据库再读出来 而且还保存了个二进制文件在你工程那