连ADO,错在哪????~~~``

[wandou999]

http://community.csdn.net/Expert/topic/3450/3450090.xml?temp=.2066614
-----------------------------------------------------------------------
在class CHotel_MIS1App : public CWinApp中加入
public:
bool ADOExecute(_RecordsetPtr &ADOSet,_variant_t &strSQL);
_RecordsetPtr m_pADOSet;
int m_iLoginCount;
CString m_sCurrentUser;
CHotel_MIS1App();
extern CHotel_MIS1App theApp;
private:
_ConnectionPtr ADOConn;

在stdafx.h中加入:
#import "C:\Program Files\Common Files\System\ado\msado15.dll" no_namespace\
rename("EOF","EndOfFile")\
rename("LockTypeEnum","newLockTypeEnum")\
rename("DataTypeEnum","newDataTypeEnum")\
rename("FieldAttributeEnum","newFieldAttributeEnum")\
rename("EditModeEnum","newEditModeEnum")\
rename("RecordStatusEnum","newRecordStatusEnum")\
rename("ParameterDirectionEnum","newParameterDirectionEnum")

在BOOL CHotel_MIS1App::InitInstance()加入
m_iLoginCount=0;
if(FAILED(::CoInitialize(NULL)))
{
AfxMessageBox("ADO Init failed");
return false;
}
try
{
ADOConn.CreateInstance(__uuidof(Connection));
ADOConn->Open("DNS=Hotel_MIS1;Provider=MSDASQL","sa","",adConnectUnspecified);
}
catch(_com_error &e)
{
CString err;
err.Format("%s",(char*)(e.Description()));
AfxMessageBox(err);
}
catch(...)
{
AfxMessageBox("Unknown Error");
}
m_pADOSet.CreateInstance(__uuidof(Recordset));
在bool CHotel_MIS1App::ADOExecute(_RecordsetPtr &ADOSet, _variant_t &strSQL)
中加入
if(ADOSet->State==adStateOpen)ADOSet->Close();
try
{
ADOSet->Open(strSQL,ADOConn.GetInterfacePtr(),adOpenStatic,adLockOptimistic,adCmdUnknown);
return true;
}
catch(_com_error &e)
{
CString err;
err.Format("ADO Error:%s",(char*)e.Description());
AfxMessageBox(err);
return false;
}
在int CHotel_MIS1App::ExitInstance() 中加入
if(adStateOpen==ADOConn->State) ADOConn->Close();
ADOConn.Release();
if(adStateOpen==m_pADOSet->State)m_pADOSet->Close();
m_pADOSet.Release();
return CWinApp::ExitInstance();

这就是全部内容,麻烦大家了!!

[内存泄漏]

代码没有问题啊。。不知道为什么会出现你那样的情况，是不是你import的路径错了？？

还有，在int CHotel_MIS1App::ExitInstance() 里面添加下面一句：
::CoUninitialize();

[clack234]

错误信息或错误提示代码贴出来看看。

[快乐鹦鹉]

if (!AfxOleInit())
{
AfxMessageBox("初始化OLE失败！");
return FALSE;
}

[快乐鹦鹉]

放在BOOL CHotel_MIS1App::InitInstance()里面啊

[kugou123]

贴贴出错信息看看。

[wenxinfly]

借楼主的问一个
if(!m_pConnection.CreateInstance(__uuidof(Connection))) //
{
AfxMessageBox("Error!");
//
}
这个函数有错误
是什么原因？

[nanguadeng]

AppWizard中选上Automation

[sony19791015]

gz

[jayfunk]

你把！号后边的东东（）起来看看

[muliu92]

Connection 这个好象是 ADO.Connection 吧！

而且CreateInstance 它的返回值也不是一个bool\BOOL 啊！ 不是良好的变成习惯

[shakira008]

study

[danielzhu]

UP

[追求自由]

你连一下别的数据库看能不能连上？
你别用odbc,直连一下看能否成功，我的问题就是这样解决的。

[gooyan]

1.stdafx.h中加入
#import "C:\Program Files\Common Files\System\ado\msado15.dll" no_namespace rename("EOF","adoEOF")
2。app文件的InitInstance中加入
if(S_OK!=OleInitialize(NULL))
{
AfxMessageBox("初始化COM组件库错误");
}


下面就是数据库操作
_ConnectionPtr pConn;
_RecordsetPtr pRs;
CString strSQL;
pConn.CreateInstance(__uuidof(Connection));
pConn->CursorLocation=adUseClient;
strSQL="Provider=SQLOLEDB;Server=Gooyan;DataBase=SkillsBox;UID=sa;PWD=aaaaaaaa";
pConn->Open(_bstr_t(strSQL),"","",-1);

pRs.CreateInstance(__uuidof(Recordset));
pRs->CursorLocation=adUseClient;
pRs->PutActiveConnection(pConn.GetInterfacePtr());

pRs1.CreateInstance(__uuidof(Recordset));
pRs1->CursorLocation=adUseClient;
pRs1->PutActiveConnection(pConn.GetInterfacePtr());

strSQL="select * from catalog order by cataid";
pRs->Open(_bstr_t(strSQL),vtMissing,adOpenDynamic,adLockBatchOptimistic,adCmdText);

[zhaogaojian]

先通过控制面板配置一下

[李秀国之印]

to try it: gooyan(超级替补)

[rezood]

老问题了

[bugyouth]

注意OleInitialize函数在InitInstance函数中的位置，靠后一些