编者:李国帅
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
}