Home Cart [Log In] About Us Contact Us

Object Reference

xf_InteractInteraction

Public Function ExtractBLOB_ADO (
recs As ADODB.Recordset,
FieldName As String,
Destination As String,
Optional SuppressRemoveOLEHeader As Boolean = False
) As Long

Identical to ExtractBLOB but uses an ADO recordset instead of DAO

recs as ADODB.Recordset

The ADO recordset (based on a table) to store the data in

FieldName as String

The name of the field to store the data in

Destination as String

The path and filename to write the binary information to.

Optional SuppressRemoveOLEHeader as Boolean = False

(no description)

Call Template:

Dim i As Long

i = xf.Interact.ExtractBLOB_ADO(recs, FieldName, Destination)

i = xf.Interact.ExtractBLOB_ADO(recs, FieldName, Destination, SuppressRemoveOLEHeader)

Example 1:

Dim ID As Long
Dim recs As New ADODB.Recordset
Dim dbs as DAO.Database
Set dbs = CurrentDb()
ID= 23

recs.Open "SELECT * FROM xf_tblDocStore WHERE Doc_ID=" & ID, Application.CurrentProject.Connection
If recs.EOF() Then
MsgBox "BLOB record not found"
Else
recs.MoveFirst

xf.Interact.ExtractBLOB recs, "DocImage", Application.CurrentProject.path & "\Copy of Affirmative_Action.pdf"

recs.Close

Debug.Print "ExtractBLOB: Doc extracted to " & Application.CurrentProject.path & "\Copy of Affirmative_Action.pdf" & ": id=" & ID
End If