求ADO读取EXCEl数据完整过程。。。

GOD_cheng 2012-04-18 02:36:44

如题，谢谢。。。。

_ConnectionPtr m_pConnection;
_RecordsetPtr m_pResultRecordset;

try
{
CString str="Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=\"Excel 8.0;HDR=yes;IMEX=1\"; Data Source="+DBPathName+";";
HRESULT hr=m_pConnection.CreateInstance(__uuidof(Connection));
m_pConnection-> Open((LPCSTR)str, " ", " ",adModeUnknown);
}
catch(_com_error &e)
{
MessageBox(e.Description());
}
CString m_strSQL= "select * from [Sheet1$] ";
try
{
m_pResultRecordset.CreateInstance(__uuidof(Recordset));
m_pResultRecordset-> Open(m_strSQL.AllocSysString(),
m_pConnection.GetInterfacePtr(),adOpenDynamic,adLockOptimistic,adCmdText);
}
catch(_com_error &e)
{
MessageBox(e.Description());
}

这样连接有问题吗？？？？

弹出窗口“不是有效帐户和密码” 连接无法用于此操作，它在上下文中关闭或者无效

...全文

356 9 打赏收藏转发到动态举报

写回复

用AI写文章

9 条回复

切换为时间正序

请发表友善的回复…

发表回复

GOD_cheng 2012-04-19

打赏
举报

[Quote=引用 8 楼的回复:]

这个连接串是连接Excel2003的，对2007连接不上。
[/Quote]

可以读取了，非常感谢啦，但为又有一个问题哈、
strData = pRecordset-> Fields-> Item["项目名称"]-> Value;
这样写完全没有问题，如果Item[]里面用变量代替，应该如何转化的呢？
如下代码中
strData = pRecordset-> Fields-> Item[_bstr_t((LPCTSTR)planprocess->GetAt(len))]-> Value;好像读取不了。。planprocess是一个CStringArray的指针。。。获取变量放在item[]中。。
for(int len =0 ; len<planprocess->GetSize(); len++){
MessageBox((_bstr_t)planprocess->GetAt(len));
strData = pRecordset-> Fields-> Item[_bstr_t((LPCTSTR)planprocess->GetAt(len))]-> Value;
str =(LPCTSTR)strData;
MessageBox(str);
}

LPCTSTR, _T,_bstr_t,_variant_t这四个关系完全不清楚。。。求解释。。

GPoint 2012-04-19

打赏
举报

这个连接串是连接Excel2003的，对2007连接不上。

GPoint 2012-04-19

打赏
举报

[Quote=引用 5 楼的回复:]
引用 4 楼的回复:

给你一段代码
C/C++ code

_ConnectionPtr pConnection;
_RecordsetPtr pRecordset;
CString tableName;
pConnection.CreateInstance("ADODB.Connection");//两种初始化只能ADO只能指针的方式
pRecordset.CreateIn……
[/Quote]
这个链接串是连接2003的，2007的连接串不一样。你上网上搜一下。2007和2003的连接串不一样。

GOD_cheng 2012-04-18

打赏
举报

[Quote=引用 4 楼的回复:]

给你一段代码
C/C++ code

_ConnectionPtr pConnection;
_RecordsetPtr pRecordset;
CString tableName;
pConnection.CreateInstance("ADODB.Connection");//两种初始化只能ADO只能指针的方式
pRecordset.CreateInstance (__uuidof(Re……
[/Quote]

很奇怪，刚开始运行还很好，后来运行
pConnection->Open((_bstr_t)adoinfo,"","",adModeUnknown);这里出异常。。。

GOD_cheng 2012-04-18

打赏
举报

GPoint 2012-04-18

打赏
举报

给你一段代码



_ConnectionPtr pConnection;

_RecordsetPtr pRecordset;

CString tableName;

pConnection.CreateInstance("ADODB.Connection");//两种初始化只能ADO只能指针的方式

pRecordset.CreateInstance (__uuidof(Recordset));

CString adoinfo；

//m_PathName是Excel文件的全路径

adoinfo.Format(_T("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;Extended Properties=Excel 8.0"),m_PathName);//连接Excel2003,其它版本连接串不一样

	try                 

	{  

		pConnection->Open((_bstr_t)adoinfo,"","",adModeUnknown);

		

		//读取表名

		pRecordset = NULL;

		pRecordset = pConnection->OpenSchema(adSchemaTables);

		_bstr_t table_name;

		CStringArray table_array;	

		while(!pRecordset->adoEOF)//获得表名

		{

			table_name = pRecordset->Fields->GetItem("TABLE_NAME")->Value;

			tableName=(LPCSTR)table_name;

			pRecordset->MoveNext();

			table_array.Add(tableName);

		}

for(int inTable=0;inTable<table_array.GetSize();inTable++)//循环查询工作表，选择出储存数据的工作薄

		{

			pRecordset->Close();

			pRecordset.Release();

			pRecordset=NULL;

			pRecordset.CreateInstance (__uuidof(Recordset));//每次Release连接对象以后，都要重新初始化连接对象。

			



			CString strSQL;

			strSQL.Format("SELECT * FROM [%s]",table_array.GetAt(inTable));

try

			{

				pRecordset->Open(_bstr_t(strSQL),                // 查询DemoTable表中所有字段

					pConnection.GetInterfacePtr(), // 获取库接库的IDispatch指针

					adOpenForwardOnly,//adOpenDynamic,adOpenKeyset

					adLockOptimistic,

					adCmdText);

				

			}

			catch(_com_error e)

			{

				EndWaitCursor(); 

				AfxMessageBox(e.Description()); 

				return false;

			}

//到这里就获取了一个Excel文件中一个表的所有数据的记录。

//	pRecordset->GetFields()->GetCount ();	获取表中的字段数

//获取序号为index的字段名

//b_FieldName=pRecordset->GetFields()->GetItem(_variant_t(long(index)))->GetName()

//获取指定当前记录指定字段(井名）的值

//pRecordset->GetFields()->GetItem(_variant_t("井名"))->Value

//pRecordset->MoveNext();移动到下条记录

//pRecordset->MoveFirst() 移动到第一条记录。