一段精简的使用 ADODB.Stream 读写"大字段"的 VB 代码!

原创 2001年05月05日 13:15:00
'一段精简的读写"大字段"的代码,使用 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)

VB读取超过2G的数据文件

VB读取超过2G的数据文件 VB中,在一些函数、数据类型中与win32api调用时很多都是Long数据类型。 Long数据类型的内存空间范围从-2^31到2^31-1(即:-2147483648到...
  • qwer430401
  • qwer430401
  • 2015年07月17日 03:02
  • 1513

javaScript读取txt文档的FSO对象和ADODB.Stream对象

转自:http://blog.163.com/chaosumin@126/blog/static/86387403201092793610651 在使用JavaScript读取txt文档...
  • kezhen
  • kezhen
  • 2014年12月05日 16:52
  • 1797

用VB 代码读取 Excel 内容

常规的方法可能是循环读取每一行每一个格子的内容并存入 Recordset 并保存 此处使用Open Recordset 的方式,将 Excel Worksheet 作为一个数据源直接读取 ...
  • DJ2008
  • DJ2008
  • 2017年05月25日 11:16
  • 1950

VBS之adodb.stream对象的方法/属性

adodb.stream对象的方法/属性 Cancel 方法 使用方法如下 Object.Cancel 说明:取消执行挂起的异步 Execute 或 Open 方法的调用。 C...
  • icanlove
  • icanlove
  • 2014年09月19日 10:21
  • 9300

ADODB.Stream的用法实例

程序代码: 内容: download.asp?file=相对路径的文件 就可以把这个文件下载下来 call downloadFile(replace(replace(Request("fi...
  • smave88
  • smave88
  • 2013年07月02日 22:29
  • 491

vb获取、创建数据库及包含表和字段名

Option Explicit Dim isConnect As Boolean '判断数据库是否连接成功 Dim ConADODB As New ADODB.Connection '用于连接MA...
  • hws1058648831a
  • hws1058648831a
  • 2013年06月08日 11:30
  • 1517

IE下使用ADODB.Stream实现断点续传

最近研究了一下IE自带的一些Activex控件,可以比较简单的实现断点续传功能 不过这种方式不推荐,因为安全性较低,而且需要修改客户端注册表,调低ie安全配置 还有就是我比较懒,只打算写个思路和几个关...
  • laizhenhai88
  • laizhenhai88
  • 2013年07月31日 18:25
  • 1651

ajax 和 adodb.stream组件 上传本地文件

ajax 发送xml数据
  • zebing007
  • zebing007
  • 2014年01月22日 13:03
  • 1777

大数据的运算加减乘除

BigData.h:#ifndef __BIG_DATA_H__ #define __BIG_DATA_H__ #include  #include  typedef long long INT...
  • fucangzxx
  • fucangzxx
  • 2016年05月29日 21:36
  • 399

Mysql的大字段问题

转自 http://blog.sina.com.cn/s/blog_8e9cceee0101k65j.html 前段时间在项目压测的时候出现了mysql的大字段问题,导致数据层无法存储。...
  • u013480667
  • u013480667
  • 2016年02月13日 18:17
  • 2139
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:一段精简的使用 ADODB.Stream 读写"大字段"的 VB 代码!
举报原因:
原因补充:

(最多只允许输入30个字)