|
p; Connected.setter(&CAdoConnection::SetConnected); Connected.getter(&CAdoConnection::GetConnected); // 创建一个连接实例 try { HRESULT hr = m_ptrConn.CreateInstance(__uuidof(Connection)); if (FAILED(hr)) { CString errormessage("创建实例失败!"); AfxMessageBox(errormessage); } } catch(_com_error & error) { CString errormessage; errormessage.Format("创建实例失败!\r\n错误信息:%s", error.ErrorMessage()); AfxMessageBox(errormessage); } // 设定连接等待的最大秒数，默认是15秒 m_ptrConn->ConnectionTimeout=15; UserName = ""; PassWord = ""; } CAdoConnection::~CAdoConnection() { if (GetConnected()) SetConnected(FALSE); m_ptrConn=NULL; } CAdoConnection::operator _ConnectionPtr() { return m_ptrConn; } void CAdoConnection::SetConnected(BOOL ConnectFlag) { if (TRUE == ConnectFlag) { try { // 打开连接 m_ptrConn->Open(ConnectingString.c_str(), UserName.c_str(), PassWord.c_str(), adModeUnknown); } catch(_com_error & error) { CString errormessage; errormessage.Format("连接数据库失败!\r\n错误信息:%s", error.ErrorMessage()); AfxMessageBox(errormessage); } } else { m_ptrConn->Close(); } } BOOL CAdoConnection::GetConnected() { if (m_ptrConn->State == adStateOpen) 上一页 [1] [2] [3] [4] [5] 下一页
[VB.NET程序]ADO 在informix的 Addnew [VB.NET程序]ADO 的测试
[VB.NET程序]ADO 揭密 1 [Web开发][ADO]如何修改ADO的线程模型
[Web开发]Delphi7下仿Ado.Net类的实现 [Web开发]通过COM使用ADO
[Web开发]ADO & ADO.NET中使用存储过程的两个共用的函数 [Web开发]Binding a DataGrid to an ADO Recordset
[Web开发]ADOCE for ADO Programmers [Web开发]Delphi多线程下的ADO编程
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
