Home Cart [Log In] About Us Contact Us

Object Reference

xf_InteractInteraction

Public Function StoreBLOB_ADO (
Source As String,
recs As ADODB.Recordset,
FieldName As String
) As Long

Identical to StoreBLOB except that an ADO recordset is passed.

Source as String

The path and filename of the binary information to be read and stored

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

Call Template:

Dim i As Long

i = xf.Interact.StoreBLOB_ADO(Source, recs, FieldName)

Example 1:

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

recs.Open "SELECT * FROM xf_tblDocStore", Application.CurrentProject.Connection, adOpenDynamic, adLockOptimistic, adCmdText
recs.AddNew
recs!DocOrigName = "Affirmative_Action.pdf"

xf.Interact.StoreBLOB Application.CurrentProject.path & "\Affirmative_Action.pdf", recs, "DocImage"

recs.Update
ID = recs!Doc_ID
recs.Close
Set recs = Nothing

Debug.Print "StoreBLOB: Doc copied to table: id=" & ID