Create Table Snippet

///<summary>Creates a table with some default fields.</summary>
/// 
///<param name="workspace">An IWorkspace2 interface</param>
///<param name="tableName">A System.String of the table name in the workspace. Example: "owners"</param>
///<param name="fields">An IFields interface or Nothing</param>
///  
///<returns>An ITable interface or Nothing</returns>
///  
///<remarks>
///Notes:
///(1) If an IFields interface is supplied for the 'fields' collection it will be used to create the
///    table. If a Nothing value is supplied for the 'fields' collection, a table will be created using 
///    default values in the method.
///(2) If a table with the supplied 'tableName' exists in the workspace an ITable will be returned.
///    if table does not exit a new one will be created.
///</remarks>
public ESRI.ArcGIS.Geodatabase.ITable CreateTable(ESRI.ArcGIS.Geodatabase.IWorkspace2 workspace, System.String tableName, ESRI.ArcGIS.Geodatabase.IFields fields)
{
  // create the behavior clasid for the featureclass
  ESRI.ArcGIS.esriSystem.UID uid=new ESRI.ArcGIS.esriSystem.UIDClass();

  if (workspace == null) return null; // valid feature workspace not passed in as an argument to the method

  ESRI.ArcGIS.Geodatabase.IFeatureWorkspace featureWorkspace=(ESRI.ArcGIS.Geodatabase.IFeatureWorkspace)workspace; // Explicit Cast
  ESRI.ArcGIS.Geodatabase.ITable table;

  if (workspace.get_NameExists(ESRI.ArcGIS.Geodatabase.esriDatasetType.esriDTTable, tableName))
  {
    // table with that name already exists return that table 
    table=featureWorkspace.OpenTable(tableName);
    return table;
  }

  uid.Value="esriGeoDatabase.Object";

  ESRI.ArcGIS.Geodatabase.IObjectClassDescription objectClassDescription=new ESRI.ArcGIS.Geodatabase.ObjectClassDescriptionClass();

  // if a fields collection is not passed in then supply our own
  if (fields == null)
  {
    // create the fields using the required fields method
    fields=objectClassDescription.RequiredFields;
    ESRI.ArcGIS.Geodatabase.IFieldsEdit fieldsEdit=(ESRI.ArcGIS.Geodatabase.IFieldsEdit)fields; // Explicit Cast

    ESRI.ArcGIS.Geodatabase.IField field=new ESRI.ArcGIS.Geodatabase.FieldClass();

    // create a user defined text field
    ESRI.ArcGIS.Geodatabase.IFieldEdit fieldEdit=(ESRI.ArcGIS.Geodatabase.IFieldEdit)field; // Explicit Cast

    // setup field properties
    fieldEdit.Name_2="SampleField";
    fieldEdit.Type_2=ESRI.ArcGIS.Geodatabase.esriFieldType.esriFieldTypeString;
    fieldEdit.IsNullable_2=true;
    fieldEdit.AliasName_2="Sample Field Column";
    fieldEdit.DefaultValue_2="test";
    fieldEdit.Editable_2=true;
    fieldEdit.Length_2=100;

    // add field to field collection
    fieldsEdit.AddField(field);
    fields=(ESRI.ArcGIS.Geodatabase.IFields)fieldsEdit; // Explicit Cast
  }

  // Use IFieldChecker to create a validated fields collection.
  ESRI.ArcGIS.Geodatabase.IFieldChecker fieldChecker=new ESRI.ArcGIS.Geodatabase.FieldCheckerClass();
  ESRI.ArcGIS.Geodatabase.IEnumFieldError enumFieldError=null;
  ESRI.ArcGIS.Geodatabase.IFields validatedFields=null;
  fieldChecker.ValidateWorkspace=(ESRI.ArcGIS.Geodatabase.IWorkspace)workspace;
  fieldChecker.Validate(fields, out enumFieldError, out validatedFields);

  // The enumFieldError enumerator can be inspected at this point to determine 
  // which fields were modified during validation.


  // create and return the table
  table=featureWorkspace.CreateTable(tableName, validatedFields, uid, null, "");

  return table;
}

