| Sub ADOCreateRecordset() Dim rst As New ADODB.Recordset rst.CursorLocation = adUseClient ' Add Some Fields rst.Fields.Append "dbkey", adInteger rst.Fields.Append "field1", adVarChar, 40, adFldIsNullable rst.Fields.Append "field2", adDate ' Create the Recordset rst.Open , , adOpenStatic, adLockBatchOptimistic ' Add Some Rows rst.AddNew Array("dbkey", "field1", "field2"), Array(1, "string1", Date) rst.AddNew Array("dbkey", "field1", "field2"), Array(2, "string2", #1/6/1992#) ' Look at the values - a value of 1 for status column = newly record rst.MoveFirst Debug.Print "Status", "dbkey", "field1", "field2" Do Until rst.EOF Debug.Print rst.Status, rst!dbkey, rst!field1, rst!field2 rst.MoveNext Loop ' Commit the rows without ActiveConnection set resets the status bits rst.UpdateBatch adAffectAll ' Change the first of the two rows rst.MoveFirst rst!field1 = "changed" ' Now look at the status, first row shows 2 (modified row), second shows 8 (no modifications) ' Also note that the OriginalValue property shows the value before the modification rst.MoveFirst Do Until rst.EOF Debug.Print Debug.Print rst.Status, rst!dbkey, rst!field1, rst!field2 Debug.Print , rst!dbkey.OriginalValue, _ rst!field1.OriginalValue, rst!field2.OriginalValue rst.MoveNext Loop End Sub |
Recordset, Create |
India web developer web development India | Freelance web development ecommerce web developer | Prayagasoft - web designer India, Ecommerce developer india, Ecommerce design
