VC下的ADO编程入门(2-4)

原创 2005年05月23日 08:31:00

好了,现在我们正式进入本主题,Let's go

 

n          新建一个基于对话的应用程序zjy,在对话框上添加一个按钮和列表控件,并把列表控件的样式设置为报表视图,还有用classwizard给列表控件添加一个控件变量m_list

n          StdAfx.h头文件中添加一条如下语句

#import "c:/program files/common files/system/ado/msado15.dll" no_namespace rename("EOF","adoEOF")

n          zjy.cpp开始处添加自动初始化COM库的代码

struct InitOle

{

         InitOle(){::CoInitialize(NULL);}

         ~InitOle(){::CoUninitialize();}

}_init_InitOle_;

n          zjyDlg.h中添加三个成员变量

         bool m_IsConnectionOpen;

         _ConnectionPtr m_pConnection;

         _RecordsetPtr m_pRecordset;

n          zjyDlg.cppBOOL CZjyDlg::OnInitDialog()      return TRUE;前面添加如下代码

// TODO: Add extra initialization here

         HRESULT hr;

         _bstr_t bstrQuery("select * from customers");

         _bstr_t strConnect="Provider=SQLOLEDB; data source=127.0.0.1;initial catalog=Northwind;";

         _variant_t vRecsAffected(0L);

        

         _variant_t vNULL;

         vNULL.vt=VT_ERROR;

         vNULL.scode =DISP_E_PARAMNOTFOUND;

 

         try

         {

                   hr=m_pConnection.CreateInstance(__uuidof(Connection));

                   if(SUCCEEDED(hr))

                   {

                            hr=m_pConnection->Open(strConnect,_bstr_t(L"sa"),_bstr_t(L""),adConnectUnspecified);

                            if(SUCCEEDED(hr))

                            {

                                     hr=m_pRecordset.CreateInstance(__uuidof(Recordset));

                                     if(SUCCEEDED(hr))

                                     {

                                               m_pRecordset->PutRefActiveConnection(m_pConnection);

                                               hr=m_pRecordset->Open(_variant_t(bstrQuery),vNULL,adOpenDynamic,adLockOptimistic,adCmdText);

                                               if(SUCCEEDED(hr))

                                               {

                                                         m_IsConnectionOpen=true;

                                               }

                                     }

                            }

                   }

         }

         catch(_com_error &e)

         {

                   _bstr_t bstrSource(e.Source());

                   _bstr_t bstrDescription(e.Description());

                   TRACE("Exception throw for classes generated by #import");

                   TRACE("/tCode=%08lx/n", e.Error);

                   TRACE("/tCode meaning = %s/n", e.ErrorMessage);

                   TRACE("/tSource = %s/n", (LPCTSTR)bstrSource);

                   TRACE("/tDescription = %s/n", (LPCTSTR)bstrDescription);

         }

         catch(...)

         {

                   TRACE("Unhandled Exception");

         }

n          添加对话框的WM_Destroy消息响应函数

void CZjyDlg::OnDestroy()

{

         CDialog::OnDestroy();

        

         // TODO: Add your message handler code here

         if(m_IsConnectionOpen)

         {

                    m_IsConnectionOpen=false;

                    m_pConnection->Close();

                    

                    m_pConnection=NULL;

                    m_pRecordset=NULL;

         }

}

n          最后添加按钮的消息响应函数如下

void CZjyDlg::OnButton1()

{

         // TODO: Add your control notification handler code here

         VARIANT_BOOL valEof;

        

         HRESULT hr;

        

         CString strColName;BSTR bstrColName;

 

         CString strValue;VARIANT varValue;

 

         long  ColCount,i; int RowCount=0;

         Fields * fields=NULL;Field * field=NULL;

 

         VARIANT varCounter;

         varCounter.vt=VT_I4;

         varCounter.lVal=0;

 

         try

         {

                   m_list.DeleteAllItems();

                   while(m_list.DeleteColumn(0));

 

                   hr=m_pRecordset->get_Fields(&fields);

                   if(SUCCEEDED(hr)) hr=fields->get_Count(&ColCount);

                   for(i=0;i<ColCount;i++)

                   {       

                            hr=fields->Item[i]->get_Name(&bstrColName);

                            strColName=bstrColName;

                            int nWidth=m_list.GetStringWidth(strColName)+15;

                            m_list.InsertColumn(i,strColName,LVCFMT_LEFT,nWidth);

                   }

                   if(SUCCEEDED(hr)) fields->Release();

 

                   m_pRecordset->get_adoEOF(&valEof);

                   while(true)

                   {

                            if(valEof)break;

                            m_pRecordset->Fields->get_Item(varCounter,&field);

                            field->get_Value(&varValue);

                            strValue=VariantToString(varValue);

                            m_list.InsertItem(RowCount,strValue);

                            for(i=1;i<ColCount;i++)

                            {

                                     varCounter.lVal =i;

                                     m_pRecordset->Fields->get_Item(varCounter,&field);

                                     field->get_Value(&varValue);

                                     strValue=VariantToString(varValue);

                                     m_list.SetItemText(RowCount,i,(LPCTSTR)strValue);

                            }

                            RowCount++;

                            m_pRecordset->MoveNext();

                            m_pRecordset->get_adoEOF(&valEof);

                            varCounter.lVal=0;

                   }

                   m_pRecordset->Close();

         }

         catch(_com_error &e)

         {

                   _bstr_t bstrSource(e.Source());

                   _bstr_t bstrDescription(e.Description());

                   TRACE("/tCode=%08lx/n", e.Error);

                   TRACE("/tCode meaning = %s/n", e.ErrorMessage);

                   TRACE("/tSource = %s/n", (LPCTSTR)bstrSource);

                   TRACE("/tDescription = %s/n", (LPCTSTR)bstrDescription);

         }

         catch(...)

         {

 

         }

}

