Abundant Technologies - IT Consulting Experts

 Source Code Library

 Code Details

'Creater a ADO recordset from thin air, no database involved, and then 'use ADO's methods to manipulate the data   Dim rs As New ADODB.Recordset           With rs             .Fields.Append "UserID", adInteger             .Fields.Append "Year", adVarChar, 4             .Fields.Append "NumericMonth", adInteger             .Fields.Append "Name", adVarChar, 255             .Fields.Append "Month", adVarChar, 20            .CursorType = adOpenStatic             .LockType = adLockOptimistic             .Open         End With           With rs          .AddNew                            .Fields.Item("UserID") = MyArray(0,0)             .Fields.Item("Year") = MyArray(1,0)             .Fields.Item("NumericMonth") = MyArray(2,0)             .Fields.Item("Name") = MyArray(3,0)             .Fields.Item("Month") = MyArray(4,0)             'And on and on .....             .Update         End With  

Mail To: info@3pc.com