导出到EXCEL

 
 

  
  _RecordsetPtr m_pRs;
_ConnectionPtr m_pConn;

  
  try
  
  
{
    CoInitialize(NULL);
    
    m_pConn.CreateInstance(__uuidof(Connection));
    m_pRs.CreateInstance(__uuidof(Recordset));
        
    
  
  //
  
  设置服务器端游标
  
  

  
      m_pConn
  
  ->
  
  CursorLocation 
  
  =
  
   adUseServer;
  
  //
  
  adUseClient;adUseNone
        
    
  
  //
  
  连接ACCESS数据库
  
  

  
      m_pConn
  
  ->
  
  Open(L
  
  "
  
  Provider=Microsoft.Jet.OLEDB.4.0;Data Source=test.mdb;Persist Security Info=False
  
  "
  
  ,
                          L
  
  ""
  
  ,L
  
  ""
  
  ,adOpenUnspecified);
        
    m_pRs
  
  ->
  
  PutRefActiveConnection(m_pConn);
        
    m_pRs
  
  ->
  
  Open(
  
  "
  
  select * into [Excel 5.0;HDR=YES;DATABASE=c://test.xls].[sheet1] from users
  
  "
  
  ,_variant_t((IDispatch
  
  *
  
  )m_pConn,
  
  true
  
  ),adOpenDynamic,adLockOptimistic,adCmdUnknown);
        
    m_pRs
  
  =
  
  NULL;
    m_pConn
  
  =
  
  NULL;
    CoUninitialize();
}

  
  catch
  
  (_com_error 
  
  &
  
  e)
{    
    AfxMessageBox(e.Description());
}