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]