void CAGROracleTestHarness::Connect()
{
 CoInitialize(NULL);

 m_dsDBSource = new CDataSource();
 m_csConnection = new CSession();
 m_pcmdStatement = new CCommand<CDynamicAccessor>;

 CDBPropSet ConnectionProperties(DBPROPSET_DBINIT);

 ConnectionProperties.AddProperty(DBPROP_INIT_DATASOURCE, m_sServer);

 ConnectionProperties.AddProperty(DBPROP_AUTH_USERID, m_sUserID);

 ConnectionProperties.AddProperty(DBPROP_AUTH_PASSWORD, m_sPassword);

 ConnectionProperties.AddProperty(DBPROP_INIT_CATALOG, m_sDatabase);

 ConnectionProperties.AddProperty(DBPROP_INIT_PROMPT, (short)DBPROMPT_NOPROMPT);

 m_dsDBSource->OpenWithServiceComponents(m_sProvider, &ConnectionProperties));

 // Open the connection.
 m_csConnection->Open(*m_dsDBSource);
}

void CAGROracleTestHarness::Execute()
{
 Connect();

 CDBPropSet ConnectionProperties(ORAPROPSET_COMMANDS);
 ConnectionProperties.AddProperty(ORAPROP_NDatatype, true);

 HRESULT hResult = m_pcmdStatement->Open(*m_csConnection, _T("UPDATE client SET  
                                      comments = N'文本的' WHERE id = 2"), &ConnectionProperties);
}