Example in Visual Basic

Private Sub Command1_Click()
'this sample used the new AddField methods and the LayerInfo object to make a new tab
'file.  for each record in the Us_Cust table (found in mapstats.mdb) it adds a point
'feature to the new table.  for each feature added to the table, selected attribute
'data from Us_Cust is associated with that point (the company name, order ammount, city
'and state).
 Dim rs As DAO.Recordset
     Dim db As DAO.Database
    
     Dim flds As New MapXLib.Fields

     Dim lyrNew As MapXLib.Layer
     Dim ptNew As New MapXLib.Point
     Dim ftrNew As MapXLib.Feature
     Dim ff As MapXLib.FeatureFactory
     Dim li As New MapXLib.LayerInfo
     Dim rvs As New MapXLib.RowValues
     Dim ds As MapXLib.Dataset
    
     'make database connection and get a recordset
     Set db = DBEngine.OpenDatabase("C:\Program Files\MapInfo\MapX 5.0\data\mapstats.mdb")
     Set rs = db.OpenRecordset("US_Cust")
    
     'we'll use feature factory later

     Set ff = Map1.FeatureFactory
    
     'define the columnar structure of the new table we're going to create
     flds.AddStringField "Company", 50
     flds.AddStringField "City", 50
     flds.AddStringField "State", 2
     flds.AddNumericField "Order_Amt", 12, 2

     'define the LayerInfo object
     li.Type = miLayerInfoTypeNewTable
     li.AddParameter "FileSpec", App.Path & "\custtab.tab"
     li.AddParameter "Name", "mycustomers"
     li.AddParameter "Fields", flds

    
     'add the new layer to the top of the map
     Map1.Layers.Add li, 1
    
     'make a dataset from the new layer and get its RowValues collection
     Set lyrNew = Map1.Layers(1)
     Set ds = Map1.Datasets.Add(miDataSetLayer, lyrNew)
     Set rvs = ds.RowValues(0)
    
     'for each records in the Us_Cust table we'll make a point feature and add it
     'to the newly created layer.  Using the RowValues object from that layer's
     'dataset we'll supply attribute data for each point feature added

     rs.MoveFirst
    Do While Not rs.EOF
          rvs.Item("Company").Value = rs.Fields("Company")
          rvs.Item("City").Value = rs.Fields("City")
          rvs.Item("State").Value = rs.Fields("State")
          rvs.Item("Order_Amt").Value = rs.Fields("Order_Amt")
        
          ptNew.Set rs.Fields("X"), rs.Fields("Y")
          Set ftrNew = ff.CreateSymbol(ptNew)
          Set ftrNew = lyrNew.AddFeature(ftrNew, rvs)
      
          rs.MoveNext
     Loop

    
    'close database connection
     Set rs = Nothing
    Set db = Nothing
End Sub