用ODBC读Excel

[GPoint]

CString strTable;
strTable=_T("综合录井表");
sSql.Format("select * from [%s$]",strTable);

// 执行查询语句
recset.Open(CRecordset::forwardOnly, sSql, CRecordset::readOnly);


如代码，在连接Excel数据文件后，必须要知道Excel文件的表名“综合录井表”才可以产生产生记录集。有没有简单的方法，动态的获取Excel的工作表名。我看网上有人问过这样的问题，没有回答的。那位大侠帮帮忙。我是用ODBC读的，不要再推介我用其它方法读了。

[GPoint]

那位大侠帮帮忙，如果我的问题没说清楚。我可以补充，在线等

[q1q2q3q4ln]

ODBC来获取,不清楚,
但是直接用OFFICE API是可以动态获得SHEET名的,你看看头文件

[shenyi0106]

驱动是否正确？
http://topic.csdn.net/t/20021012/14/1090480.html

[GPoint]

[Quote=引用 3 楼 shenyi0106 的回复:]
驱动是否正确？
http://topic.csdn.net/t/20021012/14/1090480.html
[/Quote]
我装的是office 2003 驱动获取没有问题。关键是这个worksheet名现在没办法动态获取。必须手工输入worksheet名，

[GPoint]

[Quote=引用 2 楼 q1q2q3q4ln 的回复:]
ODBC来获取,不清楚,
但是直接用OFFICE API是可以动态获得SHEET名的,你看看头文件
[/Quote]

在msdn上查询OFFICE API吗？
使用哪个函数？

[GPoint]

[Quote=引用 2 楼 q1q2q3q4ln 的回复:]
ODBC来获取,不清楚,
但是直接用OFFICE API是可以动态获得SHEET名的,你看看头文件
[/Quote]
能具体点吗？没看懂你说的意思。

[shenyi0106]

[Quote=引用 4 楼 zhong_yong_fei 的回复:]
引用 3 楼 shenyi0106 的回复:
驱动是否正确？
http://topic.csdn.net/t/20021012/14/1090480.html

我装的是office 2003 驱动获取没有问题。关键是这个worksheet名现在没办法动态获取。必须手工输入worksheet名，
[/Quote]
这个应该是的哟，就和ACCESS数据库中的表名称一样啊

[向立天]

不要用数据库的方式操作excel
用com接口
http://wenku.baidu.com/view/563e90c7aa00b52acfc7caf4.html

[GPoint]

[Quote=引用 7 楼 shenyi0106 的回复:]
引用 4 楼 zhong_yong_fei 的回复:
引用 3 楼 shenyi0106 的回复:
驱动是否正确？
http://topic.csdn.net/t/20021012/14/1090480.html

我装的是office 2003 驱动获取没有问题。关键是这个worksheet名现在没办法动态获取。必须手工输入worksheet名，

这个应该是的哟，就和ACCESS……
[/Quote]没学过Access数据库，学过一点SQL。在ACCESS里面应该如何查询表名。
直接给我个可以通用的获取表名的代码也行。
解决了直接给分。

[MoXiaoRab]

OpenSchema adSchemaTables

[MoXiaoRab]

odbc遍历求数据库中表名：

bool   CDBInfoDlg::ListTables(bool   bViews,   bool   bSystemTables) 
{ 
CDatabase   database; 
CString	type   =   " 'TABLE ' "; 
int	 ret=   -1; 
HSTMT	hStmt; 
UCHAR       szName[256]; 
SDWORD     cbName; 
CString   names; 

if(   bViews   ) 
type   +=   ",   'VIEW ' ";//视图 

if(   bSystemTables   ) 
type   +=   ",   'SYSTEM   TABLE ' ";//系统表 

try{ 
if(   !database.Open(m_strDSN)   ) 
return   false; 
} 
catch(...){ 
AfxMessageBox( "Unable   To   Obtain   Table   Information "); 
return   false; 
} 

SQLAllocStmt(database.m_hdbc,&hStmt); 
ret   =   SQLTables(hStmt, 
NULL,SQL_NTS, 
NULL,SQL_NTS, 
NULL,SQL_NTS, 
(unsigned   char   *)type.GetBuffer(0),SQL_NTS); 

if(ret   ==   SQL_ERROR){ 
SQLFreeStmt(hStmt,SQL_CLOSE); 
database.Close(); 
if(ret   ==     SQL_INVALID_HANDLE   ){ 
AfxMessageBox( "Invalid   handle "); 
return   false; 
} 
AfxMessageBox( "Database   Could   Not   be   Open "); 
return   false; 
} 


m_cmbTables.ResetContent(); 

while(1){ 

ret   =   SQLFetch(hStmt); 
if(ret   ==   SQL_NO_DATA_FOUND) 
break; 
ret   =   SQLGetData(hStmt,   3,   SQL_C_CHAR,   szName,   TABLE_NAME_LENGTH,   &cbName); 

names.Format( "%s ",szName); 
m_cmbTables.AddString(names); 
} 

m_cmbTables.SetCurSel(0); 

SQLFreeStmt(hStmt,SQL_CLOSE); 
database.Close(); 

ShowTable(); 

return   true; 
}

