[分享]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
页:
[1]