谁有vc的ado连接oracle的代码？谢谢！100分。急！分不够再加！进来就有

Question

rt，我现在做好了连接sqlserver2000的代码。oracle的不太熟悉，急！谢谢.

Answer 1

_ConnectionPtr pCn;
_variant_t vRows;

pCn.CreateInstance(__uuidof(Connection));
int i=::GetLastError();
pCn->CursorLocation=adUseClient; CString strConnect,strSql;
strConnect=_T("Provider=msdaora.1;data source=orcl;user id=system;password=manager;");//必须用user id和password，不能简写成uid、pwd
strSql="insert into temp (time) values('2003-9-1')";

try{
pCn->Open(_bstr_t(strConnect),L"",L"",-1);
pCn->Execute(_bstr_t(strSql),&vRows,adCmdText);
pCn->Close();
pCn=NULL;
}
catch(_com_error &e){
::AfxMessageBox(e.Description());
}

Answer 2

还有一种，可能更好，如下：
driver={Microsoft ODBC for Oracle};server=wgw;uid=users;pwd=users

Answer 3

http://www.ccw.com.cn/htm/app/aprog/01_2_12_2.asp

Answer 4

DATA_SOURCE = "Provider=oraoledb.oracle;Data Source=aaa;User ID=system; Password=manager"

Answer 5

/*========================================================================
Name: 连接到数据源.
-----------------------------------------------------
Params: [lpszConnect]: 连接字符串, 包含连接信息.
[lOptions]: 可选. 决定该方法是以同步还是异步的方式连接数据
源. 可以是如下某个常量:
[常量] [说明] 
----------------------------------
adConnectUnspecified (默认)同步方式打开连接. 
adAsyncConnect 异步方式打开连接. Ado用 ConnectComplete 事
件来通知已经完成连接. 
==========================================================================*/
BOOL CAdoConnection::Open(LPCTSTR lpszConnect, long lOptions)
{
ASSERT(m_pConnection != NULL);
ASSERT(AfxIsValidString(lpszConnect));

if (strcmp(lpszConnect, _T("")) != 0)
{
m_strConnect = lpszConnect;
} if (m_strConnect.IsEmpty())
{
ASSERT(FALSE);
return FALSE;
} if (IsOpen()) Close(); try
{
// 连接数据库 ---------------------------------------------
return (m_pConnection->Open(_bstr_t(LPCTSTR(m_strConnect)), "", "", lOptions) == S_OK);
}
catch (_com_error e)
{
TRACE(_T("Warning: 连接数据库发生异常. 错误信息: %s; 文件: %s; 行: %d\n"), e.ErrorMessage(), __FILE__, __LINE__);
TRACE(_T("%s\r\n"), GetLastErrorText());
return FALSE;
} 
catch (...)
{
TRACE(_T("Warning: 连接数据库时发生未知错误:"));
}
return FALSE;
}上面的变量：
_ConnectionPtr m_pConnection;
CString m_strConnect;

Answer 6

const _ConnectionPtr OpenConnection(BSTR v_strDataSource, BSTR v_strUser,BSTR v_strPassword);