新建 文本文档.txt

一个实用的GIS系统的系统维护模块

_variant_t vUsername,vuid,vcode,vpid;
      _RecordsetPtr m_pRecordset;
      m_pRecordset.CreateInstance("ADODB.Recordset");
      m_pRecordset->Open("SELECT * FROM user",_variant_t((IDispatch*)theApp.m_pConnection,true),adOpenStatic,adLockOptimistic,adCmdText);
      while(!m_pRecordset->adoEOF)///这里为什么是adoEOF而不是EOF呢?还记得rename("EOF","adoEOF")这一句吗?
	  {
		  	vuid = m_pRecordset->GetCollect("UserID");///取得第1列的值,从0开始计数，你也可以直接给出列的名称，如下一行
	        vUsername = m_pRecordset->GetCollect("LoginName");///取得username字段的值
	        vcode = m_pRecordset->GetCollect("Password");
	        vpid = m_pRecordset->GetCollect("RoleGroupID");
	        ///在DEBUG方式下的OUTPUT窗口输出记录集中的记录
	        if(vuid.vt != VT_NULL && vUsername.vt != VT_NULL && vcode.vt != VT_NULL && vpid.vt != VT_NULL)
	    	TRACE("用户ID:%d,用户名:%s,权限组ID:%d,密码:%s\r\n",vuid.lVal,(LPCTSTR)(_bstr_t)vUsername,vpid.lVal,(LPCTSTR)(_bstr_t)vcode);
	       m_pRecordset->MoveNext();///移到下一条记录
	  }
	_ConnectionPtr m_pConnection;
	_RecordsetPtr m_pRecordset;