n          还有还有,在对话框类添加一个数据类型转换函数

CString CZjyDlg::VariantToString(VARIANT var)

{

CString strValue;

         _variant_t var_t;

         _bstr_t bstr_t;

         time_t cur_time;

         CTime time_value;

         COleCurrency var_currency;

         switch(var.vt)

         {

         case VT_EMPTY:

         case VT_NULL:strValue=_T("");break;

         case VT_UI1:strValue.Format("%d",var.bVal);break;

         case VT_I2:strValue.Format("%d",var.iVal);break;

         case VT_I4:strValue.Format("%d",var.lVal);break;

         case VT_R4:strValue.Format("%f",var.fltVal);break;

         case VT_R8:strValue.Format("%f",var.dblVal);break;

         case VT_CY:

                   var_currency=var;

                   strValue=var_currency.Format(0);break;

         case VT_BSTR:

                   var_t =var;

                   bstr_t=var_t;

                   strValue.Format("%s",(const char *)bstr_t);break;

         case VT_DATE:

                   cur_time=var.date;

                   time_value=cur_time;

                   strValue.Format("%A,%B,%d,%Y");break;

         case VT_BOOL:strValue.Format("%d",var.boolVal);break;

         default:strValue=_T("");break;

         }

         return strValue;

}

()

下一篇介绍如何对记录进行增删改操作。

VC++ ADO编程入门简介

一、ADO简介    ADO(ActiveX Data Object)是Microsoft数据库应用程序开发的新接口,是建立在OLE DB之上的高层数据库访问技术,请不必为此担心,即使你对OLE DB...

ADO.NET 4从入门到精通.part2

  • 2013年04月27日 10:28
  • 7.4MB
  • 下载

Visual C++ ADO数据库编程入门(2)

5、修改数据    方法一:    try{    m_pRecordset->MoveFirst();    while(m_pRecordset->adoEOF==VARIANT_FALSE)  ...

vc++中ADO技术入门

摘要 本文简要介绍了在VC++ 6.0中使用 ADO进行客户端数据库编程的基本步骤,以及常见问题的解决方法,可供入门级的参考之用。    关键字 ADO VC++ 数据库编程 ADO 是...

VC编写ADO连接Access,SQL Server数据库入门实例

为了在VC中使用Ado,需要在头文件中加入以下几行代码: #import "C:\\program files\\common files\\system\\ado\\msado15.dll" no...

VC数据库编程 ADO操作Access

ADO提供了一组非常简单,将一般通用的数据访问细节进行封装的对象。由于ODBC数据源也提供了一般的OLE DB Privider,所以ADO不仅可以应用自身的OLE DB Privider,而且还...

VC编程中利用ADO方式访问SQL Server 2012数据库(1)- 连接数据库

1、ADO对象及其智能指针 ADO是进行SQL Server数据访问的最常用的方式。ADO中与数据库相关的对象主要有三个:连接对象 Connection、记录集对象 Recordset 和命令对象 C...

基于VC ADO组件连接数据库编程

1.1 连接对象(Connection)连接对象是用来与数据库建立连接、执行查询以及进行事务处理。在连接之前必须指定使用哪一个OLE DB供应者。1.2 命令对象命令对象(Command)可以执行数据...
  • bmbm546
  • bmbm546
  • 2011年07月17日 15:48
  • 1915

VC6.0+ADO+Access编程常见问题勘误

1、出现warning C4146: unary minus operator applied to unsigned type, result still unsigned错误的话,这样处理:将//...
  • lwprain
  • lwprain
  • 2011年05月20日 09:45
  • 1085

孙鑫VC学习笔记:第二十讲 ado数据库编程

数据库编程: COM [计] 小型可执行程序的扩展名, 串行通讯端口 [域] Commercial organizations,商业组织,公司...
  • az44yao
  • az44yao
  • 2015年04月14日 15:24
  • 527
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:VC下的ADO编程入门(2-4)
举报原因:
原因补充:

(最多只允许输入30个字)