RecordSet.SaveRecord

Just a bit of an update to the information in the language browser.  The language browser shows you how to perform this on one row but not on an entire database.  Here is an updated example with a loop to update all the records.

Sub Main

    ' Open the database.
    Set db = Client.OpenDatabase("Sample-Detailed Sales.IMD")
    
    ' Create the task.
    Set NewField = db.TableManagement
    
    ' Obtain a reference to the table.
    Set ThisTable = db.TableDef
    
    ' Create a new field.
    Set MyField = ThisTable.NewField
    
    ' Configure the new field.
    MyField.Name = "MyCharField"
    MyField.Description = "A Sample Field"
    MyField.Type = WI_EDIT_CHAR
    MyField.Length = 25
    MyField.Equation = " """" "
    
    ' Add the field.
    NewField.AppendField MyField
    NewField.PerformTask
    
    ' Obtain the RecordSet from the database.
    Set rs = db.RecordSet
    
    ' Obtain the first record from the RecordSet.
    rs.ToFirst
    count = rs.Count
    
    For i = 1 To count
        Set rec = rs.ActiveRecord
        rs.next
        rec.SetCharValue "MyCharField", "A Value"
        rs.SaveRecord rec
    Next i
    
    db.Close
    
    ' Clear the memory.
    
    Set db = Nothing    
    Set ThisTable = Nothing
    Set MyField = Nothing
    Set rs = Nothing
    Set rec = Nothing

End Sub