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

wandou999 2004-10-15 10:27:11

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

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

...全文

611 18 打赏收藏转发到动态举报

写回复

用AI写文章

18 条回复

切换为时间正序

请发表友善的回复…

发表回复

bugyouth 2004-11-23

打赏
举报

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

rezood 2004-11-23

打赏
举报

老问题了

李秀国之印 2004-11-10

打赏
举报

to try it: gooyan(超级替补)

zhaogaojian 2004-11-10

打赏
举报

先通过控制面板配置一下

gooyan 2004-10-25

打赏
举报

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

追求自由 2004-10-22