如何用ADO连接EXCEL数据？

[basabin]

哪位大侠提供例子，3x。

[笨魚]

好象 ADO 不是用来做这个的吧！

[kevlee]

将EXCEL数据,导入SQL数据库再用ADO连接SQL数据库.

[mtdata]

在excel中通过宏编辑器来做

[basabin]

可以连的，但是就是不能添加和删除记录，不知为什么？

[yjw1018]

就像在Delphi中用ADO或BDE存取ACCESS、SQL数据库一样。
方法：在delphi中加入adoconnection控件，双击后选择jet 4.0 ole db,在连接页中
选择数据库的名字（.xls）,再双击全部(all)页中的Extended Properties，在value中
填入Excel 8.0，OK！
在控件ADODataSet1的CommandText属性中选择了select * from Sheet1$后，别忘了在
Sheet1$的两边加上中括号[]，否则出现“FROM子句语法错误”。或者用ADOQuery1控件：在
它的SQL属性中写入：select * from [Sheet1$]。

[loucai]

给个连接字符串：
"Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Extended Properties='Excel 8.0;HDR=Yes';Data Source="+filename

[lihuihit]

高兴

终于找到
我需要的答案了
yjw1018(飘叶寻缘)

[newlili]

win32 console project.file readexcel.cpp
#include <stdio.h>
#include <windows.h>
#include <comdef.h>
#import "c:\program files\common files\system\ado\msado20.tlb" no_namespace rename ("EOF", "adoEOF")
HRESULT hr;
int main()
{
hr=CoInitialize(NULL);
_ConnectionPtr m_pConnection;
_CommandPtr m_commandptr;
_RecordsetPtr m_pUserSet;
try
{
//使用odbc的连接字符串
// _bstr_t conn("DRIVER={Microsoft Excel Driver (*.xls)};DriverId=790;DBQ=E:\\temp.xls;DefaultDir=e:\\;");
//使用ole db的连接字符串
_bstr_t conn("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\\temp.xls;Extended Properties=""Excel 8.0;""" );
m_pConnection.CreateInstance (__uuidof(Connection));
m_pConnection->Open (conn,"","",-1);
_RecordsetPtr pRstSchema = NULL;
pRstSchema = m_pConnection->OpenSchema(adSchemaTables);
while(!(pRstSchema->adoEOF))
{
_bstr_t table_name = pRstSchema->Fields->GetItem("TABLE_NAME")->Value;
printf("Table Name: %s\n",(LPCSTR) table_name);
_bstr_t table_type = pRstSchema->Fields->GetItem("TABLE_TYPE")->Value;
printf("Table type: %s\n\n",(LPCSTR) table_type);
pRstSchema->MoveNext();
}

_bstr_t sqltext="SELECT * from [sheet1$] ";
m_commandptr.CreateInstance (__uuidof(Command));
m_pUserSet.CreateInstance (__uuidof(Recordset));
m_commandptr->ActiveConnection =m_pConnection ;
m_commandptr->CommandText =sqltext;
m_commandptr->CommandType =adCmdText;
m_pUserSet=m_commandptr->Execute (NULL,NULL,adCmdUnknown);
_variant_t filed[12];
_bstr_t filedname[12];
bool befirstrow=true;
while (!m_pUserSet->adoEOF )
{
long kk=m_pUserSet->GetFields ()->GetCount ();
for (long uu=0;uu<kk;uu++)
{
filedname[uu]=m_pUserSet->GetFields ()->GetItem ((_variant_t)uu)->GetName ();
filed[uu]=m_pUserSet->GetCollect (filedname[uu]);
printf("%s\t ",(char*)(_bstr_t)(filed[uu]));
}
printf("\r\n");
m_pUserSet->MoveNext ();
}
}
catch(_com_error * e)
{
MessageBox(NULL,"",e->ErrorMessage(),MB_OK);
}
catch(...)
{
long errorcount=m_pConnection->GetErrors ()->GetCount ();
char add[255];
strcpy(add,"");
for (short i=0;i<errorcount;i++)
{
strcat(add,m_pConnection->GetErrors ()->GetItem (_variant_t((short)i))->GetDescription ());
}
printf(add);
}
CoUninitialize();
return 0;
}