Solved

Copy "Long binary Data"

Posted on 2008-10-23
6
494 Views
Last Modified: 2008-10-25
I have a database where i store images (OLE OBJECT) and the field inside the table has the value "Long Binary Data".
I am trying to copy everything to another database and i would like to copy the field which stores the images as Long Binary Data.
Is there a way to do this ?

Thanks in advance
0
Comment
Question by:viroz
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 3
  • 2
6 Comments
 
LVL 46

Expert Comment

by:tbsgadi
ID: 22783724
Hi viroz,

A regular copy or append query should work

Gary
0
 
LVL 1

Author Comment

by:viroz
ID: 22783748
No right click "Copy" available.
0
 
LVL 46

Assisted Solution

by:tbsgadi
tbsgadi earned 150 total points
ID: 22783945
If you're copying straight from the table then select the whole column (Copy is available)
0
Revamp Your Training Process

Drastically shorten your training time with WalkMe's advanced online training solution that Guides your trainees to action.

 
LVL 1

Author Comment

by:viroz
ID: 22784585
Ijust want to copy seperate fields. Is there a way to do this ?
0
 
LVL 46

Expert Comment

by:tbsgadi
ID: 22784831
Filter (on the ID) for the record you want & then select the column
0
 
LVL 58

Accepted Solution

by:
Jim Dettman (Microsoft MVP/ EE MVE) earned 350 total points
ID: 22785143
You looking to do this manually or via code?  If code, then you want to use GetChunk() and AppendChunk().  I've attached a sample of code from the on-line help.

JimD.
Sub AppendChunkX()
 
	Dim dbsNorthwind As Database
	Dim rstEmployees As Recordset
	Dim rstEmployees2 As Recordset
 
	Set dbsNorthwind = OpenDatabase("Northwind.mdb")
 
	' Open two recordsets from the Employees table.
	Set rstEmployees = _
		dbsNorthwind.OpenRecordset("Employees", _
		dbOpenDynaset)
	Set rstEmployees2 = rstEmployees.Clone
 
	' Add a new record to the first Recordset and copy the 
	' data from a record in the second Recordset.
	With rstEmployees
 
.AddNew
		!FirstName = rstEmployees2!FirstName
		!LastName = rstEmployees2!LastName
		CopyLargeField rstEmployees2!Photo, !Photo
		.Update
 
		' Delete new record because this is a demonstration.
		.Bookmark = .LastModified
		.Delete
		.Close
	End With
 
	rstEmployees2.Close
	dbsNorthwind.Close
 
End Sub
 
Function CopyLargeField(fldSource As Field, _
	fldDestination As Field)
 
	' Set size of chunk in bytes.
	Const conChunkSize = 32768
 
Dim lngOffset As Long
	Dim lngTotalSize As Long
	Dim strChunk As String
 
	' Copy the photo from one Recordset to the other in 32K 
	' chunks until the entire field is copied.
	lngTotalSize = fldSource.FieldSize
	Do While lngOffset < lngTotalSize
		strChunk = fldSource.GetChunk(lngOffset, conChunkSize)
		fldDestination.AppendChunk strChunk
		lngOffset = lngOffset + conChunkSize
	Loop
 
End Function

Open in new window

0

Featured Post

Free Tool: ZipGrep

ZipGrep is a utility that can list and search zip (.war, .ear, .jar, etc) archives for text patterns, without the need to extract the archive's contents.

One of a set of tools we're offering as a way to say thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

You need to know the location of the Office templates folder, so that when you create new templates, they are saved to that location, and thus are available for selection when creating new documents.  The steps to find the Templates folder path are …
Code that checks the QuickBooks schema table for non-updateable fields and then disables those controls on a form so users don't try to update them.
Basics of query design. Shows you how to construct a simple query by adding tables, perform joins, defining output columns, perform sorting, and apply criteria.
With Microsoft Access, learn how to specify relationships between tables and set various options on the relationship. Add the tables: Create the relationship: Decide if you’re going to set referential integrity: Decide if you want cascade upda…

631 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question