MFC中用ADO访问数据库

try//打开连接
	{

	// 创建一个连接实体
	ptrConn.CreateInstance(__uuidof(Connection));
	// 设定连接等待的最大秒数，默认是15秒
	ptrConn->ConnectionTimeout = 20;
	// 打开连接
 ptrConn->Open("driver={SQL server};server=127.0.0.1;uid=laicb;pwd=616458;database=DBCourse", 
	"",//登录用户名
	"",//登录密码
	adConnectUnspecified);//打开连接
	}
	catch(_com_error &e)--捕获异常
	{
	CString str;
	CString strTemp;
	str.Format(TEXT("Error:\n"));
	strTemp.Format(TEXT("Code = %08lx\n"), e.Error());
	str+="\n";
	str+=strTemp;
	
	strTemp.Format(TEXT("Meaning = %s\n"), e.ErrorMessage());
	str+="\n";
	str+=strTemp;

	strTemp.Format(TEXT("Source = %s\n"), (wchar_t*) e.Source());
	str+="\n";
	str+=strTemp;

	strTemp.Format(TEXT("Description = %s\n"), (wchar_t*) e.Description());
	str+="\n";
	str+=strTemp;
	MessageBox(str);
	}

try
	{
	//_RecordsetPtr ptrRS; // recordset 对象
	// 创建recordset 对象实体

	ptrRecord.CreateInstance(__uuidof(Recordset));//有些时候如果记录级背使用过了，可能需要重新创建实例，然后再打开
	ptrRecord->Open("select * from dbo.StaffInfo",///为什么把这里的数据库改成dbo.StaffRecord时候，列表框就显示全为空
	ptrConn.GetInterfacePtr(),
	adOpenKeyset, //注意在VB说明文档时候，首字母a是大写的，在C++中应该小写
	adLockBatchOptimistic, 
	adCmdText);
	//int j= ptrRecord->RecordCount;
	//或者
	//ptrRS = ptrConn ->Execute(m_ strSql,NULL, adCmdText);

	}
	catch(_com_error &e)
	{
	CString str;
	CString strTemp;
	str.Format(TEXT("Error:\n"));
	strTemp.Format(TEXT("Code = %08lx\n"), e.Error());
	str+="\n";
	str+=strTemp;
	
	strTemp.Format(TEXT("Meaning = %s\n"), e.ErrorMessage());
	str+="\n";
	str+=strTemp;

	strTemp.Format(TEXT("Source = %s\n"), (wchar_t*) e.Source());
	str+="\n";
	str+=strTemp;

	strTemp.Format(TEXT("Description = %s\n"), (wchar_t*) e.Description());
	str+="\n";
	str+=strTemp;
	MessageBox(str);
	}

	try
	{
	ptrConn->Execute("select * from dbo.Login",NULL,adCmdText);
	ptrRecord->MoveFirst();//加了这句这会就可以取出数据了，可能是上一个父亲指针已经把其移动到最后了
	int i= ptrRecord->RecordCount;//如果把游标从动态到记录集，那么这个参数就有用
	while(ptrRecord->EndOfFile==VARIANT_FALSE)
	{	
	_variant_t va;
	_variant_t str;
	va.vt=VT_I4;
	va.lVal=0;
	str = ptrRecord->Fields->GetItem(va)->Value;
	CString strGetID((wchar_t*)(_bstr_t)str);
	str = ptrRecord->Fields->GetItem(short(1))->Value;
	CString strGetSerect((wchar_t*)(_bstr_t)str);
	strGetID.TrimRight();
	strGetSerect.TrimRight();
	right=ptrRecord->Fields->GetItem(short(2))->Value.intVal;
	if(strGetID==strID&&strGetSerect==strSerect)
	{
	isadmin=true;
	}
	ptrRecord->MoveNext();
	}
	}
	catch(_com_error &e)
	{
	CString str;
	CString strTemp;
	str.Format(TEXT("Error:\n"));
	strTemp.Format(TEXT("Code = %08lx\n"), e.Error());
	str+="\n";
	str+=strTemp;
	
	strTemp.Format(TEXT("Meaning = %s\n"), e.ErrorMessage());
	str+="\n";
	str+=strTemp;

	strTemp.Format(TEXT("Source = %s\n"), (wchar_t*) e.Source());
	str+="\n";
	str+=strTemp;

	strTemp.Format(TEXT("Description = %s\n"), (wchar_t*) e.Description());
	str+="\n";
	str+=strTemp;
	AfxMessageBox(str);
	}

 ptrRecord->Fields->GetItem(va)->Value;

 ptrRecord->Fields->GetItem(va)->Name;

va是

_variant_t va;
va.vt=VT_I4;
va.lVal=0;

也可以这样

 ptrRecord->Fields->GetItem(short(0))->Name;

while(ptrRecord->EndOfFile==VARIANT_FALSE)

｛

取出结果集

ptrRecord->MoveNext();

｝

有些时候，如果你的结果集已经被全部取出来的时候，也就是你的结果集已经到了非VARIANT_FALSE

这时候你就需要重新创建实例，然后打开，
ptrRecord.CreateInstance(__uuidof(Recordset));//有些时候如果记录级背使用过了，可能需要重新创建实例，然后再打开
	ptrRecord->Open("select * from dbo.StaffInfo",///为什么把这里的数据库改成dbo.StaffRecord时候，列表框就显示全为空
	ptrConn.GetInterfacePtr(),
	adOpenKeyset, //注意在VB说明文档时候，首字母a是大写的，在C++中应该小写
	adLockBatchOptimistic, 
	adCmdText);

这样你才能重新使用，不然好像MoveFirst,么有用啊

另外如果你结果集在某处调用了close，那么你再次使用的时候一定要执行上面这段语句，否则会报说记录集已经关闭了，wufa使用