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

Fahrenheit-23

第一次登陆该网站，这里的东西真不错！

maillaj

好的很

ljh_winner

有不少帮助

hushui1973

感觉大家水平都挺高，我在看天书

sexgjgj

hao

fayifu

谢谢，已收集

lshting81

这个论坛真好

wuxiaoyan1214

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

感谢大家

wusegqw

学习学习

17957

谢谢，看。

zqb05

楼主厉害啊

gchen3

学习了，谢谢。。。

yswang

学习学习

biostrong

精神可嘉！