XDJM救命啊 图片的存取

Question

在sql数据库中一个字段存了两张图片,我现在想取出图片,能显示两张图片
用普通方法只能显示一个图片,等待中,分不够我可以加.

Answer 1

什么意思，你用什么显示图片，能取出来就能显示啊！！！如下：Option ExplicitDim cn As New ADODB.Connection, rs   As New ADODB.Recordset'保存
Private Sub Command1_Click()
    Dim bteContent() As Byte
    
    Open "C:\aa.bmp" For Binary Access Read As #1
    bteContent = InputB(LOF(1), #1)
    Close #1
    
    If rs.State = adStateOpen Then rs.Close
    rs.Open "select * from tablename", cn, adOpenDynamic, adLockPessimistic
    rs.AddNew
    rs!Name = "张三"
    rs!AGE = 22
    rs!SEX = "男"
    rs.Fields("PHOTO").AppendChunk bteContent
    rs.Update
    
    Erase bteContent
End Sub'打开
Private Sub Command2_Click()
    Dim bteContent() As Byte
    If rs.State = adStateOpen Then rs.Close
    rs.Open "select * from tablename", cn, adOpenForwardOnly, adLockReadOnly
    bteContent = rs.Fields("PHOTO").GetChunk(rs.Fields("PHOTO").ActualSize)    Open "C:\aa.bmp" For Binary Access Write As #1
    Put #1, , bteContent
    Close #1
    Image1.Picture = LoadPicture("C:\aa.bmp")
End SubPrivate Sub Form_Load()
On Error GoTo Errhandle
    cn.ConnectionString = "Driver={SQL Server};SERVER=DataServer;DATABASE=zxzx;UID=information;PWD=information*&#"
    cn.Open
    
    Exit Sub
Errhandle:
    MsgBox Err.Description, vbExclamation
End SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
On Error Resume Next
    rs.Close
    Set rs = Nothing
    cn.Close
    Set cn = Nothing
End Sub

Answer 2

是一个字段存两个图片,我取出来只能显示一张,存入的格式是jpg格式,是先把两张jpg图片合成后,在存入数据库的,这是别人存进去的,我现在要转数据,在转之前要修改图片所以必须要取出来