连接Oracle的ADO操作de简单多线程~

多线程 (初始化连接数据库 有自己的Splash 显示图片)

// Thread in MySplash Init

HWND hWnd=this->GetSafeHwnd();

m_pThread=AfxBeginThread(MyAdoConnect,hWnd,THREAD_PRIORITY_NORMAL);//启动线程THREAD_PRIORITY_HIGHEST

m_pThread->m_bAutoDelete=FALSE; //线程为手动删除

// 线程函数

UINT MyAdoConnect(LPVOID pParam)

{

// COM初始化

::CoInitialize(0);

_ConnectionPtr pConn;

HRESULT hr;

hr = pConn.CreateInstance(__uuidof(Connection));

if(SUCCEEDED(hr))

{

try

{

pConn->ConnectionString = "Provider=OraOLEDB.Oracle.1;Password=LMS;Persist Security Info=True;User ID=LMS;Data Source=oradb1";//设置连接字符串

pConn ->ConnectionTimeout = 10; //设置连接的超时时间，可选

pConn ->CursorLocation = adUseServer; //设置光标的位置，可选

pConn ->Open("","","",-1);

}

catch(_com_error& e)

{

CString StrErr;

StrErr.Format("出错，连接数据库错误~\n错误：%s",e.ErrorMessage());

AfxMessageBox(StrErr);

::PostMessage( (HWND)pParam,WM_CLOSE,0,0);

bpConn = false;

return FALSE;

}

}

theApp.SetConn(pConn);

::PostMessage( (HWND)pParam,WM_CLOSE,0,0);

bpConn = true;

return TRUE;

}