TestAdoDlg.cpp
上传用户:weisheen
上传日期:2022-07-09
资源大小:19390k
文件大小:7k
源码类别:

ActiveX/DCOM/ATL

开发平台:

Visual C++

  1. // TestAdoDlg.cpp : implementation file
  2. //
  3. #include "stdafx.h"
  4. #include "TestAdo.h"
  5. #include "TestAdoDlg.h"
  6. #ifdef _DEBUG
  7. #define new DEBUG_NEW
  8. #undef THIS_FILE
  9. static char THIS_FILE[] = __FILE__;
  10. #endif
  11. /////////////////////////////////////////////////////////////////////////////
  12. // CAboutDlg dialog used for App About
  13. class CAboutDlg : public CDialog
  14. {
  15. public:
  16. CAboutDlg();
  17. // Dialog Data
  18. //{{AFX_DATA(CAboutDlg)
  19. enum { IDD = IDD_ABOUTBOX };
  20. //}}AFX_DATA
  21. // ClassWizard generated virtual function overrides
  22. //{{AFX_VIRTUAL(CAboutDlg)
  23. protected:
  24. virtual void DoDataExchange(CDataExchange* pDX);    // DDX/DDV support
  25. //}}AFX_VIRTUAL
  26. // Implementation
  27. protected:
  28. //{{AFX_MSG(CAboutDlg)
  29. //}}AFX_MSG
  30. DECLARE_MESSAGE_MAP()
  31. };
  32. CAboutDlg::CAboutDlg() : CDialog(CAboutDlg::IDD)
  33. {
  34. //{{AFX_DATA_INIT(CAboutDlg)
  35. //}}AFX_DATA_INIT
  36. }
  37. void CAboutDlg::DoDataExchange(CDataExchange* pDX)
  38. {
  39. CDialog::DoDataExchange(pDX);
  40. //{{AFX_DATA_MAP(CAboutDlg)
  41. //}}AFX_DATA_MAP
  42. }
  43. BEGIN_MESSAGE_MAP(CAboutDlg, CDialog)
  44. //{{AFX_MSG_MAP(CAboutDlg)
  45. // No message handlers
  46. //}}AFX_MSG_MAP
  47. END_MESSAGE_MAP()
  48. /////////////////////////////////////////////////////////////////////////////
  49. // CTestAdoDlg dialog
  50. CTestAdoDlg::CTestAdoDlg(CWnd* pParent /*=NULL*/)
  51. : CDialog(CTestAdoDlg::IDD, pParent)
  52. {
  53. //{{AFX_DATA_INIT(CTestAdoDlg)
  54. // NOTE: the ClassWizard will add member initialization here
  55. //}}AFX_DATA_INIT
  56. // Note that LoadIcon does not require a subsequent DestroyIcon in Win32
  57. m_hIcon = AfxGetApp()->LoadIcon(IDR_MAINFRAME);
  58. }
  59. void CTestAdoDlg::DoDataExchange(CDataExchange* pDX)
  60. {
  61. CDialog::DoDataExchange(pDX);
  62. //{{AFX_DATA_MAP(CTestAdoDlg)
  63. // NOTE: the ClassWizard will add DDX and DDV calls here
  64. //}}AFX_DATA_MAP
  65. }
  66. BEGIN_MESSAGE_MAP(CTestAdoDlg, CDialog)
  67. //{{AFX_MSG_MAP(CTestAdoDlg)
  68. ON_WM_SYSCOMMAND()
  69. ON_WM_PAINT()
  70. ON_WM_QUERYDRAGICON()
  71. ON_BN_CLICKED(IDC_BUTTON1, OnButton1)
  72. ON_BN_CLICKED(IDC_BUTTON2, OnButton2)
  73. ON_BN_CLICKED(IDC_BUTTON3, OnButton3)
  74. ON_BN_CLICKED(IDC_BUTTON4, OnButton4)
  75. //}}AFX_MSG_MAP
  76. END_MESSAGE_MAP()
  77. /////////////////////////////////////////////////////////////////////////////
  78. // CTestAdoDlg message handlers
  79. BOOL CTestAdoDlg::OnInitDialog()
  80. {
  81. CDialog::OnInitDialog();
  82. // Add "About..." menu item to system menu.
  83. // IDM_ABOUTBOX must be in the system command range.
  84. ASSERT((IDM_ABOUTBOX & 0xFFF0) == IDM_ABOUTBOX);
  85. ASSERT(IDM_ABOUTBOX < 0xF000);
  86. CMenu* pSysMenu = GetSystemMenu(FALSE);
  87. if (pSysMenu != NULL)
  88. {
  89. CString strAboutMenu;
  90. strAboutMenu.LoadString(IDS_ABOUTBOX);
  91. if (!strAboutMenu.IsEmpty())
  92. {
  93. pSysMenu->AppendMenu(MF_SEPARATOR);
  94. pSysMenu->AppendMenu(MF_STRING, IDM_ABOUTBOX, strAboutMenu);
  95. }
  96. }
  97. // Set the icon for this dialog.  The framework does this automatically
  98. //  when the application's main window is not a dialog
  99. SetIcon(m_hIcon, TRUE); // Set big icon
  100. SetIcon(m_hIcon, FALSE); // Set small icon
  101. // TODO: Add extra initialization here
  102. return TRUE;  // return TRUE  unless you set the focus to a control
  103. }
  104. void CTestAdoDlg::OnSysCommand(UINT nID, LPARAM lParam)
  105. {
  106. if ((nID & 0xFFF0) == IDM_ABOUTBOX)
  107. {
  108. CAboutDlg dlgAbout;
  109. dlgAbout.DoModal();
  110. }
  111. else
  112. {
  113. CDialog::OnSysCommand(nID, lParam);
  114. }
  115. }
  116. // If you add a minimize button to your dialog, you will need the code below
  117. //  to draw the icon.  For MFC applications using the document/view model,
  118. //  this is automatically done for you by the framework.
  119. void CTestAdoDlg::OnPaint() 
  120. {
  121. if (IsIconic())
  122. {
  123. CPaintDC dc(this); // device context for painting
  124. SendMessage(WM_ICONERASEBKGND, (WPARAM) dc.GetSafeHdc(), 0);
  125. // Center icon in client rectangle
  126. int cxIcon = GetSystemMetrics(SM_CXICON);
  127. int cyIcon = GetSystemMetrics(SM_CYICON);
  128. CRect rect;
  129. GetClientRect(&rect);
  130. int x = (rect.Width() - cxIcon + 1) / 2;
  131. int y = (rect.Height() - cyIcon + 1) / 2;
  132. // Draw the icon
  133. dc.DrawIcon(x, y, m_hIcon);
  134. }
  135. else
  136. {
  137. CDialog::OnPaint();
  138. }
  139. }
  140. // The system calls this to obtain the cursor to display while the user drags
  141. //  the minimized window.
  142. HCURSOR CTestAdoDlg::OnQueryDragIcon()
  143. {
  144. return (HCURSOR) m_hIcon;
  145. }
  146. //#import "C:\Program Files\Common Files\System\ado\msado15.dll" no_namespace rename("EOF","adoEOF")
  147. void CTestAdoDlg::OnButton1() 
  148. {
  149. ::CoInitialize(NULL);
  150. _ConnectionPtr myconn; //连接智能指针 
  151. myconn.CreateInstance(__uuidof(Connection));//生成实例
  152. _bstr_t sql("Provider=OraOLEDB.Oracle.1;User Id=scott;Data Source=tarena;");
  153. HRESULT hr=myconn->Open(sql,"scott","tiger",-1);
  154. //定义一个sql语句对象;
  155.     _CommandPtr mysql1; //命令智能指针
  156. mysql1.CreateInstance(__uuidof(Command));//生成实例
  157. _bstr_t sql1("select * from ocyBooks");
  158. mysql1->CommandText=sql1;//指定命令文本
  159. mysql1->CommandType=adCmdText;//指定命令类型
  160. //以下是新增的代码:
  161. //制定SQL所查询的数据库;
  162. mysql1->ActiveConnection=myconn;
  163. //查询并返回存放在表中的结果集
  164. _RecordsetPtr mydata=mysql1->Execute(NULL,NULL,adCmdText);//数据操作
  165. while(!mydata->adoEOF)//列表指针
  166. {
  167. _variant_t myid=mydata->GetCollect("BOOKISNB");//获取数据表对应属性名的数据
  168. _variant_t myname=mydata->GetCollect("BOOKNAME");//获取数据表对应属性名的数据
  169. _variant_t myauthor=mydata->GetCollect("BOOKAuthor");//获取数据表对应属性名的数据
  170. CString strName((LPCTSTR)(_bstr_t)myname);//(_bstr_t)为带空字节头的UNicode码
  171. CString strAuthor((LPCTSTR)(_bstr_t)myauthor);//(LPCTSTR)为不带空字节头的UNicode码
  172. CString str;
  173. str.Format("%d;%s;%s",(long)myid,strName,strAuthor);
  174. MessageBox(str);
  175. mydata->MoveNext();
  176. }
  177. mydata->Close();
  178. myconn->Close();
  179. }
  180. #include <atlbase.h>
  181. void CTestAdoDlg::OnButton2() 
  182. {
  183. // TODO: Add your control notification handler code here
  184.     ::CoInitialize(NULL);
  185. CComPtr<_Connection> mytools;
  186. mytools.CoCreateInstance(__uuidof(Connection));
  187. _bstr_t sql("Provider=OraOLEDB.Oracle.1;User Id=scott;Data Source=tarena;");
  188. HRESULT hr=mytools->Open(sql,"scott","tiger",-1);//建立数据源连接
  189. mytools->Close();
  190. }
  191. void CTestAdoDlg::OnButton3() 
  192. {
  193. // TODO: Add your control notification handler code here
  194.     ::CoInitialize(NULL);
  195. _Connection* mytools=NULL;
  196. CoCreateInstance(__uuidof(Connection),
  197. NULL,
  198. CLSCTX_INPROC_SERVER,
  199. __uuidof(_Connection),
  200. (void **)&mytools);
  201. _bstr_t sql("Provider=OraOLEDB.Oracle.1;User Id=scott;Data Source=tarena;");
  202. HRESULT hr=mytools->Open(sql,"scott","tiger",-1);//建立数据源连接
  203. mytools->Close();
  204. }
  205. void CTestAdoDlg::OnButton4() 
  206. {
  207. // TODO: Add your control notification handler code here
  208. ::CoInitialize(NULL);
  209. //_bstr_t sql1("insert into ocyBooks (BookISNB, BookName, BookAuthor) values (123457,'COM','WANGWU')");
  210. //_bstr_t sql1("delete from ocyBooks");
  211. _bstr_t sql1("update ocyBooks set BookName='C++' where BookName='COM'");
  212. _ConnectionPtr myconn;//连接智能指针 
  213. myconn.CreateInstance(__uuidof(Connection));//生成实例
  214. _bstr_t sql("Provider=OraOLEDB.Oracle.1;User Id=scott;Data Source=tarena;");
  215. HRESULT hr=myconn->Open(sql,"scott","tiger",-1);//建立数据源连接
  216. _CommandPtr cmdsql1;//命令智能指针
  217. cmdsql1.CreateInstance(__uuidof(Command));//生成实例
  218. cmdsql1->CommandType=adCmdText;//指定命令类型
  219. cmdsql1->CommandText=sql1;//指定命令文本
  220. //制定SQL所查询的数据库;
  221. cmdsql1->ActiveConnection=myconn;
  222. VARIANT iResult;
  223. iResult.vt=VT_I4;//数字类型
  224. cmdsql1->Execute(&iResult,NULL,adCmdText);//功能和Recordset的一样
  225. }