I am facing a problem in storing an array of integers to an OLE object field in the database, the used code for this action is listed below:
Expand|Select|Wrap|Line Numbers
- Sub Import_data()
- Dim oAccesss As New ADODB.Connection
- Dim oRecordset11 As New ADODB.Recordset
- oAccesss.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=C:\DBS.mdb;"
- oRecordset11.Open "Select OLEdata From Table1", oAccesss, adOpenKeyset, adLockOptimistic
- Dim SS(10) As integer
- For N = 0 To 9
- SS(N) = rnd
- Next N
- With oRecordset11
- .Fields.Item(0) = SS
- .update
- end with
- End sub
Kindly Advice.