VC使用ado访问MSSql数据库的简单例程

 

编者：李国帅

qq：9611153 微信lgs9611153

时间：2008-3-11

背景原因:

         访问数据库的技术有很多，比如adbc，ado，oledb等等，它们用在不同的场景，各有各自的优点和缺点。

问题描述及期望效果：

ADO (ActiveX Data Objects，ActiveX数据对象）是Microsoft提出的应用程序接口（API）用以实现访问关系或非关系数据库中的数据。

         VC中访问数据库是常见的技术，这里整理了调用ado技术访问MSSql数据的简单例子。

所需资源：

VC，ADO,MSSql

 

例子:

导入

#include <comdef.h>
  #import "C:\program files\common files\system\ado\msado15.dll" \
           no_namespace \
           rename( "EOF", "adoEOF" )

 

声明变量

	_ConnectionPtr m_pMyDb;
	_RecordsetPtr  m_pMySet;

使用ado访问数据库

 

BOOL CDlgApp::InitInstance()
{

	if(!AfxOleInit())
	{
	AfxMessageBox("OLE初始化出错!");
	return FALSE;
	}
	return FALSE;
}

int CDlgApp::ExitInstance()
{
	::CoUninitialize();
	return CWinApp::ExitInstance();
}

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

	_variant_t TheValue;
	m_List.DeleteAllItems();
	m_pMyDb.CreateInstance(_uuidof(Connection));
	m_pMySet.CreateInstance(_uuidof(Recordset));

	try
	{
		m_pMyDb->Open("MarketMS", "","", 0);
		m_pMySet->Open("SELECT * FROM GoodsMng",
			m_pMyDb.GetInterfacePtr(),
			adOpenDynamic,adLockOptimistic,adCmdText);

//执行SQL语句得到一个记录集
		while(!m_pMySet->adoEOF)
//遍历所有记录
		{
			TheValue = m_pMySet->GetCollect("GoodsName");
//得到字段BlockIndex的值
			if(TheValue.vt!=VT_NULL)
			{
				m_List.InsertItem(1, (char*)_bstr_t(TheValue)); //将该值加入到列表控件中
			}
			m_pMySet->MoveNext();
		}
		m_pMySet->Close();
		m_pMyDb->Close();
	}
	catch(_com_error e) //异常处理
	{
		AfxMessageBox(e.ErrorMessage());
	}
	m_pMySet = NULL;
	m_pMyDb = NULL;

/*　　pCommand.CreateInstance(_uuidof(Command));

　　pCommand->ActiveConnection=MyDb;

　　pCommand->CommandText="select  from some—table";

　　pCommand->CommandType=adCmdText;

　　pCommand->Parameters->Refresh();

　　MySet=pCommand->Execute(NULL,NULL,adCmdUnknown);

　　_variant_t TheValue = MySet->GetCollect("FIELD_1");

　　CString sValue=(char)_bstr_t(TheValue);
*/

	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
}