[分享]VB6操作数据库图片

阿杰

Private Sub Command1_Click()    '新增图片    Dim mCon As New ADODB.Connection    mCon.Open "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa;Initial Catalog=BBB;Data Source=."    Dim Bag As New PropertyBag    Dim B() As Byte    Bag.WriteProperty "Image", Picture1.Image    ReDim B(LenB(Bag.Contents))    B = Bag.Contents    Dim rst As New Recordset    rst.Open "Select * From A", mCon, adOpenKeyset, adLockOptimistic    rst.AddNew    rst.Fields("Img").Value = B    rst.Update    Set Bag = NothingEnd SubPrivate Sub Command2_Click()    '读出图片    Dim mCon As New ADODB.Connection    mCon.Open "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa;Initial Catalog=BBB;Data Source=."    Dim rst As New Recordset    rst.Open "Select * From A", mCon, adOpenKeyset, adLockOptimistic    Dim B() As Byte    rst.MoveLast    B = rst.Fields("Img").Value    Dim Bag As New PropertyBag    Bag.Contents = B    Call Bag.WriteProperty("Image", B)    Set Picture1.Picture = Bag.ReadProperty("Image")End Sub