====关于ado一个问题====急！！=分数不够开贴再加！！＝＝＝＝=

[sunsfq]

//打开游标记录
BOOL CMemberView::ado_OpenCurRecordset(CString strTableName)
{
if(!m_fConnected) return FALSE;
if(strTableName.IsEmpty()) return FALSE;
AfxMessageBox("11");
//-------------------------------------------------------
HRESULT hr;
CString strQuery;
strQuery.Format("select * from %s", strTableName);
_bstr_t query = strQuery;
_bstr_t source = m_strSource;
AfxMessageBox("12");
try
{
hr = m_recordset->Open(query, source, adOpenDynamic, adLockOptimistic, adCmdText);
AfxMessageBox("13");
}
catch (_com_error &e)
{
MessageBox(e.ErrorMessage());
return FALSE;
}
//*/
AfxMessageBox("14");
return (SUCCEEDED(hr));
}

运行到m_recordset->Open处出错，如下
IDispatch #error 3149
－－－－－－－－－－－－－－－－－－－－－－－－－－
已经对从对com进行了初始化
相关函数如下：
BOOL CMemberApp::ATLInit()
{
m_bATLInited = TRUE;

#if _WIN32_WINNT >= 0x0400
HRESULT hRes = CoInitializeEx(NULL, COINIT_MULTITHREADED);
#else
HRESULT hRes = CoInitialize(NULL);
#endif

if (FAILED(hRes))
{
m_bATLInited = FALSE;
return FALSE;
}

return TRUE;
}

void CMemberApp::ATLOut()
{
if (m_bATLInited)
{
CoUninitialize();
}
}
－－－－－－－－－－－－－－－－－－－－－－－－
连接函数如下：
void CMemberView::ado_Connect()
{
_bstr_t source("Driver={SQL Server};Server=FH;Uid=sa;Pwd=sql;Database=FH");
_bstr_t user("sa");
_bstr_t pwd("");

HRESULT hr;
try
{
hr = m_connection.CreateInstance(__uuidof(Connection));
if(SUCCEEDED(hr))
{
hr = m_connection->Open(source, user, pwd, 16);
}
if(SUCCEEDED(hr))
{
hr=m_recordset.CreateInstance(__uuidof(Recordset));
}
if(SUCCEEDED(hr))
{
m_fConnected = TRUE;
}
else
{
m_fConnected = FALSE;
}
}
catch (_com_error &e)
{
MessageBox(e.ErrorMessage());
m_fConnected = FALSE;
}
if(!m_fConnected)
{
MessageBox("ADO数据源初始化失败!");
}
else
{
m_strSource = (const char * )source;
}//*/
}

[hxy2003]

UP...只会一点VB

[TaoGeGe]

你的query的值好像有點問題

up