🚀 go-pugleaf

All,

I'm trying to convert the numerical data type returned by OpenSchema to the
native enumerated TFieldType.  VarTypeToDataType() works for many of the
simpler data types (such as integer and boolean) but not for string and ADO
types.  Please reference the following code:

  Variant tvars[4] = { Unassigned(), Unassigned(), tableName,
Unassigned() };

  TADODataSet*  dataSet = new TADODataSet(NULL);
  std::auto_ptr<TADODataSet> auto_dataSet(dataSet);

  ServerData.Connection->OpenSchema(
      siColumns, VarArrayOf(tvars, 3), EmptyParam, dataSet);
  String  msg = "Field count: " + String(dataSet->FieldCount) + "\n";

  TField* field;
  while (!dataSet->Eof)
  {
    field = dataSet->Fields->FieldByName("COLUMN_NAME");
    msg += field->AsString + " => ";

    field = dataSet->Fields->FieldByName("DATA_TYPE");
    TFieldType  fieldType = VarTypeToDataType(field->AsInteger);
/*    if (fieldType == ftUnknown)
      // what should I do here? */

    msg += FieldTypeNames[fieldType] + "\n";
    dataSet->Next();
  }

  ShowMessage(msg);

The above code will iterate through all of the fields of the table
'tableName' and add the name and textual data type of each to 'msg'.

TIA,
- Clayton