adoconn.cpp

java 大作业 《处方跟踪系统》源代码 gui界面

// ADOConn.cpp: implementation of the ADOConn class.
//
//////////////////////////////////////////////////////////////////////

#include "stdafx.h"
#include "libraryMS.h"
#include "ADOConn.h"

#ifdef _DEBUG
#undef THIS_FILE
static char THIS_FILE[]=__FILE__;
#define new DEBUG_NEW
#endif

extern _bstr_t ConnectionString; 
extern _bstr_t UserID; 
extern _bstr_t Password;
extern _bstr_t strConnect;

//////////////////////////////////////////////////////////////////////
// Construction/Destruction
//////////////////////////////////////////////////////////////////////

ADOConn::ADOConn()
{


}

ADOConn::~ADOConn()
{

}
void ADOConn::OnInitADOConn()	
{   //初始化OLE/ COM库环境
	::CoInitialize(NULL);
	 HRESULT   hr; 
	try
	{  //创建Connection 对象
		hr=m_pConnection.CreateInstance("ADODB.Connection");
		
		 if(SUCCEEDED(hr))   
         {   
		     m_pConnection->Open(strConnect,"","",adModeUnknown);   
		 } 
		
	}
	//捕抓异常
	catch(_com_error e)
	{   //现实错误信息
		CString   errorMsg;   
                  errorMsg.Format("连接数据库失败!\r\n错误信息:%s",e.ErrorMessage());   
                  AfxMessageBox(errorMsg);   

	}
}
_RecordsetPtr& ADOConn::GetRecordSet(_bstr_t bstrSQL)
{
  	try
	{  //连接数据库，如果Connection 对象为空，则重新连接数据库
		if(m_pConnection == NULL)
			OnInitADOConn();
		//创建记录集对象
		m_pRecordset.CreateInstance("ADODB.Recordset");
		//取得表中的记录
		m_pRecordset->Open(bstrSQL,m_pConnection.GetInterfacePtr(),adOpenDynamic,adLockOptimistic,adCmdText);
	}
	catch(_com_error e)
	{
		AfxMessageBox(e.Description());
		CString   errorMsg;   
                  errorMsg.Format("连接数据库失败!\r\n错误信息:%s",e.ErrorMessage());   
                  AfxMessageBox(errorMsg);   
	}
	return m_pRecordset;
}		
BOOL ADOConn::ExecuteSQL(_bstr_t bstrSQL)
{
	try
	{  //是否连接数据库
		if(m_pConnection == NULL)
			OnInitADOConn();
		m_pConnection->Execute(bstrSQL,NULL,adCmdText);
		return true;
	}
	catch(_com_error e)
	{
		AfxMessageBox(e.Description());
		return false;
	}
}
void ADOConn::ExitConnect()
{  //关闭记录集和连接
	if(m_pRecordset != NULL)
		m_pRecordset->Close();
	m_pConnection->Close();
	::CoUninitialize();					//释放环境
}