通过COM使用ADO_Web开发_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

通过COM使用ADO

作者：闵涛文章来源：闵涛的学习笔记点击数：2249 更新时间：2009/4/23 10:50:36

p; HRESULT hr;
   hr=m_recordset->get_Fields(Fields);
   if(hr==S_OK)
   {
      hr=(*Fields)->get_Count(&Count);
   }
   return hr;
}
HRESULT ADOrecordset::GetFields(long index,String& sFieldList)
{
   FieldsPtr* Fields;
   FieldPtr* Field;
   HRESULT hr;
   WideString FieldName;
   long rec=0;
   hr=m_recordset->get_Fields(Fields);
   if(hr==S_OK)
   {
      hr=(*Fields)->get_Count(&rec);
      if(hr==S_OK)
      {
         for(int i=0;i<hr;i++)
         {
            hr=(*Fields)->get_Item(i,Field);
            if(hr==S_OK)
            {
               hr=(*Field)->get_Name(&FieldName);
               if(hr==S_OK)
               {
                  sFieldList+=(String)FieldName;
               }
            }
         }
      }
   }
   return hr;
}
HRESULT GetFieldType(FieldPtr pField,String& strMsg,long& nResult)
{
   file://Nowadays I don''''t use the function,which will be used according to needs in the future
   return S_OK;
}
HRESULT GetFieldType(String FieldName,String& strMsg,long& nResult)
{
   file://Nowadays I don''''t use the function,which will be used according to needs in the future
   return S_OK;
}
BOOL    ADOrecordset::get_BOF()
{
   BOOL bFlag=m_recordset->get_BOF();
   return bFlag;
}
BOOL    ADOrecordset::get_EOF()
{
   BOOL bFlag=m_recordset->get_EOF();
   return bFlag;
}
HRESULT ADOrecordset::Prev()
{
   HRESULT hr=m_recordset->MovePrevious();
   return hr;
}
HRESULT ADOrecordset::Last()
{
   HRESULT hr=m_recordset->MoveLast();
   return hr;
}
HRESULT ADOrecordset::Next()
{
   HRESULT hr=m_recordset->MoveNext();
   return hr;
}
HRESULT ADOrecordset::First()
{
   HRESULT hr=m_recordset->MoveFirst();
   return hr;
}
HRESULT ADOrecordset::CloseRecordset(void)
{
   HRESULT hr=m_recordset->Close();
   return hr;
}
写完这个类之后，以后在程序中就可以直接使用这个类来对ADO进行访问，写一个简单的测试代码：
假定我已在ODBC中新建一数据源:DSN=Test,Username=chenbin,Password=caiyao，那么如果想用ADO对该数据源进行访问的话，就可以用下面的代码：
void __fastcall TForm1::Button1Click(TObject *Sender)
{
   ADOConnection m_Connection;
   ADOrecordset rst;
   if(m_Connection.Open(L"Test",L"chenbin",L"caiyao"))
   {
      if(rst.SetConnect(m_Connection.m_pConnection))
      {
         if(rst.Open("select * from family"))
         {
            if(rst.First()==S_OK)
            {
               while(!rst.get_EOF())
               {
                  Memo1->Lines->Add(rst.GetFieldValue("name").AsString());
                  rst.Next();
               }
            }
         }
      }
   }
}

上一页 [1] [2]

[VB.NET程序]ADO 在informix的 Addnew  [VB.NET程序]ADO 的测试
[VB.NET程序]ADO 揭密 1  [Web开发][ADO]如何修改ADO的线程模型
[Web开发]Delphi7下仿Ado.Net类的实现  [Web开发]ADO & ADO.NET中使用存储过程的两个共用的函数
[Web开发]Binding a DataGrid to an ADO Recordset  [Web开发]ADOCE for ADO Programmers
[Web开发]Delphi多线程下的ADO编程  [Web开发]在delphi.net的VCL.net里使用Ado.net

教程录入：mintao 责任编辑：mintao

上一篇教程： ADO & ADO.NET中使用存储过程的两个共用的函数

下一篇教程： ADO数据与XML数据间的转换的类(ASP实现)

【字体：小大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网]

　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）

同类栏目

· Web开发  · 网页制作
· 平面设计  · 网站运营
· 网站推广  · 搜索优化
· 建站心得  · 站长故事
· 互联动态

热门推荐

没有教程

赞助链接

闵涛博文

500 - 内部服务器错误。

您查找的资源存在问题，因而无法显示。

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18

闵涛站盟:医药大全-武穴网。A打造B、C、D……