VC6访问ACCESS数据库
不会用数据库，有些东西写的不好！
一、完成初始化工作
本程序完成一个简单的查询功能能，根据输入的代码，输出代码对应的信息。
首先，创建基于对话框的应用程序，导入ADO库
在stdafx.h中添加代码：
#import "C:\Program Files\Common Files\System\ado\msado15.dll"no_namespace rename("EOF","rsEOF")
第二步，完成的一些初始化工作，打开本地数据库
// 初始化COM,创建ADO连接等操作
AfxOleInit();
m_pConnection.CreateInstance(__uuidof(Connection));
// 在ADO操作中建议语句中要常用try...catch()来捕获错误信息，
// 因为它有时会经常出现一些想不到的错误。
try
{
// 打开本地Access库Demo.mdb
m_pConnection->Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Demo.mdb","","",adModeUnknown);
}
catch(_com_error e)
{
AfxMessageBox("数据库连接失败，确认数据库Demo.mdb是否在当前路径下!");
return FALSE;
}
二、增加一个按钮，点击后从数据库中查询Edit框中输入的信息
CString str; //定义一个变量，用于存放EDIT中的输入
GetDlgItemText(IDC_EDIT_CODE,str);
m_pRecordset.CreateInstance(__uuidof(Recordset));
// 在ADO操作中建议语句中要常用try...catch()来捕获错误信息，
// 因为它有时会经常出现一些想不到的错误。jingzhou xu
//
try
{
m_pRecordset->Open("SELECT * FROM DemoTable", //查询DemoTable表中所有字段
theApp.m_pConnection.GetInterfacePtr(), // 获取库接库的IDispatch指针
adOpenDynamic,
adLockOptimistic,
adCmdText);
}
catch(_com_error *e)
{
AfxMessageBox(e->ErrorMessage());
}
_variant_t var;
CString strName,strAge;
// 清空列表框
m_AccessList.ResetContent();
strName=strAge="";
// 在ADO操作中建议语句中要常用try...catch()来捕获错误信息，
// 因为它有时会经常出现一些想不到的错误。
try
{
if(!m_pRecordset->BOF)
m_pRecordset->MoveFirst();
else
{
AfxMessageBox("表内数据为空");
return;
}
// 循环比较，若有相符的信息则在List中输出，返回。查询结束。
//否则，输出未找到代码
while(!m_pRecordset->rsEOF)
{
if(str==(_bstr_t)m_pRecordset->GetCollect("Name"))
{
((CListBox*)GetDlgItem(IDC_LIST_INFO))->AddString((_bstr_t)m_pRecordset->GetCollect("Age"));
m_pRecordset->MoveNext();
return;
}
else
{
m_pRecordset->MoveNext();
}
}
// 默认列表指向第一项，同时移动记录指针并显示
m_AccessList.SetCurSel(0);
}
catch(_com_error *e)
{
AfxMessageBox(e->ErrorMessage());
}
((CListBox*)GetDlgItem(IDC_LIST_INFO))->AddString("未找到");
}
评论