用ODBC读Excel

2011-07-08 05:00:49 302 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

使用 Python 和可视化编程控制树莓派机械臂myCobot 这些模块包括逻辑、循环、数学、文本、列表、颜色、变量、函数以及控制机械臂的函数等等，所以用户可以轻松入门编程，只需单击右上角的运行就可以启动程序，做一些有趣的应用。可以搭配任意摄像头进行图像识别，具有4个 USB 端口，可以通过 Raspberry Pi 的微型 HDMI 端口连接到显示器. 最后，40 个GPIO 接头可以进行更多扩展应用，机械臂每个接口都有清晰的标记，面板上还有一个电源开关和一个直流电源插孔。您现在可以将机器人放在地板或桌子上，并用力拧紧吸盘，以确保机械臂的底座在操作过程中不会移动。阅读详情

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

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

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

...全文

从零到一：桌面宠物的硬件架构设计与工程实践本文详细介绍了基于STM32F103C8T6主控平台的桌面宠物机器人硬件架构设计与工程实践。内容涵盖电源管理、舵机控制、PCB布局及系统调试等核心环节，为硬件爱好者提供从零到一的完整开发指南，助力打造稳定可靠的智能桌面伴侣。阅读详情

GPoint

VC/MFC 16,550 成员 421,606 内容

+ 关注 + 加入社区

切换为时间正序

for_onxx 2012-12-18

打赏
举报

引用 19 楼 zhong_yong_fei 的回复:

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

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

GPoint 2012-03-06

打赏
举报

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

zy_master 2011-12-19

打赏
举报

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

GPoint 2011-07-14

打赏
举报

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

MoXiaoRab 2011-07-12

打赏
举报

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

GPoint 2011-07-12

打赏
举报

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

GPoint 2011-07-12

打赏
举报

[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 2011-07-12

打赏
举报

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

见习学术士 2011-07-11

打赏
举报

好像是Connect的OpenSchema这个方法

MoXiaoRab 2011-07-11

打赏
举报

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(); 

}

MoXiaoRab 2011-07-11

打赏
举报

OpenSchema adSchemaTables

GPoint 2011-07-11

打赏
举报

[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里面应该如何查询表名。
直接给我个可以通用的获取表名的代码也行。
解决了直接给分。

向立天 2011-07-11

打赏
举报

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

shenyi0106 2011-07-11

打赏
举报

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

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

GPoint 2011-07-11

打赏
举报

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

GPoint 2011-07-11

打赏
举报

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

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

GPoint 2011-07-11

打赏
举报

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

shenyi0106 2011-07-11

打赏
举报

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

q1q2q3q4ln 2011-07-11

打赏
举报

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

GPoint 2011-07-09

打赏
举报

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

用ODBC读Excel

相关推荐