开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 数据库系统 > Oracle数据库 > 查看源码
COCIExampleDlg.cpp
资源名称：OCI+Oracle.rar　[点击查看]
上传用户：qiye66685
上传日期：2013-03-10
资源大小：49k
文件大小：16k
源码类别：

Oracle数据库

开发平台：

Visual C++

COCIExampleDlg.cpp：源码内容
  1. // COCIExampleDlg.cpp : implementation file
  2. //
  4. #include "stdafx.h"
  5. #include "COCIExample.h"
  6. #include "COCIExampleDlg.h"
  7. #include "ConnectDlg.h"
  8. #ifdef _DEBUG
  9. #define new DEBUG_NEW
  10. #undef THIS_FILE
  11. static char THIS_FILE[] = __FILE__;
  12. #endif
  14. /////////////////////////////////////////////////////////////////////////////
  15. // CAboutDlg dialog used for App About
  17. class CAboutDlg : public CDialog
  18. {
  19. public:
  20. CAboutDlg();
  22. // Dialog Data
  23. //{{AFX_DATA(CAboutDlg)
  24. enum { IDD = IDD_ABOUTBOX };
  25. //}}AFX_DATA
  27. // ClassWizard generated virtual function overrides
  28. //{{AFX_VIRTUAL(CAboutDlg)
  29. protected:
  30. virtual void DoDataExchange(CDataExchange* pDX);    // DDX/DDV support
  31. //}}AFX_VIRTUAL
  33. // Implementation
  34. protected:
  35. //{{AFX_MSG(CAboutDlg)
  36. //}}AFX_MSG
  37. DECLARE_MESSAGE_MAP()
  38. };
  40. CAboutDlg::CAboutDlg() : CDialog(CAboutDlg::IDD)
  41. {
  42. //{{AFX_DATA_INIT(CAboutDlg)
  43. //}}AFX_DATA_INIT
  44. }
  46. void CAboutDlg::DoDataExchange(CDataExchange* pDX)
  47. {
  48. CDialog::DoDataExchange(pDX);
  49. //{{AFX_DATA_MAP(CAboutDlg)
  50. //}}AFX_DATA_MAP
  51. }
  53. BEGIN_MESSAGE_MAP(CAboutDlg, CDialog)
  54. //{{AFX_MSG_MAP(CAboutDlg)
  55. // No message handlers
  56. //}}AFX_MSG_MAP
  57. END_MESSAGE_MAP()
  59. /////////////////////////////////////////////////////////////////////////////
  60. // CCOCIExampleDlg dialog
  62. CCOCIExampleDlg::CCOCIExampleDlg(CWnd* pParent /*=NULL*/)
  63. : CDialog(CCOCIExampleDlg::IDD, pParent)
  64. {
  65. //{{AFX_DATA_INIT(CCOCIExampleDlg)
  66. m_strTablename = _T("");
  67. m_strFieldName = _T("");
  68. m_strCondition = _T("");
  69. m_strFieldVal = _T("");
  70. m_strConFName = _T("");
  71. m_strConFVal = _T("");
  72. //}}AFX_DATA_INIT
  73. // Note that LoadIcon does not require a subsequent DestroyIcon in Win32
  74. m_hIcon = AfxGetApp()->LoadIcon(IDR_MAINFRAME);
  75. }
  77. CCOCIExampleDlg::~CCOCIExampleDlg()
  78. {
  79. OCISessionEnd(svchp,errhp,authp,(ub4)0);
  80. OCIServerDetach(srvhp,errhp,OCI_DEFAULT);
  82. OCIHandleFree((dvoid*)srvhp,OCI_HTYPE_SERVER);
  83. OCIHandleFree((dvoid*)svchp,OCI_HTYPE_SVCCTX);
  84. OCIHandleFree((dvoid*)errhp,OCI_HTYPE_ERROR);
  85. OCIHandleFree((dvoid*)authp,OCI_HTYPE_SESSION);
  86. OCIHandleFree((dvoid*)stmthp,OCI_HTYPE_STMT);
  87. OCIHandleFree((dvoid*)dschp,OCI_HTYPE_DESCRIBE);
  88. }
  90. void CCOCIExampleDlg::DoDataExchange(CDataExchange* pDX)
  91. {
  92. CDialog::DoDataExchange(pDX);
  93. //{{AFX_DATA_MAP(CCOCIExampleDlg)
  94. DDX_Control(pDX, IDC_CO_CONFNAME, m_comConFNameCtrl);
  95. DDX_Control(pDX, IDC_COBFNAME, m_comboCtrl);
  96. DDX_Control(pDX, IDC_LIST_TABLEDATA, m_listCtrl);
  97. DDX_Control(pDX, IDC_LIST_TABLENAME, m_listTablename);
  98. DDX_LBString(pDX, IDC_LIST_TABLENAME, m_strTablename);
  99. DDX_CBString(pDX, IDC_COBFNAME, m_strFieldName);
  100. DDX_CBString(pDX, IDC_COMB_CONDITION, m_strCondition);
  101. DDX_Text(pDX, IDC_EFFIELDVAL, m_strFieldVal);
  102. DDX_CBString(pDX, IDC_CO_CONFNAME, m_strConFName);
  103. DDX_Text(pDX, IDC_EDIT1, m_strConFVal);
  104. //}}AFX_DATA_MAP
  105. }
  107. BEGIN_MESSAGE_MAP(CCOCIExampleDlg, CDialog)
  108. //{{AFX_MSG_MAP(CCOCIExampleDlg)
  109. ON_WM_SYSCOMMAND()
  110. ON_WM_PAINT()
  111. ON_WM_QUERYDRAGICON()
  112. ON_BN_CLICKED(IDC_BUT_CONNECTDB, OnButConnectdb)
  113. ON_BN_CLICKED(IDC_B_TABLESELECTOK, OnBTableselectok)
  114. ON_BN_CLICKED(IDC_BUT_QUERY, OnButQuery)
  115. ON_BN_CLICKED(IDC_BUT_DELETE, OnButDelete)
  116. ON_BN_CLICKED(IDC_BUT_UPTATE, OnButUpdate)
  117. //}}AFX_MSG_MAP
  118. END_MESSAGE_MAP()
  120. /////////////////////////////////////////////////////////////////////////////
  121. // CCOCIExampleDlg message handlers
  123. BOOL CCOCIExampleDlg::OnInitDialog()
  124. {
  125. CDialog::OnInitDialog();
  127. // Add "About..." menu item to system menu.
  129. // IDM_ABOUTBOX must be in the system command range.
  130. ASSERT((IDM_ABOUTBOX & 0xFFF0) == IDM_ABOUTBOX);
  131. ASSERT(IDM_ABOUTBOX < 0xF000);
  133. CMenu* pSysMenu = GetSystemMenu(FALSE);
  134. if (pSysMenu != NULL)
  135. {
  136. CString strAboutMenu;
  137. strAboutMenu.LoadString(IDS_ABOUTBOX);
  138. if (!strAboutMenu.IsEmpty())
  139. {
  140. pSysMenu->AppendMenu(MF_SEPARATOR);
  141. pSysMenu->AppendMenu(MF_STRING, IDM_ABOUTBOX, strAboutMenu);
  142. }
  143. }
  145. // Set the icon for this dialog.  The framework does this automatically
  146. //  when the application's main window is not a dialog
  147. SetIcon(m_hIcon, TRUE); // Set big icon
  148. SetIcon(m_hIcon, FALSE); // Set small icon
  150. // TODO: Add extra initialization here
  152. return TRUE;  // return TRUE  unless you set the focus to a control
  153. }
  155. void CCOCIExampleDlg::OnSysCommand(UINT nID, LPARAM lParam)
  156. {
  157. if ((nID & 0xFFF0) == IDM_ABOUTBOX)
  158. {
  159. CAboutDlg dlgAbout;
  160. dlgAbout.DoModal();
  161. }
  162. else
  163. {
  164. CDialog::OnSysCommand(nID, lParam);
  165. }
  166. }
  168. // If you add a minimize button to your dialog, you will need the code below
  169. //  to draw the icon.  For MFC applications using the document/view model,
  170. //  this is automatically done for you by the framework.
  172. void CCOCIExampleDlg::OnPaint() 
  173. {
  174. if (IsIconic())
  175. {
  176. CPaintDC dc(this); // device context for painting
  178. SendMessage(WM_ICONERASEBKGND, (WPARAM) dc.GetSafeHdc(), 0);
  180. // Center icon in client rectangle
  181. int cxIcon = GetSystemMetrics(SM_CXICON);
  182. int cyIcon = GetSystemMetrics(SM_CYICON);
  183. CRect rect;
  184. GetClientRect(&rect);
  185. int x = (rect.Width() - cxIcon + 1) / 2;
  186. int y = (rect.Height() - cyIcon + 1) / 2;
  188. // Draw the icon
  189. dc.DrawIcon(x, y, m_hIcon);
  190. }
  191. else
  192. {
  193. CDialog::OnPaint();
  194. }
  195. }
  197. // The system calls this to obtain the cursor to display while the user drags
  198. //  the minimized window.
  199. HCURSOR CCOCIExampleDlg::OnQueryDragIcon()
  200. {
  201. return (HCURSOR) m_hIcon;
  202. }
  204. void CCOCIExampleDlg::OnButConnectdb() 
  205. {
  206. // TODO: Add your control notification handler code here
  207. ErrorProc(errhp,OCIEnvInit(& envhp,OCI_DEFAULT,0,0));
  208. OCIHandleAlloc(envhp,(void**)& errhp,OCI_HTYPE_ERROR,0,0);
  209. OCIHandleAlloc(envhp,(void**)& srvhp,OCI_HTYPE_SERVER,0,0);
  210.     OCIHandleAlloc(envhp,(void**)& svchp,OCI_HTYPE_SVCCTX,0,0);
  211. OCIHandleAlloc(envhp,(void**)& authp,OCI_HTYPE_SESSION,0,0);
  212.     OCIHandleAlloc((dvoid*)envhp,(dvoid**)& dschp,OCI_HTYPE_DESCRIBE,0,0);
  213. OCIHandleAlloc((dvoid*)envhp,(dvoid**)& stmthp,OCI_HTYPE_STMT,0,0);
  215. CConnectDlg ConnDlg;
  216.     ConnDlg.m_strDBName="vwserver";
  217. ConnDlg.m_strUserName="";
  218. ConnDlg.m_strUserID="";
  219. if(ConnDlg.DoModal()==IDCANCEL) 
  220. {
  221.         MessageBox("DLG has been out!");
  222. return;
  223. }
  225. UpdateData(true);
  226. sword status;
  227. status=OCIServerAttach(srvhp,errhp,(unsigned char*)(LPCTSTR)ConnDlg.m_strDBName,
  228.                (sb4)strlen(ConnDlg.m_strDBName),OCI_DEFAULT);
  229. if(status!=0)
  230. {
  231.          MessageBox("Database has been found!");
  232. }
  234. ErrorProc(errhp,OCIAttrSet((dvoid*)svchp,(ub4) OCI_HTYPE_SVCCTX,
  235.   (dvoid*)srvhp,(ub4)0,OCI_ATTR_SERVER,errhp));
  237. LPCTSTR uid,pwd;
  238. uid=ConnDlg.m_strUserName;
  239. pwd=ConnDlg.m_strUserID;
  241. ErrorProc(errhp,OCIAttrSet(authp,OCI_HTYPE_SESSION,
  242. (dvoid*)uid,(ub4)strlen(uid),OCI_ATTR_USERNAME,errhp));
  243.     ErrorProc(errhp,OCIAttrSet(authp,OCI_HTYPE_SESSION,(dvoid*)pwd,
  244. (ub4)strlen(pwd),OCI_ATTR_PASSWORD,errhp));
  245.     
  246. //status=OCISessionBegin(svchp,errhp,authp,OCI_CRED_RDBMS,OCI_DEFAULT);//这句话连不上!
  247. ErrorProc(errhp,OCISessionBegin(svchp,errhp,authp,OCI_CRED_RDBMS,OCI_DEFAULT));
  248.     
  250. if(status==OCI_ERROR) 
  251. {
  252. MessageBox("Database has not been connected!");
  253. return;
  254. }
  256. status=OCIAttrSet(svchp,OCI_HTYPE_SVCCTX,(dvoid*)authp,0,OCI_ATTR_SESSION,errhp);
  257. if(status!=0) return;
  259. CString strSQL;
  260. text    textSQL[1024];
  261. strSQL="SELECT TABLE_NAME FROM USER_TABLES";
  262. wsprintf((char*)textSQL,"%s",strSQL);
  263. status=OCIStmtPrepare(stmthp,errhp,textSQL,
  264. strlen((char*)textSQL),OCI_NTV_SYNTAX,OCI_DEFAULT);
  266. ErrorProc(errhp,OCIStmtExecute(svchp,stmthp,errhp,(ub4)0,0,
  267. NULL,NULL,OCI_DEFAULT));
  269. // ub4 col_num;//还没有使用.
  270. ErrorProc(errhp,OCIParamGet(stmthp,OCI_HTYPE_STMT,
  271. errhp,(void**)& colhp,1));
  272. ErrorProc(errhp,OCIAttrGet(colhp,OCI_DTYPE_PARAM,
  273. &collen[0],0,OCI_ATTR_DATA_SIZE,errhp));
  274. ErrorProc(errhp,OCIAttrGet(colhp,OCI_DTYPE_PARAM,
  275. &coltype[0],0,OCI_ATTR_DATA_TYPE,errhp));
  276. colbuf[0]=(text*)new text[(int)collen[0]+1];
  278. ErrorProc(errhp,OCIDefineByPos(stmthp,&defhp[0],
  279. errhp,1,(ub1*)colbuf[0],collen[0]+1,SQLT_STR,
  280. &ind[0],0,0,OCI_DEFAULT));                      //defhp中的参数修改过!
  282. while((OCIStmtFetch(stmthp,errhp,1,OCI_FETCH_NEXT,
  283. OCI_DEFAULT))!=OCI_NO_DATA)
  284. {
  285. m_listTablename.AddString((char*) colbuf[0]);
  286. }
  287. delete colbuf[0];
  289. }
  291. void CCOCIExampleDlg::ErrorProc(dvoid *err, sword status)
  292. {
  293. CString str;
  294. sb4 errcode;
  295. text errbuf[512];
  296.     if(status==OCI_ERROR)
  297. {
  298. OCIErrorGet((dvoid*)errhp,(ub4)1,NULL,&errcode,errbuf,
  299.         (ub4)sizeof(errbuf),OCI_HTYPE_ERROR);
  300. str.Format("error:%dn error information:%sn",errcode,errbuf);
  301. AfxMessageBox(str);
  302. }
  303. }
  305. void CCOCIExampleDlg::OnBTableselectok() 
  306. {
  307. // TODO: Add your control notification handler code here
  308. TableName="";
  309. int item=m_listTablename.GetCurSel();
  310. m_listTablename.GetText(item,TableName);
  311. if(TableName=="")return;
  313. text textSQL[1024];
  314. sword status;
  315. status=wsprintf((char *)textSQL,"SELECT * FROM %s",TableName);
  316. if(OCI_SUCCESS!=OCIStmtPrepare(stmthp,errhp,textSQL,strlen((char *)textSQL),
  317. OCI_NTV_SYNTAX,OCI_DEFAULT))
  318. {
  319. ErrorProc(errhp,status);
  320. return;
  321. }
  322. if(OCI_SUCCESS!=OCIStmtExecute(svchp,stmthp,errhp,(ub4)0,0,NULL,NULL,OCI_DEFAULT))
  323. {
  324. MessageBox("SQL语句没有成功执行!");
  325. ErrorProc(errhp,status);
  326. return;
  327. }
  329. ub4 col_num;
  330.     
  331. ErrorProc(errhp,OCIAttrGet(stmthp,OCI_HTYPE_STMT,&col_num,0,OCI_ATTR_PARAM_COUNT,errhp));
  332. ColumnNumbers=(int)col_num;
  333. text *namep;
  334. ub4   sizep;
  335. text tempText[100];
  337. for(int i=0;i<(int)col_num;i++)
  338. {
  339. ErrorProc(errhp,OCIParamGet(stmthp,OCI_HTYPE_STMT,errhp,(void**)&colhp,ub4(i+1)));
  340. ErrorProc(errhp,OCIAttrGet(colhp,OCI_DTYPE_PARAM,&collen[i],0,OCI_ATTR_DATA_SIZE,errhp));
  341. ErrorProc(errhp,OCIAttrGet(colhp,OCI_DTYPE_PARAM,&coltype[i],0,OCI_ATTR_DATA_TYPE,errhp));
  342. if(coltype[i]==SQLT_DAT) collen[i]=30;
  344. colbuf[i]=(text*)new text[(int)collen[i]+1];
  346. ErrorProc(errhp,OCIAttrGet(colhp,OCI_DTYPE_PARAM,(dvoid*)&namep,(ub4*)&sizep,OCI_ATTR_NAME,errhp));
  347. strncpy((char*)tempText,(char*)namep,(size_t)sizep);
  348. tempText[sizep]='';
  349. ColName[i].Format("%s",tempText);
  351. }
  353. for(i=0;i<(int)col_num;i++)
  354. {
  355. if(OCI_SUCCESS!=OCIDefineByPos(stmthp,&defhp[i],errhp,i+1,(ub1*)colbuf[i],
  356. collen[i]+1,SQLT_STR,&ind[i],0,0,OCI_DEFAULT))
  357. {
  358. ErrorProc(errhp,status);
  359. return;
  360. }
  361. }
  363. int row=0;
  365. while(OCI_SUCCESS==OCIStmtFetch(stmthp,errhp,1,OCI_FETCH_NEXT,OCI_DEFAULT))
  366. {
  367. for(i=0;i<(int)col_num;i++)
  368. {
  369. ColVal[row][i]=colbuf[i];
  370. }
  371. row++;             
  372. }
  374. for(i=0;i<(int)col_num;i++)//problem has been solved!
  375. delete colbuf[i];
  377. m_listCtrl.ModifyStyle(NULL,LVS_REPORT);
  378. m_listCtrl.SetExtendedStyle(LVS_EX_FLATSB |LVS_EX_FULLROWSELECT|LVS_EX_GRIDLINES);
  379. m_listCtrl.SetFocus();
  381. int ColNumber=m_listCtrl.GetHeaderCtrl()->GetItemCount();
  383. for(i=0;i<ColNumber;i++)
  384. m_listCtrl.DeleteColumn(i);//change the original.(0->i)(my idea is right!)
  386. for(i=0;i<(int)col_num;i++)
  387. m_listCtrl.InsertColumn(i,ColName[i],LVCFMT_LEFT,60,0);
  389. m_listCtrl.DeleteAllItems();
  390. for(i=0;i<row;i++)
  391. {
  392. m_listCtrl.InsertItem(LVIF_TEXT|LVIF_STATE,i,ColVal[i][0],
  393. (i%2)==0?LVIS_SELECTED:0,LVIS_SELECTED,0,0);
  394. for(int j=1;j<(int)col_num;j++)
  395. m_listCtrl.SetItemText(i,j,ColVal[i][j]);
  396. }                                           //自己把参数写错了,以后遍尝的时候要特别小心!
  398. for(i=0;i<(int)ColumnNumbers;i++)
  399. m_comboCtrl.AddString(ColName[i]);
  401. for(i=0;i<(int)col_num;i++)
  402. m_comConFNameCtrl.AddString(ColName[i]);
  404. }
  406. void CCOCIExampleDlg::OnButQuery() 
  407. {
  408. // TODO: Add your control notification handler code here
  410.     UpdateData(TRUE);
  411. CString FieldName=m_strFieldName;
  412. CString strCondition=m_strCondition;
  413. CString strFieldVal=m_strFieldVal;
  415. sword status;
  416. text  textSQL[1024];
  417. wsprintf((char*)textSQL,"SELECT *FROM %s WHERE %s %s :CONDITION",
  418. TableName,FieldName,strCondition);
  419. if(status=OCIStmtPrepare(stmthp,errhp,textSQL,
  420. strlen((char*)textSQL),OCI_NTV_SYNTAX,OCI_DEFAULT))
  421. {
  422. ErrorProc(errhp,status);
  423. return;
  424. }
  426. text *textConVal;
  427. sb4   len;
  428. int strlength=strFieldVal.GetLength();
  429. textConVal=new text[strlength+1];
  430. wsprintf((char*)textConVal,"%s",strFieldVal);
  431. textConVal[strlength]='';
  432. len=strlen((const char*)textConVal)+1;
  434. if(status=OCIBindByName(stmthp,&bidhp[0],errhp,(text*) ":CONDITION",-1,
  435. (ub1 *)textConVal,len,SQLT_STR,0,0,0,0,0,OCI_DEFAULT))
  436. {
  437. ErrorProc(errhp,status);
  438. return;
  439. }
  440. if(status=OCIStmtExecute(svchp,stmthp,errhp,(ub4)0,0,NULL,NULL,OCI_DEFAULT))
  441. {
  442. ErrorProc(errhp,status);
  443. return;
  444. }
  445. ub4 col_num;
  447. ErrorProc(errhp,OCIAttrGet(stmthp,OCI_HTYPE_STMT,&col_num,0,OCI_ATTR_PARAM_COUNT,errhp));
  448. for(int i=0;i<(int)col_num;i++)
  449. {
  450. ErrorProc(errhp,OCIParamGet(stmthp,OCI_HTYPE_STMT,errhp,
  451. (void **)&colhp,ub4(i+1)));
  453. ErrorProc(errhp,OCIAttrGet(colhp,OCI_DTYPE_PARAM,&collen[i],0,
  454. OCI_ATTR_DATA_SIZE,errhp));
  455. ErrorProc(errhp,OCIAttrGet(colhp,OCI_DTYPE_PARAM,&coltype[i],
  456. 0,OCI_ATTR_DATA_TYPE,errhp));
  458. if(coltype[i]==SQLT_DAT)
  459. collen[i]=30;
  461. colbuf[i]=(text*)new text [(int)collen[i]+1];
  462. }
  463. for(i=0;i<(int)col_num;i++)
  464. {
  465. if(status=OCIDefineByPos(stmthp,&defhp[i],
  466. errhp,i+1,(ub1*)colbuf[i],collen[i]+1,SQLT_STR,&ind[i],0,0,OCI_DEFAULT))
  467. {
  468. ErrorProc(errhp,status);
  469. return;
  470. }
  471. }
  473. int row=0;
  474. while((OCIStmtFetch(stmthp,errhp,1,OCI_FETCH_NEXT,OCI_DEFAULT))!=OCI_NO_DATA)
  475. {
  476. for(i=0;i<(int)col_num;i++)
  477. {
  478. ColVal[row][i]="";
  479. if(ind[i]==-1)
  480. ColVal[row][i]="";
  481. else
  482. ColVal[row][i]=colbuf[i];
  483. }
  484.     row=row+1;
  485. }
  487. for(i=0;i<(int)col_num;i++)
  488. delete colbuf[i];
  490. m_listCtrl.DeleteAllItems();
  491. for(i=0;i<row;i++)
  492. {
  493. m_listCtrl.InsertItem(LVIF_TEXT|LVIF_STATE,i,ColVal[i][0],
  494. (i%2)==0?LVIS_SELECTED:0,LVIS_SELECTED,0,0);
  495. for(int j=1;j<(int)col_num;j++)
  496. m_listCtrl.SetItemText(i,j,ColVal[i][j]);
  497. }
  498. delete textConVal;
  500. }
  502. void CCOCIExampleDlg::OnButDelete() 
  503. {
  504. // TODO: Add your control notification handler code here
  505. UpdateData(TRUE);
  506. sword status;
  507. text textSQL[1024];
  508. wsprintf((char*)textSQL,"DELETE FROM %s WHERE %s %s :DelFieldVal",TableName,
  509.   m_strFieldName,m_strCondition);
  510. if(status=OCIStmtPrepare(stmthp,errhp,textSQL,strlen((char*)textSQL),      //没有执行!
  511. OCI_NTV_SYNTAX,OCI_DEFAULT))
  512. {
  513. ErrorProc(errhp,status);
  514. return;
  515. }
  517. text textColVal[20];
  518. sb4 len;
  519. int strlength=m_strFieldVal.GetLength();
  520. wsprintf((char*)textColVal,"%s",m_strFieldVal);
  521. textColVal[strlength]='';
  522. len=strlen((const char *)textColVal)+1;
  524. if(status=OCIBindByName(stmthp,&bidhp[0],errhp,(text *) ":DelFieldVal",
  525. -1,(ub1 *)&textColVal,len,SQLT_STR,0,(ub2*)0,(ub2*)0,(ub4)0,(ub4*)0,OCI_DEFAULT))
  526. {
  527. ErrorProc(errhp,status);
  528. return;
  529. }
  531. if(status=OCIStmtExecute(svchp,stmthp,errhp,(ub4)1,0,NULL,NULL,OCI_DEFAULT))
  532. {
  533. ErrorProc(errhp,status);
  534. return;
  535. }
  537. OnBTableselectok();
  539. }
  541. void CCOCIExampleDlg::OnButUpdate() 
  542. {
  543. // TODO: Add your control notification handler code here
  544.     UpdateData(TRUE);
  545. sword status;
  546. text textSQL[1024];
  547. wsprintf((char*)textSQL,"UPDATE %s SET %s =:UpDFieldVal WHERE %s =:KeyFieldVal",
  548. TableName,m_strFieldName,m_strConFName);
  549. if(status=OCIStmtPrepare(stmthp,errhp,textSQL,strlen((char *)textSQL),
  550. OCI_NTV_SYNTAX,OCI_DEFAULT))
  551. {
  552. ErrorProc(errhp,status);
  553. return;
  554. }
  556. text textColVal[20];
  557. sb4  len;
  558. int  strlength=m_strFieldVal.GetLength();
  559. wsprintf((char*)textColVal,"%s",m_strFieldVal);
  560. textColVal[strlength]='';
  561. len=strlen((const char *)textColVal)+1;
  563.     if(status=OCIBindByName(stmthp,&bidhp[0],errhp,(text*)":UpDFieldVal",-1,
  564. (ub1*)&textColVal,len,SQLT_STR,0,0,0,0,0,OCI_DEFAULT))
  565. {
  566. ErrorProc(errhp,status);
  567. return;
  568. }
  570. text textConColVal[20];
  571. strlength=m_strConFName.GetLength();
  572. wsprintf((char*)textConColVal,"%s",m_strConFVal);
  573. textConColVal[strlength]='';
  574. len=strlen((const char*)textConColVal)+1;
  575. if(status=OCIBindByName(stmthp,&bidhp[1],errhp,(text*)":KeyFieldVal",-1,
  576. (ub1*)&textConColVal,len,SQLT_STR,0,0,0,0,0,OCI_DEFAULT))
  577. {
  578. ErrorProc(errhp,status);
  579. return;
  580. }
  581.     if(status=OCIStmtExecute(svchp,stmthp,errhp,(ub4)1,0,NULL,NULL,OCI_DEFAULT))
  582. {
  583. ErrorProc(errhp,status);
  584. return;
  585. }
  587. status=OCITransCommit(svchp,errhp,(ub4)0);
  589. OnBTableselectok();
  591. }