vb怎么把图片加入到数据库里面

最新推荐文章于 2023-09-15 11:40:02 发布

brave1

最新推荐文章于 2023-09-15 11:40:02 发布

阅读量2.8k

点赞数

分类专栏： VB 文章标签：数据库 vb security command c table

本文链接：https://blog.csdn.net/brave1/article/details/395650

版权

这篇博客展示了如何使用VB将图片插入到Access数据库的LongBinary字段中，然后从数据库读取并保存到新的文件，最后显示在Picture1控件上。通过ADODB.Connection和ADODB.Recordset进行数据库操作，利用ADODB.Stream处理二进制数据。

摘要由CSDN通过智能技术生成

Private Sub Command3_Click()
Dim conn As New ADODB.Connection
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:/1.mdb;Persist Security Info=False"
conn.Execute "create table a (b longbinary)"
End Sub

Private Sub Command4_Click()
    Set b = New ADODB.Recordset
    Set c = New ADODB.Stream


        c.Mode = adModeReadWrite

    c.Type = adTypeBinary
    c.Open
    c.LoadFromFile "c:/1.bmp"

    b.Open "select * from a", "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:/1.mdb;Persist Security Info=False", adOpenDynamic, adLockOptimistic
    b.AddNew

    b.Fields.Item(0).Value = c.Read()


    b.Update

    b.Close
    Set b = New ADODB.Recordset
    b.Open "select * from a", "Provider=Microsoft.Jet.OL