testoracledlg.cpp

连接orcale数据库

// testOracleDlg.cpp : 实现文件
//

#include "stdafx.h"
#include "testOracle.h"
#include "testOracleDlg.h"

#ifdef _DEBUG
#define new DEBUG_NEW
#endif


// CtestOracleDlg 对话框


CAdoConnection	g_CAdoConnection;


CtestOracleDlg::CtestOracleDlg(CWnd* pParent /*=NULL*/)
	: CDialog(CtestOracleDlg::IDD, pParent)
{
	m_hIcon = AfxGetApp()->LoadIcon(IDR_MAINFRAME);
}

void CtestOracleDlg::DoDataExchange(CDataExchange* pDX)
{
	CDialog::DoDataExchange(pDX);
}

BEGIN_MESSAGE_MAP(CtestOracleDlg, CDialog)
	ON_WM_PAINT()
	ON_WM_QUERYDRAGICON()
	//}}AFX_MSG_MAP
	ON_BN_CLICKED(IDOK, &CtestOracleDlg::OnBnClickedOk)
END_MESSAGE_MAP()


// CtestOracleDlg 消息处理程序

BOOL CtestOracleDlg::OnInitDialog()
{
	CDialog::OnInitDialog();

	// 设置此对话框的图标。当应用程序主窗口不是对话框时，框架将自动
	//  执行此操作
	SetIcon(m_hIcon, TRUE);			// 设置大图标
	SetIcon(m_hIcon, FALSE);		// 设置小图标

	// TODO: 在此添加额外的初始化代码

	return TRUE;  // 除非将焦点设置到控件，否则返回 TRUE
}

// 如果向对话框添加最小化按钮，则需要下面的代码
//  来绘制该图标。对于使用文档/视图模型的 MFC 应用程序，
//  这将由框架自动完成。

void CtestOracleDlg::OnPaint()
{
	if (IsIconic())
	{
		CPaintDC dc(this); // 用于绘制的设备上下文

		SendMessage(WM_ICONERASEBKGND, reinterpret_cast<WPARAM>(dc.GetSafeHdc()), 0);

		// 使图标在工作矩形中居中
		int cxIcon = GetSystemMetrics(SM_CXICON);
		int cyIcon = GetSystemMetrics(SM_CYICON);
		CRect rect;
		GetClientRect(&rect);
		int x = (rect.Width() - cxIcon + 1) / 2;
		int y = (rect.Height() - cyIcon + 1) / 2;

		// 绘制图标
		dc.DrawIcon(x, y, m_hIcon);
	}
	else
	{
		CDialog::OnPaint();
	}
}

//当用户拖动最小化窗口时系统调用此函数取得光标显示。
//
HCURSOR CtestOracleDlg::OnQueryDragIcon()
{
	return static_cast<HCURSOR>(m_hIcon);
}


void CtestOracleDlg::OnBnClickedOk()
{
	// TODO: 在此添加控件通知处理程序代码
	/*_ConnectionPtr	m_pConnection;
	_RecordsetPtr		m_pRecordset;
	try
	{
		m_pConnection.CreateInstance(__uuidof(Connection));
		m_pConnection->Open("Provider=MSDAORA.1;Data Source=lly;","lly","lly",adModeUnknown);
	}
	catch(_com_error e)
	{
		AfxMessageBox(e.ErrorMessage());
	}
	m_pRecordset.CreateInstance(__uuidof(Recordset));
//	m_pRecordset->Open(strFileName, "Provider=MSPersist;", adOpenForwardOnly, adLockOptimistic, adCmdFile)
	m_pRecordset->Open( "select * from yourtables",
						m_pConnection.GetInterfacePtr(),
						adOpenDynamic,
						adLockOptimistic,
						adCmdText);    
	OnOK();*/

	CoInitialize(NULL);

	CAdoRecordSet caResult;
	CString file_type_name;
	CString connectStr;
	
	
	g_CAdoConnection.Create();

	connectStr = _T("Provider=OraOLEDB.Oracle.1;DataSource=lly;User ID=lly;Password=lly");
	//		_T(   "Provider=MSDAORA;		  Data Source=lly;User ID=lly;Password=lly")
	if( g_CAdoConnection.Open(connectStr) != TRUE )
	{
		return;
	}
	
	caResult = g_CAdoConnection.Execute( _T("select file_type_name from file_type") );
	if( caResult.GetRecordset() == NULL )
		return;

	if( FALSE == caResult.MoveFirst() )
		return;
	
	do
	{
		if( caResult.IsEOF() )
			break;

		caResult.GetCollect(_T("file_type_name"),file_type_name);
	}while( caResult.MoveNext() );
	::CoUninitialize();
}