Re: OLEs and BLOBs

Tech-Archive recommends: Repair Windows Errors & Optimize Windows Performance

Well if you are going to an ADP you are going to use SQL right?

if so the image field type is what you are looking for.

Here is some code to get file into SQL, I guess it is quite simple getting
the data out of Oracle, worst case write the file to the OS and then back
in, I am guessing you are storing files?

Dim adoConn As New ADODB.Connection
Dim adoDocument As New ADODB.Recordset
adoConn.Open "File Name=c:\to.udl"
Dim mStream As ADODB.Stream
Dim sql As String
sql = "Select Doc_Embed from TblCandidate_Contact_History Where
Candidate_Contact_History_ID=" & ' your primary key
Set adoDocument = New ADODB.Recordset
adoDocument.Open sql, adoConn, adOpenKeyset, adLockOptimistic
Set mStream = New ADODB.Stream
With mStream
.Type = adTypeBinary
.Open
.LoadFromFile myDoc
End With
With adoDocument
.MoveFirst
.Fields("Doc_Embed").Value = mStream.Read
.Update
.Close
End With
mStream.Close
adoConn.Close




--
Regards

Alex White MCDBA MCSE
http://www.intralan.co.uk

"Scott" <Scott@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message
news:D65721A5-DA9C-4B40-9EF3-81731AC215F5@xxxxxxxxxxxxxxxx
>I am currently transferring a database from Oracle to an Access Data
>Project.
> There is a field which contains OLEs and BLOBs stored within the database.
>
> Any ideas on how I could extract these files programatically ?
>
> Thanks.


.

Relevant Pages

  • Re: OLEs and BLOBs
    ... Dim adoDocument As New ADODB.Recordset ... Dim mStream As ADODB.Stream ... Dim SQL As String ...
    (microsoft.public.access.modulesdaovba)
  • Re: Which identity?
    ... > Some postings I read suggested using MAXto retrieve the inserted record ... > each of these 3 SQL features? ... Another way to do it if using the .AddNew method on a Jet based ADO ... Dim rsTest As ADODB.Recordset ...
    (microsoft.public.access.queries)
  • Re: display data to user question
    ... I created a project that has an embedded SQl table with the scenario you ... Dim cn As New SqlConnection("Data ... Protected Sub Page_Load(ByVal sender As Object, ...
    (microsoft.public.dotnet.framework.aspnet)
  • Re: display data to user question
    ... I created a project that has an embedded SQl table with the scenario you ... Dim cn As New SqlConnection("Data ... Protected Sub Page_Load(ByVal sender As Object, ...
    (microsoft.public.dotnet.framework.aspnet)
  • Re: display data to user question
    ... I created a project that has an embedded SQl table with the scenario you ... Dim cn As New SqlConnection("Data ... Protected Sub Page_Load(ByVal sender As Object, ...
    (microsoft.public.dotnet.framework.aspnet)