高手请进，函数运行完后，弹出对话框，提示该程序遇到问题，需要关闭

void CMainFrame::OnDatabase5to4() 
{
// TODO: Add your command handler code here
//////////////////////////////////////////////////
//打开数据库连接
    COracleDatabase m_Oracle;
m_Oracle.OpenGISTDatabase(); CString strsql;OValue ovalue;oresult hresult;
long control_node_no,corsim_node_no; //strsql格式化
  strsql="select * from node_no_transform_table";
m_Oracle.sql=strsql;//将strsql传递给m_Oracle.sql，从而创建查询 //查询数据 
ODynaset rs(m_Oracle.m_odb,m_Oracle.sql);
while(!rs.IsEOF())
{
      hresult=rs.GetFieldValue("control_node_no",&ovalue);
      control_node_no=ovalue;   hresult=rs.GetFieldValue("corsim_node_no",&ovalue);
  corsim_node_no=ovalue;   ///////////////////////////////////////////////////
      CString* str;
  str=new CString[250]; 
  str->Format("select * from bj_transrealdata_table where node_no=%d",control_node_no);
  m_Oracle.sql=*str;      ODynaset rsd(m_Oracle.m_odb,m_Oracle.sql);   while(!rsd.IsEOF())
  {
  if(OSUCCESS!=rsd.StartEdit())
  return;
  hresult=rsd.SetFieldValue("node_no",corsim_node_no);
          //更新
  hresult=rsd.Update();
          //下一个
  hresult=rsd.MoveNext();
  }//while(!record.IsEOF())      //rsd.Close();
  delete str;
  //下一个
  hresult=rs.MoveNext();
     }//while(!rs.IsEOF()) //rs.Close(); AfxMessageBox("数据库改动完成!");
}