|
NULL,
CLSCTX_INPROC_SERVER,
IID_IADOField,
(LPVOID*)&pfd
);//初始化一个ADO数据域集合中的一个域
//打开上述ADO连接
pdb->Open((unsigned short*)(LPCSTR)s,(unsigned short*)"",(unsigned short*)"",0);
//打开上述ADO数据集,但它的连接参数是使用的上述字符串
//应当存在以上面的连接替换该字符串的方法,但我没找到
prs->Open(COleVariant(_T("资料信息")),COleVariant(s),adOpenKeyset,adLockOptimistic,adCmdTable);
//数据集的域不存在打开与否,只需直接到已打开的数据集中引用即可,详情请见 //CBKDlg::OnBeforeColUpdateDatagrid方法
m_dg.ClearFields ();//MS DATAGRID 控件(Activex)的数据清空
m_dg.SetRefDataSource(prs); //上述控件与数据集的绑定
return TRUE;
}
BOOL CBKDlg::DestroyWindow()
{
// TODO: Add your specialized code here and/or call the base class
m_dg.SetRefDataSource(NULL);
long state;
//下面的处理可能存在逻辑上的错误,不过关闭数据集与数据连接的语法是正确的
if(!FAILED(prs->get_State(&state)))
if(state!=adStateClosed)
{
prs->Close();
prs=NULL;
}
if(!FAILED(pdb->get_State(&state)))
if(state!=adStateClosed)
{
pdb->Close();
pdb=NULL;
}
::CoUninitialize ();//释放COM环境
return CDialog::DestroyWindow();
}
void CBKDlg::OnBeforeColUpdateDatagrid(short ColIndex, VARIANT FAR* OldValue, short FAR* Cancel)
{
//该事件(方法)在MS DATAGRID 控件(ActiveX)的单元数据更新前发生
//该事件您可能用不着，但其中的代码您可能用得着
COleVariant v((LPCSTR)m_dg.GetText ());//获取上述控件当前单元格的数据
CString fieldname=m_dg.GetColumns().GetItem(COleVariant(ColIndex)).GetCaption();
DataTypeEnum fieldtype;//描述ADO数据类型的枚举类型
prs->get_Fields(&pfds);//从数据集中获得数据域集合
pfds->get_Item (COleVariant(fieldname),&pfd);//从数据域集合中获得特定名称的域
pfd->get_Type (&fieldtype);//从上述域中获取其数据类型，如整型或字符串型
switch (fieldtype){
case adSmallInt:
case adInteger:
break;
case adDate:
break;
case adCurrency://Data type describing for Money ,Understand?
break;
case adVarChar://对应于VB中的String类型和VC中的CString类型
break;
default:
break;
}
}//该方法来源于MS DataGrid ActiveX控件的事件，无具体的处理代码,望海涵
上一页 [1] [2]
没有相关教程
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
