Skip to main content
本文に 4 文字追加
ソース リンク
cubick
  • 2.1万
  • 5
  • 27
  • 64

C++からADOを使用してExcelファイルの行追加、検索、更新をしています。削除だけどうしてもできません。ADOでExcelファイルを指定した場合に、そのような制限はあるのでしょうか。「エラーを特定できません」となります。

CString strFile = _T("C:\temp\sample.xlsx");
CString s;
try
{
CString strCon;
strCon.Format( _T( "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=%s;Extended Properties=Excel 12.0 xml" ) , strFile );
con.CreateInstance(__uuidof(Connection));
con->Open(_bstr_t(strCon), "", "", adConnectUnspecified);

_RecordsetPtr rs;
rs.CreateInstance(__uuidof(Recordset));
rs->CursorLocation = adUseClient;
rs->Open(_variant_t( "SELECT * FROM [test$] WHERE [ID]='A1'" ), con.GetInterfacePtr(), adOpenForwardOnly, adLockOptimistic, adCmdText );

if( !rs->GetadoEOF() )
{
rs->Delete(adAffectCurrent);
rs->Close();
}
}
catch(_com_error& e)
{
s=e.ErrorMessage();
}

CString strFile = _T("C:\\temp\\sample.xlsx");
CString s;
try
{
 CString strCon;
 strCon.Format( _T( "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=%s;Extended Properties=Excel 12.0 xml" ) , strFile );
 con.CreateInstance(__uuidof(Connection));
 con->Open(_bstr_t(strCon), "", "", adConnectUnspecified);

 _RecordsetPtr rs;
 rs.CreateInstance(__uuidof(Recordset));
 rs->CursorLocation = adUseClient;
 rs->Open(_variant_t( "SELECT * FROM [test$] WHERE [ID]='A1'" ), con.GetInterfacePtr(), adOpenForwardOnly, adLockOptimistic, adCmdText );

 if( !rs->GetadoEOF() )
 {
  rs->Delete(adAffectCurrent);
  rs->Close();
 }
}
catch(_com_error& e)
{
 s=e.ErrorMessage();
}

C++からADOを使用してExcelファイルの行追加、検索、更新をしています。削除だけどうしてもできません。ADOでExcelファイルを指定した場合に、そのような制限はあるのでしょうか。「エラーを特定できません」となります。

CString strFile = _T("C:\temp\sample.xlsx");
CString s;
try
{
CString strCon;
strCon.Format( _T( "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=%s;Extended Properties=Excel 12.0 xml" ) , strFile );
con.CreateInstance(__uuidof(Connection));
con->Open(_bstr_t(strCon), "", "", adConnectUnspecified);

_RecordsetPtr rs;
rs.CreateInstance(__uuidof(Recordset));
rs->CursorLocation = adUseClient;
rs->Open(_variant_t( "SELECT * FROM [test$] WHERE [ID]='A1'" ), con.GetInterfacePtr(), adOpenForwardOnly, adLockOptimistic, adCmdText );

if( !rs->GetadoEOF() )
{
rs->Delete(adAffectCurrent);
rs->Close();
}
}
catch(_com_error& e)
{
s=e.ErrorMessage();
}

C++からADOを使用してExcelファイルの行追加、検索、更新をしています。削除だけどうしてもできません。ADOでExcelファイルを指定した場合に、そのような制限はあるのでしょうか。「エラーを特定できません」となります。

CString strFile = _T("C:\\temp\\sample.xlsx");
CString s;
try
{
 CString strCon;
 strCon.Format( _T( "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=%s;Extended Properties=Excel 12.0 xml" ) , strFile );
 con.CreateInstance(__uuidof(Connection));
 con->Open(_bstr_t(strCon), "", "", adConnectUnspecified);

 _RecordsetPtr rs;
 rs.CreateInstance(__uuidof(Recordset));
 rs->CursorLocation = adUseClient;
 rs->Open(_variant_t( "SELECT * FROM [test$] WHERE [ID]='A1'" ), con.GetInterfacePtr(), adOpenForwardOnly, adLockOptimistic, adCmdText );

 if( !rs->GetadoEOF() )
 {
  rs->Delete(adAffectCurrent);
  rs->Close();
 }
}
catch(_com_error& e)
{
 s=e.ErrorMessage();
}
ソース リンク
h.shira
  • 43
  • 1
  • 11

ADOでExcelファイルを使用した場合行削除が出来ない

C++からADOを使用してExcelファイルの行追加、検索、更新をしています。削除だけどうしてもできません。ADOでExcelファイルを指定した場合に、そのような制限はあるのでしょうか。「エラーを特定できません」となります。

CString strFile = _T("C:\temp\sample.xlsx");
CString s;
try
{
CString strCon;
strCon.Format( _T( "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=%s;Extended Properties=Excel 12.0 xml" ) , strFile );
con.CreateInstance(__uuidof(Connection));
con->Open(_bstr_t(strCon), "", "", adConnectUnspecified);

_RecordsetPtr rs;
rs.CreateInstance(__uuidof(Recordset));
rs->CursorLocation = adUseClient;
rs->Open(_variant_t( "SELECT * FROM [test$] WHERE [ID]='A1'" ), con.GetInterfacePtr(), adOpenForwardOnly, adLockOptimistic, adCmdText );

if( !rs->GetadoEOF() )
{
rs->Delete(adAffectCurrent);
rs->Close();
}
}
catch(_com_error& e)
{
s=e.ErrorMessage();
}