AppendChunk

原创 2004年07月12日 10:10:00

Public Sub AppendChunkX()

   Dim cn As ADODB.Connection
   Dim rstPubInfo As ADODB.Recordset
   Dim strCn As String
   Dim strPubID As String
   Dim strPRInfo As String
   Dim lngOffset As Long
   Dim lngLogoSize As Long
   Dim varLogo As Variant
   Dim varChunk As Variant

   Const conChunkSize = 100

   ' Open a connection.
   Set cn = New ADODB.Connection
   strCn = "Server=srv;Database=pubs;UID=sa;Pwd=;"

   cn.Provider = "sqloledb"
   cn.Open strCn

   'Open the pub_info_x table.
   Set rstPubInfo = New ADODB.Recordset
   rstPubInfo.CursorType = adOpenDynamic
   rstPubInfo.LockType = adLockOptimistic
   rstPubInfo.Open "pub_info_x", cn, , , adCmdTable

   'Prompt for a logo to copy.
   strMsg = "Available logos are : " & vbCr & vbCr

   Do While Not rstPubInfo.EOF
      strMsg = strMsg & rstPubInfo!pub_id & vbCr & _
        Left(rstPubInfo!pr_info,
         InStr(rstPubInfo!pr_info, ",") - 1) & vbCr & vbCr
      rstPubInfo.MoveNext
   Loop

   strMsg = strMsg & "Enter the ID of a logo to copy:"
   strPubID = InputBox(strMsg)

   ' Copy the logo to a variable in chunks.
   rstPubInfo.Filter = "pub_id = '" & strPubID & "'"
   lngLogoSize = rstPubInfo!logo.ActualSize
   Do While lngOffset < lngLogoSize
      varChunk = rstPubInfo!logo.GetChunk(conChunkSize)
      varLogo = varLogo & varChunk
      lngOffset = lngOffset + conChunkSize
   Loop

   ' Get data from the user.
   strPubID = Trim(InputBox("Enter a new pub ID:"))
   strPRInfo = Trim(InputBox("Enter descriptive text:"))

   ' Add a new record, copying the logo in chunks.
   rstPubInfo.AddNew
   rstPubInfo!pub_id = strPubID
   rstPubInfo!pr_info = strPRInfo
   lngOffset = 0   ' Reset offset.

   Do While lngOffset < lngLogoSize
      varChunk = LeftB(RightB(varLogo, lngLogoSize - _
        lngOffset),conChunkSize)
      rstPubInfo!logo.AppendChunk varChunk
      lngOffset = lngOffset + conChunkSize
   Loop

   rstPubInfo.Update

   ' Show the newly added data.
   MsgBox "New record: " & rstPubInfo!pub_id & vbCr & _
     "Description: " & rstPubInfo!pr_info & vbCr & _
     "Logo size: " & rstPubInfo!logo.ActualSize

   rstPubInfo.Close
   cn.Close

End Sub

找 AppendChunk 找到的

金山词霸PDF文档取词攻略,让你使用PDF更方便。加密的PDF文档解密或取词:   在一些情况下,不能词霸不能对PDF文档取词,多数是因为PDF文件经过了加密。   表现特征为:文章的内容选择后不能复...
  • hokooio
  • hokooio
  • 2006年05月31日 15:46
  • 10006

ASP中对大字段的存取AppendChunk和GetChunk

AppendChunkformsize=request.totalbytes  取得客户端发过来的大小formdata=request.binaryread(formsize)把客户发过来的数据转成二...
  • Gutta
  • Gutta
  • 2005年03月29日 20:31
  • 2159

VB中对大字段的存取AppendChunk和GetChunk

AppendChunkPublic Function SaveFileToDB(ByVal Filename As String, dbField As ADODB.Field, Optional P...
  • Gutta
  • Gutta
  • 2005年03月29日 20:33
  • 2581

使用ADO GetChunk/AppendChunk 数据库存取二进制文件(如程序,图象等)

 在设计数据库的过程中,我们会经常要存储一些图形、长文本、多媒体(视频、音频文件)等各种各样的程序文件,如果我们在数据库中仅存储这些文件的路径信息,尽管这可以大大地减小数据库的大小,但是由于文件存在磁...
  • abcpanpeng
  • abcpanpeng
  • 2007年06月13日 17:13
  • 4225

[转]使用ADO GetChunk/AppendChunk 读写SQL Server BLOB字段

  在设计数据库的过程中,我们会经常要存储一些图形、长文本、多媒体(视频、音频文件)等各种各样的程序文件,如果我们在数据库中仅存储这些文件的路径信息,尽管这可以大大地减小数据库的大小,但是由于文件存在...
  • yuvmen
  • yuvmen
  • 2007年11月07日 19:20
  • 2806

(转载)ADO技术

/*######################################################################## 【文件名】:  ado.h 【名  称】:  AD...
  • byxdaz
  • byxdaz
  • 2005年09月01日 14:47
  • 8821

AppendChunk and GetChunk Methods Example (VC++)

http://msdn.microsoft.com/en-us/library/ms807920.aspx AppendChunk and GetChunk Methods Exampl...
  • chla
  • chla
  • 2014年12月29日 11:31
  • 456

image字段或二进制字段的读写

使用MFC操作 SQL 的Image类型的字段.本文提供,读写函数
  • yingzheng1983
  • yingzheng1983
  • 2010年09月02日 20:47
  • 1726

vb.net操作数据库之ACCESS(1)

  一直想写下数据库操作方面的,只是没什么时间(好像是借口,应该是懒或者没心情吧,呵呵)。最近发现CSDN上还是每天有人要问这些内容,我有的时候就懒的回答,呵呵,主要不断的去找代码给他们累啊。所以还是...
  • machong8183
  • machong8183
  • 2010年04月15日 11:47
  • 19494

MFC ADO数据库操作

内容比较乱,作为草稿,对现有的ado数据库操作函数方法进行汇总。 小函数 m_pRecordset->RecordCount//取得记录数量 全局变量 #import "msado15.dll...
  • guoming0000
  • guoming0000
  • 2012年02月21日 16:15
  • 7197
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:AppendChunk
举报原因:
原因补充:

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