access - ole object - using vb

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

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

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... 
> to 
>
>
>

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:
> 
contain 
how 

Hi Norm Cook,

Thanks for the reply.

i am using access 2000. so when i try to use your code its giving me a error
like
Runtime error 3343

Unrecognzied database format. any other idea to solve this problem. i didnt
get answer from anyone in all the forums.

thanks
bala


"Norm Cook" wrote:

> Don't know about your file conversion problem, but here's some code to rea
d
> 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... 
> contain 
> how 
>
>
>

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 rea
d
> 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... 
> contain 
> how 
>
>
>

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

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 rea
d
> 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... 
> contain 
> how 
>
>
>

Bala

Did you ever figure out how to do this?

Thanks,
Dortoh