Re: access - ole object - using vb

Tech Tip: Click here to run a free scan for Windows Errors and optimize PC performance

From: Bala (Bala_at_discussions.microsoft.com)
Date: 11/24/04 

Date: Tue, 23 Nov 2004 17:04:07 -0800

For your inforamtion how they inserting document into access ole object field.

they simply open the table and right click the column and using inser object
menu they inserting the document.

Thanks
bala

"Norm Cook" wrote:

> Don't know about your file conversion problem, but here's some code to read
> the entire
> ole object to a byte array & save it as a file.
>
> Dim filenum As Integer
> Dim ab() As Byte
> Dim db As Database
> Dim rst As Recordset
> Set db = opendatabase("c:\somedatabase.mdb")
> Set rst = db.OpenRecordset("SomeTable")
> rst.MoveLast
> ReDim ab(rst("SomeOleObjectField").FieldSize)
> ab() = rst("SomeOleObjectField").GetChunk(0,
> rst("SomeOleObjectField").FieldSize)
> rst.Close
> db.Close
> filenum = FreeFile
> Open "c:\somepath\somefile.ext" For Binary As #filenum
> Put #filenum, , ab()
> Close #filenum
> "Bala" <Bala@discussions.microsoft.com> wrote in message
> news:E39EF915-C532-4F19-B12F-C899383F4F4A@microsoft.com...
> > Hi,
> >
> > I tried using getchunk. but i am getting file conversion problem.
> > any other idea?
> >
> > thanks
> > bala
> >
> > "Norm Cook" wrote:
> >
> > > Read up on GetChunk
> > >
> > > "Bala" <Bala@discussions.microsoft.com> wrote in message
> > > news:6E8792C5-5876-4A57-A9D7-C9603F29FEB4@microsoft.com...
> > > > Hi
> > > >
> > > > In my access table one of the field data type OLE Object. and its
> contain
> > > > word document file. i need to save this file into local folder. idea
> how
> > > to
> > > > do this thru vb?
> > > >
> > > > Thanks
> > > > Bala
> > >
> > >
> > >
>
>
>

Relevant Pages