使用ADO连接Oracle81数据库时在AddNew时提示数据集不支持更新的问题???请各位大侠指点迷津在线等

xmndragon 2004-07-25 12:02:16
连接函数:
//////////////////////////////////////////////////////////////////////////
// 数据库连接函数。
// ip:数据库ip地址、uid:用户名、 pwd:密码 、source库名
//////////////////////////////////////////////////////////////////////////
BOOL CGatherDoc::ConnectToDB(CString ip,CString uid,CString pwd,CString source)
{
HRESULT hr = S_OK;

if(m_pConnection!=NULL)
{
m_pRecordset=NULL;
m_pConnection->Close();
m_pConnection=NULL;
}
_bstr_t bstrConnectString;
_bstr_t bstrUserID;
_bstr_t bstrPassword;
CString temp;
::CoInitialize(NULL);
try
{
// NOTE: In the following lines, provide your own
// connection string to pubs and user ID as indicated:
// Initialize variables Provider=SQLOLEDB; Data Source=%s,1433;Persist Security Info=False;Initial Catalog=DATADB
//server=//=; Initial Catalog=DATADB
temp.Format(_T("Provider=MSDAORA.1;Data Source=sode_%s;Data Source=%s"),ip,source);
bstrConnectString = temp;
bstrUserID = uid;
bstrPassword = pwd;

// Create an instance of ADOConnection:
if(SUCCEEDED(hr))
hr = m_pConnection.CreateInstance("ADODB.Connection");

// Open the connection:
if(SUCCEEDED(hr))
hr = m_pConnection->Open(bstrConnectString, bstrUserID, bstrPassword,adOptionUnspecified);

// Create an instance of a recordset:
if(SUCCEEDED(hr))
hr = m_pRecordset.CreateInstance(__uuidof(Recordset), NULL);

// When you call GetRecordSet you get a pointer to this recordset:
return SUCCEEDED(hr);
}
catch(_com_error &err)
{
TCHAR szBuf[2056];
_tcscpy(szBuf, _T(""));
_tcscat(szBuf, err.ErrorMessage());
_bstr_t bstrSource(err.Source());
_bstr_t bstrDesc(err.Description());
_tcscat(szBuf, (char*)bstrSource);
_tcscat(szBuf, (char*)bstrDesc);
Message(_T(szBuf));
return FALSE;
}
}
游标OPEN函数:
//////////////////////////////////////////////////////////////////////////
// 数据库查询函数。
// str:SQL语句
// 返回: TRUE 成功 FALSE 查询过程有错误
//////////////////////////////////////////////////////////////////////////
BOOL CGatherDoc::OpenRecordset(CString str)
{
HRESULT hr = S_OK;
try
{
// Open that recordset to a valid table:
_bstr_t bstrQuery=str;
_variant_t vQuery(bstrQuery);
// Pass the ADOConnectionPtr to the recordset so that the
// recordset connects to the appropriate database:
_variant_t vDispatch((IDispatch*)m_pConnection);
// Open the recordset:
hr = m_pRecordset->Open(vQuery,
vDispatch,
adOpenDynamic,
adLockOptimistic,
adCmdText);
return TRUE;
}
catch(_com_error &err)
{
TCHAR szBuf[2056];
_tcscpy(szBuf, _T(""));
_tcscat(szBuf, err.ErrorMessage());
_bstr_t bstrSource(err.Source());
_bstr_t bstrDesc(err.Description());
_tcscat(szBuf, (char*)bstrSource);
_tcscat(szBuf, (char*)bstrDesc);
Message(_T(szBuf));
return FALSE;
}
}
数据记录添加处代码:

if(OpenRecordset(SQL))
{
try
{
if(m_pRecordset->adoEOF)
{
......
m_pRecordset->AddNew(&rgf,&rgv);
}
}

}
请各位大侠指点迷津
...全文
202 2 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
danielzhu 2004-07-25
  • 打赏
  • 举报
回复
学习
Kudeet 2004-07-25
  • 打赏
  • 举报
回复
在打开数据库前加个
pRecordSet->CursorLocation = adUseClient;试
内容概要:本文档是2025年全国广播电视技术能手竞赛IPTV专业的竞赛内容大纲,旨在指导参赛选手准备比赛。竞赛分为理论和实操两大部分。理论部分涵盖基本知识、基础理论和专业知识,包括法律法规、技术标准、IPTV技术基础、信号传输与分发、网络和数据安全等。实操部分则涉及IPTV系统设备、仪器设备的操作使用和指标测量。具体内容包括IPTV系统架构、传输技术与指标、设备配置及维护、专业技能如测量工具使用、视音频指标测量、直播点播协议分析、播出网络性能测量、网络安全数据分析以及系统故障排查等。 适合人群:从事或有意从事IPTV相关工作的技术人员,尤其是有志于参加全国广播电视技术能手竞赛的专业人士。 使用场景及目标:①帮助参赛选手全面了解并掌握IPTV相关的法规文件和技术标准;②提升选手对IPTV系统架构、传输技术和设备配置的理解;③增强选手在实际操作中的测量、分析和故障排查能力;④确保选手能够熟练运用各种测量工具和分析软件进行视音频指标测量和网络安全数据分析。 阅读建议:由于文档内容详尽且专业性强,建议读者在学习过程中结合实际案例和操作练习,同参考相关技术文献,以便更好地理解和掌握竞赛所需的知识和技能。

4,018

社区成员

发帖
与我相关
我的任务
社区描述
VC/MFC 数据库
社区管理员
  • 数据库
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