Re: access - ole object - using vb

Tech-Archive recommends: Speed Up your PC by fixing your registry

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


Date: Tue, 23 Nov 2004 14:01:06 -0800

and i change the code to ADO. i can save the file but still its giving me
file conversion problem like.

text encoding
windows(default) or MSDOS or other encoding.

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

  • Re: access - ole object - using vb
    ... Don't know about your file conversion problem, but here's some code to read ... Dim filenum As Integer ... > I tried using getchunk. ...
    (microsoft.public.vb.general.discussion)
  • Re: access - ole object - using vb
    ... Runtime error 3343 ... > Dim filenum As Integer ... but i am getting file conversion problem. ...
    (microsoft.public.vb.general.discussion)