ACCESS 中字段说明的提取

  //测试代码 add by on [2009-7-22]+
  //FOR:
  CString sTableName = "Fine_Mzbase";
  CString sFieldName = "drill_id";

  SAFEARRAY   FAR*   psa   =   NULL;  
  SAFEARRAYBOUND   rgsabound;  
  _variant_t     var;  
  _variant_t     Array;  
  rgsabound.lLbound   =   0;  
  rgsabound.cElements   =   4;  
  psa   =   SafeArrayCreate(VT_VARIANT,   1,   &rgsabound);  
  var.vt   =   VT_EMPTY;  
  long   ix;  
  ix   =   0;  
  SafeArrayPutElement(psa,   &ix,   &var);  

  ix=   1;  
  SafeArrayPutElement(psa,   &ix,   &var);  

  ix   =   2;  
  var.vt   =   VT_BSTR;  
  var.bstrVal   =sTableName.AllocSysString();//表名  
  SafeArrayPutElement(psa,   &ix,   &var);  

  var.vt   =   VT_BSTR;  
  ix   =   3;  
  var.bstrVal   =sFieldName.AllocSysString();//字段名  
  SafeArrayPutElement(psa,   &ix,   &var);  

  Array.vt   =   VT_ARRAY|VT_VARIANT;  
  Array.parray   =   psa;    

  CADODatabase *pDatabase = g_pConnectOra_With_OraOLEDB;

  CADORecordset   pRstSchema /*= pDatabase->Open()*/;

  pRstSchema.m_pRecordset = pDatabase->m_pConnection->OpenSchema(adSchemaColumns,&Array);

  //pZKSapMzSet->OpenSchema(adSchemaColumns,&Array);

  _bstr_t   column_name   =   pRstSchema.m_pRecordset->Fields->GetItem("COLUMN_NAME")->Value;  
  _bstr_t   column_discription=   pRstSchema.m_pRecordset->Fields->GetItem("DESCRIPTION")->Value; 

  //pZKSapMzSet->OpenSchema(adSchemaColumns);

  //int nFieldCount = pZKSapMzSet->GetFieldCount();
  //int nRecordCont = pZKSapMzSet->GetRecordCount();

  //CADOFieldInfo fileInfo;
  //CString sVall;
  //_variant_t vtValue;
  //
  for (int ii = 0 ; ii <nFieldCount; ii ++)
  //{
  // pZKSapMzSet->GetFieldInfo("DESCRIPTION"/*ii*/, &fileInfo);

  // nRecordCont = pZKSapMzSet->GetRecordCount();

  // pZKSapMzSet->MoveFirst();

  // while (!pZKSapMzSet->IsEOF())
  // {
  //  pZKSapMzSet->GetFieldValue("DESCRIPTION"/*ii*/, vtValue/*sVall*/);
  //  pZKSapMzSet->MoveNext();
  // }   
  //}