用ado连接access.docx

用 ado 连接access 及相应的一些处理 收藏
vc 知识库
用 ado 对数据库access 的连接
11）用控制面板中的管理工具 的 access 数据库 在系统 DSN 中添加 Driver do Microoid CAdoRWAccessDlg::OnReadAccess()
//先关闭已经打开的记录集对象
m_pRecordset->Close();///m_pRecordset 就在这个的外部定义try
{
m_pRecordset->Open("SELECT * FROM DemoTable", // 查询
DemoTable 表中所有字段
(), // 获取库接库的IDispatch 指针
adOpenDynamic, adLockOptimistic, adCmdText);
}
catch(_com_error *e)
{
AfxMessageBox(e->ErrorMessage());
}
ListData();////注意要对这个类进行声明
////做法：在CNewadoDlg 右键点击 add menber function-》再定义类型
为 void 的函数
}
void CAdoRWAccessDlg::ListData()
{
_variant_t var;
CString strName,strAge;
//效清空列表框
()；//////注意 m_AccessList 需被定义声明
//先建立一个列表框Listaccess，-》改名-》声明一个列表框
的成员变量
m_AccessList 并 注明是控件control strName=strAge="";
//在ADO 操作中建议语句中要常用try...catch()来捕获错误信息，
//因为它有时会经常出现一些想不到的错误。try
{
if(!m_pRecordset->BOF) m_pRecordset->MoveFirst();
else
{
}

AfxMessageBox("表内数据为空"); return;
// 读入库中各字段并加入列表框中
while(!m_pRecordset->adoEOF)
{
var = m_pRecordset->GetCollect("Name"); if( != VT_NULL)
strName = (LPCSTR)_bstr_t(var); var = m_pRecordset->GetCollect("Age"); if( != VT_NULL)
strAge = (LPCSTR)_bstr_t(var); ( strName + " --> "+strAge ); m_pRecordset->MoveNext();
}
// 默认列表指向第一项，同时移动记录指针并显示
(0);
OnSelchangeListaccess();///前一步已经对这个列表框命名 现在要建立一个类向导；
}
catch(_com_error *e)
{
AfxMessageBox(e->ErrorMessage());
}
}
7） 对列表框写编码———————————————————
———————
----------------------------------//名称：OnSelchangeListaccess---------------
//功能：当每次选择新的记录时，都会移动指针到新的记录位置并将值显示出来
///////////////////////////////////////////////////////////////////////////// void CAdoRWAccessDlg::OnSelchangeListaccess()
{
int curSel = ();
_variant_t var,varIndex;
if(curSel < 0)
return;
try
{

// 先将指针移向第一条记录，然后就可以相对第一条记录来随意移动记录指针
m_pRecordset->MoveFirst(); m_pRecordset->Move(long(curSel));
va