'''<summary>Creates a table with some default fields.</summary>
''' 
'''<param name="workspace">An IWorkspace2 interface</param>
'''<param name="tableName">A System.String of the table name in the workspace. Example: "owners"</param>
'''<param name="fields">An IFields interface or Nothing</param>
'''  
'''<returns>An ITable interface or Nothing</returns>
'''  
'''<remarks>
'''Notes:
'''(1) If an IFields interface is supplied for the 'fields' collection it will be used to create the
'''    table. If a Nothing value is supplied for the 'fields' collection, a table will be created using 
'''    default values in the method.
'''(2) If a table with the supplied 'tableName' exists in the workspace an ITable will be returned.
'''    if table does not exit a new one will be created.
'''</remarks>
Public Function CreateTable(ByVal workspace As ESRI.ArcGIS.Geodatabase.IWorkspace2, ByVal tableName As System.String, ByVal fields As ESRI.ArcGIS.Geodatabase.IFields) As ESRI.ArcGIS.Geodatabase.ITable

  ' Create the behavior clasid for the featureclass  
  Dim uid As ESRI.ArcGIS.esriSystem.UID=New ESRI.ArcGIS.esriSystem.UIDclass

  If workspace Is Nothing Then
    Return Nothing ' valid feature workspace not passed in as an argument to the method
  End If

  Dim featureWorkspace As ESRI.ArcGIS.Geodatabase.IFeatureWorkspace=CType(workspace, ESRI.ArcGIS.Geodatabase.IFeatureWorkspace) ' Explicit Cast
  Dim table As ESRI.ArcGIS.Geodatabase.ITable

  If workspace.NameExists(ESRI.ArcGIS.Geodatabase.esriDatasetType.esriDTTable, tableName) Then

    '  A table with that name already exists so return that table 
    table=featureWorkspace.OpenTable(tableName)
    Return table
  End If

  UID.Value="esriGeoDatabase.Object"

  Dim objectClassDescription As ESRI.ArcGIS.Geodatabase.IObjectClassDescription=New ESRI.ArcGIS.Geodatabase.ObjectClassDescriptionClass

  ' If a fields collection is not passed in then supply our own
  If fields Is Nothing Then

    ' Create the fields using the required fields method
    fields=objectClassDescription.RequiredFields
    Dim fieldsEdit As ESRI.ArcGIS.Geodatabase.IFieldsEdit=CType(fields, ESRI.ArcGIS.Geodatabase.IFieldsEdit) ' Explicit Cast
    Dim field As ESRI.ArcGIS.Geodatabase.IField=New ESRI.ArcGIS.Geodatabase.FieldClass

    ' Create a user defined text field
    Dim fieldEdit As ESRI.ArcGIS.Geodatabase.IFieldEdit=CType(Field, ESRI.ArcGIS.Geodatabase.IFieldEdit) ' Explicit Cast

    ' Setup field properties
    fieldEdit.Name_2="SampleField"
    fieldEdit.Type_2=ESRI.ArcGIS.Geodatabase.esriFieldType.esriFieldTypeString
    fieldEdit.IsNullable_2=True
    fieldEdit.AliasName_2="Sample Field Column"
    fieldEdit.DefaultValue_2="test"
    fieldEdit.Editable_2=True
    fieldEdit.Length_2=100

    ' Add the field to the field collection
    fieldsEdit.AddField(Field)
    fields=CType(fieldsEdit, ESRI.ArcGIS.Geodatabase.IFields) ' Explicit Cast

  End If

  ' Use IFieldChecker to create a validated fields collection.
  Dim fieldChecker As ESRI.ArcGIS.Geodatabase.IFieldChecker=New ESRI.ArcGIS.Geodatabase.FieldCheckerClass()
  Dim enumFieldError As ESRI.ArcGIS.Geodatabase.IEnumFieldError=Nothing
  Dim validatedFields As ESRI.ArcGIS.Geodatabase.IFields=Nothing
  fieldChecker.ValidateWorkspace=CType(workspace, ESRI.ArcGIS.Geodatabase.IWorkspace)
  fieldChecker.Validate(fields, enumFieldError, validatedFields)

  ' The enumFieldError enumerator can be inspected at this point to determine 
  ' which fields were modified during validation.


  ' Create and return the table
  table=featureWorkspace.CreateTable(tableName, validatedFields, uid, Nothing, "")

  Return table

End Function