//'***************************************************************************************
//'函数:将数据库的OLE字段写入长二进制文件
//'***************************************************************************************
//bool THsPart_clsPartCommonDB::PrintFieldToFile(TheFiled As ADODB.Field, ByVal strSaveName As String, _
// Optional IsAppend As Boolean)
bool THsPart_clsPartEntityDB::PrintFieldToFile(_RecordsetPtr &myRcdPtr,_variant_t index ,CString strSaveName /*ADODB.Fields TheFiled, CString strSaveName ,*Optional IsAppend As Boolean*/)
{
    //Dim MyRc As Recordset;
 VARIANT varBLOB;
 CFile myfile;
 bool bReturn = false;
    try
 {
   
 
  //'定义各种参数
  const int conChunkSize = 16384;
  int Chunks ;
  byte *Chunk = NULL; //Chunk() As Byte,
  //int FileNumber;
  long FragMent ,lngTotalSize;
  // 定义各种参数
  myfile.Open(strSaveName,CFile::modeCreate|CFile::modeReadWrite|CFile::typeBinary);
  /*FileNumber = FreeFile;
  Open strSaveName For Binary Access Write As #FileNumber;*/
 
  //将字段内的长二进制文件导出的文件
  lngTotalSize = myRcdPtr->Fields->GetItem(index)->ActualSize; //lngTotalSize = TheFiled.ActualSize;
  Chunks = lngTotalSize /conChunkSize;
  FragMent = lngTotalSize % conChunkSize;
  Chunk = (byte *)GlobalAlloc(GMEM_FIXED,FragMent); //ReDim Chunk(FragMent);
  varBLOB= myRcdPtr->Fields->GetItem(index)->GetChunk(FragMent); //Chunk() = TheFiled.GetChunk(FragMent);
  SafeArrayAccessData(varBLOB.parray,(void **)&Chunk);
  LPSTR buffer = (LPSTR)GlobalLock((HGLOBAL)Chunk);
  myfile.Write(buffer,FragMent);
  GlobalUnlock((HGLOBAL)Chunk);
  SafeArrayUnaccessData (varBLOB.parray);
  int counter;
  Chunk = (byte *)GlobalAlloc(GMEM_FIXED,conChunkSize);
  for(counter=1;counter<= Chunks;counter++) //For counter = 1 To Chunks
  {
   //Chunk() = TheFiled.GetChunk(conChunkSize);
   varBLOB= myRcdPtr->Fields->GetItem(index)->GetChunk(conChunkSize);
   SafeArrayAccessData(varBLOB.parray,(void **)&Chunk);
   buffer = (LPSTR)GlobalLock((HGLOBAL)Chunk);
   myfile.Write(Chunk,FragMent);
   SafeArrayUnaccessData (varBLOB.parray);
  }
  GlobalUnlock((HGLOBAL)Chunk);
  Chunk = NULL;
  buffer = NULL;
  ////////////////////////////////////////////////
 
  ////////////////////////////
 
  //////////
  //Close #FileNumber
  myfile.Close();
 
  bReturn = true;
  return bReturn;
 }
 catch(...)
 {
 
  AfxMessageBox(_T("PrintFieldToFile wrong!"));
  //Close #FileNumber;
  myfile.Close();
 }
 return bReturn;
}

数据库的OLE字段写入长二进制文件的更多相关文章

  1. c# 操作access数据库image ole字段

    using System; using System.Data; using System.Configuration; using System.Web; using System.Data.Ole ...

  2. NLog自定义字段写入数据库表,示例

    //自定义字段写入NLog日志 private void saveNLog(InvokeLogModel model) { LogEventInfo ei = new LogEventInfo(); ...

  3. 通过OCI 处理 Oracle 10g 中处理Clob大字段写入

    Oracle数据库中, 通过存储过程写入Clob字段 , 当数据大于4k时, 报错 ORA-01460: 转换请求无法实施或不合理 经过排查, 数据Bind方式不对, 不能采用字符串的Bind方式 原 ...

  4. 程序处理数据库中值字段值为null的查询显示

    1.如果你做了一个简单的注册界面,需要用户进行注册,但有些项是不必要填的,当用户完成注册时,数据库表中的相应字段的值会写入null,但如何将查询的字段的值null显示出来? 2.首先我们学习一下如何向 ...

  5. python操作MySQL数据库并将数据写入excel

    #!/usr/bin/python# -*- coding:utf-8 -*-'''方法:通过pymsql模块连接mysql数据库,然后通过游标cursor查询SQL语句将结果存储在Excel文件中, ...

  6. dataTable写入数据库(大数据写入)

    例1: connectionStr,链接字符串dataTableName, 数据库中对应表名sourceDataTable DataTable 要写入数据库的DataTable字段要和表一致 publ ...

  7. Django---ORM的常用字段和自定义字段,DjangoORM字段与数据库类型对应,字段参数和Meta的参数,Django的admin操作,13中orm操作方法,单标的双下方法

    Django---ORM的常用字段和自定义字段,DjangoORM字段与数据库类型对应,字段参数和Meta的参数,Django的admin操作,13中orm操作方法,单标的双下方法 一丶ORM常用字段 ...

  8. 将Oracle数据库中的数据写入Excel

    将Oracle数据库中的数据写入Excel 1.准备工作 Oracle数据库"TBYZB_FIELD_PRESSURE"表中数据如图: Excel模板(201512.xls): 2 ...

  9. Java 通过JDBC查询数据库表结构(字段名称,类型,长度等)

    Java 通过JDBC查询数据库表结构(字段名称,类型,长度等) 发布者:唛唛家的豆子   时间:2012-11-20 17:54:02   Java 通过JDBC查询数据库表结构(字段名称,类型,长 ...

随机推荐

  1. Trailing slash

    Trailing Slash common case It's common for URLs with a trailing slash to indicate a directory, and t ...

  2. UDF简记

    摘要: 1.开发UDF 2.开发UDAF 3.开发UDTF 4.部署与测试 5.一个简单的实例 内容:1.开发UDF 函数类需要继承org.apache.hadoop.hive.ql.UDF 实现ev ...

  3. 前端面试题整理—ES6篇

    1.es5和es6的区别,说一下你所知道的es6 ECMAScript5,即ES5,是ECMAScript的第五次修订,于2009年完成标准化 ECMAScript6,即ES6,是ECMAScript ...

  4. 多线程Thread类的方法

    创建多个线程的第一种方法 1.定义一个Thread类的子类,比如MyThread类 2.重写Thread的run方法,设置线程任务 3.创建Mythread类的对象 4.调用方法start(),开启新 ...

  5. git步骤

    1.New一个Repositories 2.拿到这个仓库的URL 3.git clone https://github.com/zhuobo/new.git 4.进入到clone下来的文件夹,然后gi ...

  6. 搭建VirtualBox虚拟机集群

    ===============================VirtualBox常用网络===============================NetworkAddress Translati ...

  7. SQL Server进阶(十一)存储过程

    存储过程和函数的区别 存储过程是第一次编译之后就会被存储的下来的预编译对象,之后无论何时调用它都会去执行已经编译好的代码.而函数每次执行都需要编译一次.总结下来有下面几个区别: 基本不同: 函数必须有 ...

  8. github下载更新代码到本地

    git remote -v git fetch origin master git log -p  master.. origin/master 如果本地已修改需要 git stash git mer ...

  9. Retrofit提交Json

    1.APIService为自定义接口类, 定义@Headers @Headers({"Content-Type: application/json","Accept: a ...

  10. ext Table中CommandColumn用法

    <ext:CommandColumn Width="250" Header="功能菜单" ColumnID="test"  Butto ...