test_adodlg.cpp

VC提供用Ado操作access的实例。

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

#include "stdafx.h"
#include "Test_ADO.h"
#include "Test_ADODlg.h"
#include ".\test_adodlg.h"

#include <vector>
using namespace std;

#ifdef _DEBUG
#define new DEBUG_NEW
#endif


// 用于应用程序“关于”菜单项的 CAboutDlg 对话框

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

// 对话框数据
	enum { IDD = IDD_ABOUTBOX };

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

// 实现
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()


// CTest_ADODlg 对话框



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

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

BEGIN_MESSAGE_MAP(CTest_ADODlg, CDialog)
	ON_WM_SYSCOMMAND()
	ON_WM_PAINT()
	ON_WM_QUERYDRAGICON()
	//}}AFX_MSG_MAP
	ON_BN_CLICKED(IDC_BUTTON1, OnBnClickedButton1)
	ON_BN_CLICKED(IDC_BUTTON2, OnBnClickedButton2)
	ON_BN_CLICKED(IDC_BUTTON3, OnBnClickedButton3)
	ON_BN_CLICKED(IDC_BUTTON4, OnBnClickedButton4)
	ON_BN_CLICKED(IDC_BUTTON5, OnBnClickedButton5)
	ON_BN_CLICKED(IDC_BUTTON6, OnBnClickedButton6)
	ON_BN_CLICKED(IDC_BUTTON7, OnBnClickedButton7)
	ON_BN_CLICKED(IDC_BUTTON8, OnBnClickedButton8)
	ON_BN_CLICKED(IDC_BUTTON9, OnBnClickedButton9)
END_MESSAGE_MAP()


// CTest_ADODlg 消息处理程序

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

	// 将\“关于...\”菜单项添加到系统菜单中。

	// IDM_ABOUTBOX 必须在系统命令范围内。
	ASSERT((IDM_ABOUTBOX & 0xFFF0) == IDM_ABOUTBOX);
	ASSERT(IDM_ABOUTBOX < 0xF000);

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

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

	// TODO: 在此添加额外的初始化代码
	AfxOleInit();         //启动COM
	
	return TRUE;  // 除非设置了控件的焦点，否则返回 TRUE
}

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

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

void CTest_ADODlg::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 CTest_ADODlg::OnQueryDragIcon()
{
	return static_cast<HCURSOR>(m_hIcon);
}

void CTest_ADODlg::OnBnClickedButton1()
{
	// TODO: 在此添加控件通知处理程序代码
	//连接数据库
	CString Conn="provider=Microsoft.Jet.OLEDB.4.0;Data Source=test.mdb";
	myado.ConnecDataLibrary(Conn,"","");
	//打开表单
	myado.OpenSheet("select * from file");
	//调动指针
	if((!myado.adoEOF()) || (!myado.BOF()))
		myado.MoveFirst();
	else
		return;
	//获取字段内容
	_variant_t str;
	myado.GetCollect("NAME",str);
	CString name=str;
	MessageBox(name);
}

void CTest_ADODlg::OnBnClickedButton2()
{
	// TODO: 在此添加控件通知处理程序代码
	//插入一条新记录
	AddNewCode insert[4];
	insert[0].ColName="NAME";  insert[0].Value="玛格瑞特";
	insert[1].ColName="AGE";   insert[1].Value=25;
	insert[2].ColName="TIME";  insert[2].Value="1860/9/9";
	insert[3].ColName="小数";  insert[3].Value=3.14159;
	myado.AddNewRecode(insert,4);	
}

void CTest_ADODlg::OnBnClickedButton3()
{
	// TODO: 在此添加控件通知处理程序代码
	//插入一条新记录
	myado.AddNewRecodeEx("AGE,NAME,FF,TIME",25,"玛格瑞特",5678.342,"1860/9/9");
}

void CTest_ADODlg::OnBnClickedButton4()
{
	// TODO: 在此添加控件通知处理程序代码
	//查询
	_variant_t var;
	myado.MoveFirst();
	myado.Find("AGE>20");
	myado.GetCollect("NAME",var);
	CString name=(LPCSTR)_bstr_t(var);
	MessageBox(name);
	//查询下一个
	while(myado.FindNext())
	{
		myado.GetCollect("NAME",var);
		name=(LPCSTR)_bstr_t(var);
		MessageBox(name);		
	}
}

void CTest_ADODlg::OnBnClickedButton5()
{
	// TODO: 在此添加控件通知处理程序代码
	//过滤
	myado.Filter("AGE>30");
	myado.MoveFirst();
	_variant_t var;
	myado.GetCollect("NAME",var);
	CString name=(LPCSTR)_bstr_t(var);
	MessageBox(name);
}

void CTest_ADODlg::OnBnClickedButton6()
{
	// TODO: 在此添加控件通知处理程序代码
	//获取一条记录
	_variant_t ColName[5];
	ColName[0]="ID";
	ColName[1]="NAME";
	ColName[2]="AGE";
	ColName[3]="TIME";
	ColName[4]="HF";
	_variant_t OutValue[5];
	CString id,name,age,time,hf;
	myado.MoveLast();
	myado.GetOneRecord(ColName,5,OutValue);
	id=OutValue[0];
	name=OutValue[1];
	age=OutValue[2];
	time=OutValue[3];
	hf=OutValue[4];	
	MessageBox(id+"^^"+name+"^^"+age+"^^"+time+"^^"+hf);
}

void CTest_ADODlg::OnBnClickedButton7()
{
	// TODO: 在此添加控件通知处理程序代码
	//获取一条记录
	myado.MoveLast();
	long la=0,lb=0;
	double da=0,db=0;
	CString s1="",s2="";
	myado.GetOneRecordEx("FF,NAME,小数,NUM,AGE,TIME",&da,&s1,&db,&la,&lb,&s2);
	CString str;
	str.Format("%d",la);
	MessageBox(str);
	str.Format("%d",lb);
	MessageBox(str);
	str.Format("%f",da);
	MessageBox(str);
	str.Format("%f",db);
	MessageBox(str);
	MessageBox(s1);
	MessageBox(s2);
}

void CTest_ADODlg::OnBnClickedButton8()
{
	// TODO: 在此添加控件通知处理程序代码
	CString str="Delete from file where NAME='玛格瑞特'";
	myado.Execute(str);
}

void CTest_ADODlg::OnBnClickedButton9()
{
	// TODO: 在此添加控件通知处理程序代码
	myado.CloseSheet();
	myado.CloseDataLibrary();
}