MFC-ADO访问数据库

// adoTestDlg.h : header file
//

#pragma once
#include "ado.h"

// CadoTestDlg dialog
class CadoTestDlg : public CDialog
{
// Construction
public:
	CadoTestDlg(CWnd* pParent = NULL);	// standard constructor

// Dialog Data
	enum { IDD = IDD_ADOTEST_DIALOG };

	protected:
	virtual void DoDataExchange(CDataExchange* pDX);	// DDX/DDV support


// Implementation
protected:
	HICON m_hIcon;

	// Generated message map functions
	virtual BOOL OnInitDialog();
	afx_msg void OnSysCommand(UINT nID, LPARAM lParam);
	afx_msg void OnPaint();
	afx_msg HCURSOR OnQueryDragIcon();
	DECLARE_MESSAGE_MAP()
public:
	afx_msg void OnBnClickedOk();
    CADODatabase *m_pOracleDb;
	BOOL InitPacsDB();
};



// adoTestDlg.cpp : implementation file
//

#include "stdafx.h"
#include "adoTest.h"
#include "adoTestDlg.h"

#ifdef _DEBUG
#define new DEBUG_NEW
#endif


// CAboutDlg dialog used for App About

class CAboutDlg : public CDialog
{
public:
    CAboutDlg();

// Dialog Data
    enum { IDD = IDD_ABOUTBOX };

    protected:
    virtual void DoDataExchange(CDataExchange* pDX);    // DDX/DDV support

// Implementation
protected:
    DECLARE_MESSAGE_MAP()
};

CAboutDlg::CAboutDlg() : CDialog(CAboutDlg::IDD)
{
}

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

BEGIN_MESSAGE_MAP(CAboutDlg, CDialog)
END_MESSAGE_MAP()


// CadoTestDlg dialog




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

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

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


// CadoTestDlg message handlers

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

    // Add "About..." menu item to system menu.

    // IDM_ABOUTBOX must be in the system command range.
    ASSERT((IDM_ABOUTBOX & 0xFFF0) == IDM_ABOUTBOX);
    ASSERT(IDM_ABOUTBOX < 0xF000);

    CMenu* pSysMenu = GetSystemMenu(FALSE);
    if (pSysMenu != NULL)
    {
        BOOL bNameValid;
        CString strAboutMenu;
        bNameValid = strAboutMenu.LoadString(IDS_ABOUTBOX);
        ASSERT(bNameValid);
        if (!strAboutMenu.IsEmpty())
        {
            pSysMenu->AppendMenu(MF_SEPARATOR);
            pSysMenu->AppendMenu(MF_STRING, IDM_ABOUTBOX, strAboutMenu);
        }
    }

    // Set the icon for this dialog.  The framework does this automatically
    //  when the application's main window is not a dialog
    SetIcon(m_hIcon, TRUE);            // Set big icon
    SetIcon(m_hIcon, FALSE);        // Set small icon

    // TODO: Add extra initialization here

    return TRUE;  // return TRUE  unless you set the focus to a control
}

void CadoTestDlg::OnSysCommand(UINT nID, LPARAM lParam)
{
    if ((nID & 0xFFF0) == IDM_ABOUTBOX)
    {
        CAboutDlg dlgAbout;
        dlgAbout.DoModal();
    }
    else
    {
        CDialog::OnSysCommand(nID, lParam);
    }
}

// If you add a minimize button to your dialog, you will need the code below
//  to draw the icon.  For MFC applications using the document/view model,
//  this is automatically done for you by the framework.

void CadoTestDlg::OnPaint()
{
    if (IsIconic())
    {
        CPaintDC dc(this); // device context for painting

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

        // Center icon in client rectangle
        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;

        // Draw the icon
        dc.DrawIcon(x, y, m_hIcon);
    }
    else
    {
        CDialog::OnPaint();
    }
}

// The system calls this function to obtain the cursor to display while the user drags
//  the minimized window.
HCURSOR CadoTestDlg::OnQueryDragIcon()
{
    return static_cast<HCURSOR>(m_hIcon);
}


void CadoTestDlg::OnBnClickedOk()
{
    // TODO: Add your control notification handler code here
    InitPacsDB();
}


BOOL CadoTestDlg::InitPacsDB()
{
//Provider = MSDAORA;Data Source=%s;User Id = %s;Password = %s;
    CString strOracleConn;
    
    strOracleConn.Format("Provider=OraOLEDB.Oracle;Data Source=%s;User Id=%s;Password=%s;",
        "ORACLE247","hhpacs","hhpacs");
    if(!m_pOracleDb->Open(strOracleConn))
    {
        return FALSE;
    }


    CADORecordset rs;
    CString strSelectSQL;
    bool bQuerySucc;
    int iQueryCount;
    CString strCurPatId;

    //strSelectSQL = "select * from accesstable";
    strSelectSQL = "insert into accesstable values(1111,'1','111111','1')";
    rs = CADORecordset(m_pOracleDb);

    m_pOracleDb->Execute(strSelectSQL);
    return false;
    bQuerySucc = rs.Open((LPCTSTR)strSelectSQL);

    iQueryCount = rs.GetRecordCount();

    while(!rs.IsEof())
    {
        rs.GetFieldValue( "ACCCOMMENT",  strCurPatId);

        rs.MoveNext();
    }
    rs.Close();
    return true;
}