除了前一文说的方法外,还有一种方法可获取Excel所有表名
BOOL GetExcelAllTableNames(CString sExcelFile, CStringList &slTableName)
{
char strDsn[MAX_PATH];
CString sDsn;
memset(strDsn,0,MAX_PATH);
sDsn.Format("DBQ=%s;Driver={Microsoft Excel Driver (*.xls)};",sExcelFile);
strcpy(strDsn,sDsn);
//分配环境句柄
SQLHENV m_henv;
if(SQLAllocEnv(&m_henv) != SQL_SUCCESS)
{
return FALSE;
}
//分配连接句柄
SQLHDBC m_hdbc;
if(SQLAllocConnect(m_henv,&m_hdbc) != SQL_SUCCESS)
{
return FALSE;
}
// 连接数据源
UCHAR szConnectOutput[512];
SWORD nResult;
if(SQLDriverConnect( m_hdbc,NULL,(UCHAR*)strDsn,SQL_NTS,szConnectOutput,sizeof(szConnectOutput),&nResult,SQL_DRIVER_COMPLETE ) != SQL_SUCCESS)
{
return FALSE;
}
SQLHSTMT hstmt = NULL;
if(SQLAllocHandle(SQL_HANDLE_STMT, m_hdbc, &hstmt) != SQL_SUCCESS)
{
return FALSE;
}
//此是获取所有表名,包括名字后带有$符号的系统表
if(SQLTables( hstmt, NULL, 0, NULL, 0, NULL, 0, 0, 0) != SQL_SUCCESS )
/*也可对其进行限制,如 if(SQLTables( hstmt, NULL, 0, NULL, 0, NULL, 0, (SQLCHAR*)"TABLE", strlen("TABLE")) != SQL_SUCCESS) 此名则只获取类型为TABLE的表*/
{
return FALSE;
}
SDWORD cb;
char szTable[255];
char szTableType[255];
SQLBindCol( hstmt, 3, SQL_C_CHAR, szTable, 255, &cb );
SQLBindCol( hstmt, 4, SQL_C_CHAR, szTableType, 255, &cb );
while(SQLFetch(hstmt) == SQL_SUCCESS)
{
if(!slTableName.Find(szTable))
{
slTableName.AddTail(szTable);
}
}
SQLFreeHandle( SQL_HANDLE_STMT, hstmt );
SQLDisconnect( m_hdbc );
SQLFreeHandle( SQL_HANDLE_ENV, m_henv );
return TRUE;
}