ado

void   CdbToolsDlg::GetDatabaseSchema(_ConnectionPtr   pConnection,   _bstr_t*   bstrTableNames,   int*   nTableCount,   _bstr_t   bstrFilter) 
{ 
ASSERT(pConnection-> State==adStateOpen); 
_RecordsetPtr     pRstSchema     =   NULL; 

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; 
SafeArrayPutElement(psa,   &ix,   &var); 

var.vt   =   VT_BSTR; 
//表的类型有 "ALIAS " "TABLE " "SYNONYM " "SYSTEM   TABLE " 
"VIEW " "GLOBAL   TEMPORARY " "LOCAL   TEMPORARY " "SYSTEM   VIEW " 
var.bstrVal   =   bstrFilter;//这里bstrFilter= "TABLE "就可以了 

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

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

try 
{ 
pRstSchema   =   pConnection-> OpenSchema(adSchemaTables,&Array); 

*nTableCount=0; 
while(!(pRstSchema-> EndOfFile)) 
{ 
if(bstrTableNames!=NULL) 
{ 
_bstr_t   table_name   =   pRstSchema-> Fields-> 
GetItem( "TABLE_NAME ")-> Value; 
*(bstrTableNames++)=table_name; 
} 
*nTableCount+=1; 
pRstSchema-> MoveNext(); 
} 
} 
catch   (_com_error   e)   { 
PrintComError(e); 
} 

if(pRstSchema) 
if   (pRstSchema-> State   ==   adStateOpen) 
pRstSchema-> Close(); 
}

[见习学术士]

好像是Connect的OpenSchema这个方法

[GPoint]

[Quote=引用 15 楼 tr0j4n 的回复:]
怎么会不行，你excel通过odbc进行连接后，本身就会被看成数据库。
[/Quote]
我按你的方法试过了，确实读不出来。你试验过吗？
我的Excel文件里面只有一个worksheet， sheet1一直读不出来。要不你给我写一个可以读出来的的代码。我再加20分，

[GPoint]

[Quote=引用 11 楼 tr0j4n 的回复:]
odbc遍历求数据库中表名：

C/C++ code

bool CDBInfoDlg::ListTables(bool bViews, bool bSystemTables)
{
CDatabase database;
CString type = " 'TABLE ' ";
int ret= -1;
HSTMT ……
[/Quote]
数据库表名遍历和Excel文件的表名遍历不一样啊。我试了半天不行

[GPoint]

再等一天，没有答复就结贴了。我现在是用OLe获得表名，然后用odbc读取表中的数据。现在只能这样凑合的用了。这样就是运行速度慢了很多。先这样凑合着吧

[MoXiaoRab]

怎么会不行，你excel通过odbc进行连接后，本身就会被看成数据库。

[GPoint]

谁还能给出点别的建议，我有了比较复杂的方法实现了功能，但觉得速度慢了很多。谁还能给点建议。

[zy_master]

楼主的问题解决了吗？想知道答案

[GPoint]

[Quote=引用 18 楼 zy_master 的回复:]
楼主的问题解决了吗？想知道答案
[/Quote]
最后只能换方法了，似乎odbc确实没办法获得worksheet名。如果一个Excel中有多个sheet，用ODBC读起来更麻烦。

[for_onxx]

引用 19 楼 zhong_yong_fei 的回复:

引用 18 楼 zy_master 的回复:楼主的问题解决了吗？想知道答案 最后只能换方法了，似乎odbc确实没办法获得worksheet名。如果一个Excel中有多个sheet，用ODBC读起来更麻烦。

是你自己不会用，人家Tr0j4n已经写得非常清楚了。