[日积月累]：Arx函数集，网友自制

wuxiaoyan1214 · 发表于 2009-3-30 16:10:12

ARX中直接读取数据库一例　　　　　　　　　

void ReadData()
{
//假设这是为了给全局变量设值,//
//所有的值来源于数据库

/////////////////////////open database
_ConnectionPtr m_pConnection;
HRESULT hr;
try
--{
hr = m_pConnection.CreateInstance("ADODB.Connection");//Connection对象
if(SUCCEEDED(hr))
---- {
hr =m_pConnection->Open("Provider=Microsoft.Jet.OLEDB.4.0;DataSource=d:\\cadit\\sysdatac.mdb","","",adModeUnknown);//数据库,office2000
}
--}
catch(_com_error e)///捕捉异常
--{
CString errormessage;
errormessage.Format("连接数据库失败!\r\n错误信息:%s",e.ErrorMessage());
AfxMessageBox(errormessage);///显示错误信息
return;
--}
_RecordsetPtr m_pRecordset;
_variant_t RecordsAffected=(long)0;
m_pRecordset = m_pConnection->Execute("SELECT * FROM sys",&RecordsAffected,adCmdText);//sys为表的名字

//上面的代码是打开数据库并获得记

_variant_t vCount0;
_variant_t vCount1;
CString vStr0,vStr1,textin;//第一列和第二列的值

if(!m_pRecordset->adoEOF)///
{

vCount1 = m_pRecordset->GetCollect((long)1);///取得第Count1变量
---- jhline=vCount1.dblVal ;

vCount1 = m_pRecordset->GetCollect((long)2);///取得第Count1变量
---- jhtexthigh=vCount1.dblVal ;
vCount1 = m_pRecordset->GetCollect((long)3);///取得第Count1变量
---- mxtexthigh=vCount1.dblVal ;
---- vCount1 = m_pRecordset->GetCollect((long)4);///取得第Count1变量
---- mxtabhigh=vCount1.dblVal ;

---- vCount1 = m_pRecordset->GetCollect((long)6);
---- L1=vCount1.dblVal ;
---- vCount1 = m_pRecordset->GetCollect((long)7);
---- L2=vCount1.dblVal ;
---- vCount1 = m_pRecordset->GetCollect((long)8);
---- L3=vCount1.dblVal ;
---- vCount1 = m_pRecordset->GetCollect((long)9);
---- L4=vCount1.dblVal ;
---- vCount1 = m_pRecordset->GetCollect((long)10);
---- L5=vCount1.dblVal ;
---- vCount1 = m_pRecordset->GetCollect((long)11);
---- L6=vCount1.dblVal ;
---- vCount1 = m_pRecordset->GetCollect((long)12);
---- L7=vCount1.dblVal ;
---- vCount1 = m_pRecordset->GetCollect((long)13);
---- L8=vCount1.dblVal ;
}

m_pRecordset->Close();///关闭记录集
m_pConnection->Close();///关闭数据库连接
}

zyx137 · 发表于 2009-4-12 21:40:49

感谢大家

wusegqw · 发表于 2009-5-10 13:26:56

学习学习

17957 · 发表于 2009-5-14 08:34:35

谢谢，看。

zqb05 · 发表于 2009-6-1 13:43:44

楼主厉害啊

gchen3 · 发表于 2009-9-16 22:39:54

学习了，谢谢。。。

yswang · 发表于 2009-11-3 20:53:27

学习学习

biostrong · 发表于 2009-11-18 10:31:17

精神可嘉！

cnng0315 · 发表于 2010-1-25 11:35:17

qijian2010 · 发表于 2010-3-18 15:56:00

学习交流的好地方

z394326635 · 发表于 2013-4-1 23:24:16

提示: 作者被禁止或删除内容自动屏蔽

wangdaobin · 发表于 2013-4-2 05:24:35

这个正合我意！谢了！

limonite · 发表于 2013-4-2 17:29:06

收藏，不知楼主能否再做个VB.net的

小小品客 · 发表于 2013-4-5 14:46:13

好东东，集合了大家的智慧！

非ing · 发表于 2013-4-8 19:42:59

很期待看看

账号		自动登录	找回密码
密码			立即注册

z394326635 z394326635 当前离线 UID 619956 积分 25 精华贡献威望活跃度 D豆在线时间小时注册时间 2008-5-2 最后登录 1970-1-1 窥视卡雷达卡	发表于 2013-4-1 23:24:16 \| 显示全部楼层【广而告之】积分规则、D豆获取攻略窝窝空间装扮攻略提示: 作者被禁止或删除内容自动屏蔽
	论坛插件加载方法发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
	回复支持反对使用道具举报