zoukankan      html  css  js  c++  java
  • 一段精简的使用 ADODB.Stream 读写"大字段"的 VB 代码!

    '一段精简的读写"大字段"的代码,使用 ADODB.Stream
    'Objects: Form1、Picture1
    '引用 Microsoft ActiveX Data Objects 2.5 Libary
    '或 Microsoft ActiveX Data Objects 2.6 Libary
    Dim TempFileName As String
    TempFileName = App.Path & "/TempFile.tmp"
    Dim adoConnection As New ADODB.Connection
    Dim adoRecordset As New ADODB.Recordset
    adoConnection.Open "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & App.Path & "/mmxdb97.mdb"
    adoRecordset.Open "SELECT * FROM bmp", adoConnection, adOpenKeyset, adLockOptimistic ', adCmdTable
    Debug.Print adoRecordset.Fields(1).Type '大字段
    adoRecordset.AddNew
    Dim adoStream As New ADODB.Stream
    adoStream.Type = adTypeBinary
    adoStream.Open
    adoStream.LoadFromFile CommonDialog1.FileName
    '将二进制文件写入大字段:
    adoRecordset.Fields.Item(1).AppendChunk adoStream.Read
    '================================
    '从大字段读取二进制数据:
    adoStream.Write adoRecordset.Fields.Item(1).GetChunk(adoRecordset.Fields.Item(1).ActualSize)
    adoStream.SaveToFile TempFileName, IIf(Len(Trim(Dir(TempFileName, vbNormal + vbHidden))) > 0, adSaveCreateOverWrite, adSaveCreateNotExist)
    Picture1.AutoSize = True
    Picture1.Picture = LoadPicture(TempFileName)
  • 相关阅读:
    一款前端文件上传工具
    聊一聊最近找工作的感受
    神秘的计算机网络----(1)
    月下无限连?拒绝无休止switch!
    计算机网络---序
    验证码识别
    两数之和
    Sanic框架基础之解决CORS跨域
    Sanic框架进阶之实现异步缓存组件
    asyncio异步模块的21个协程编写实例
  • 原文地址:https://www.cnblogs.com/Microshaoft/p/2485802.html
Copyright © 2011-2022 走看看