基になる ActiveData オブジェクトに行を追加し、成功または失敗を示す値を返します。
AddRow ()
Public Sub Main() InsertNewNumberToDataFileWithOccupation( 108, "Jay", "Jones", "5551219", _ "QA Analyst" ) End Sub Public Sub InsertNewNumberToDataFileWithOccupation( id As Integer, _ firstName As String, lastName As String, phoneNumber As String, _ occupation As String ) Dim data As ActiveData = Workbench.LoadActiveData( "PhoneBookData" ) Dim row As ActiveDataRow = data.AddRow() row.SetLong( "id", id ) row.SetString( "fname", firstName ) row.SetString( "lname", lastName ) row.SetString( "number", phoneNumber ) row.SetString( "occupation", occupation ) data.Save() End Sub End Module