将DataTable对象转换为Recordset对象

将DataTable对象转换为Recordset对象

 Allen Tao(http://blog.youkuaiyun.com/allentao/)

 2005-5-10  

在.net中用ADO.NET取代了ADO实现对数据的访问，但一些COM控件只支持ADO并不支持ADO.NET。为了使用这类控件，只能将ADO.NET中的数据对象，比如DataTable为ADO中的Recordset（DataSet对象本质上是DataTable的集合，因此本文只讲述DataTable对象的转换）。

思路

1.         创建Recordset对象后，在其中对应DataTable的Column创建Field，为此需要将ADO.NET的数据类型转换为ADO的数据类型；

2.         打开Recordset对象，对应DataTable对象中的每一行，在Recordset对象中新建一条记录，并对每个字段赋值。

源码

下面是作者根据以上思路用C#写的转换类的代码。

using System;

using System.Data;

using ADODB;

using System.Reflection;

namespace Tao.Tool

namespace Tao.Tool

{

       /// <summary>

       /// 用于将ado.net的对象转换为ado的对象。

       /// </summary>

       public sealed class ADONETtoADO

       {

              /// <summary>

              /// 将DataTable对象转换为Recordeset对象

              /// </summary>

              /// <param name="table">DataTable对象</param>

              /// <returns>转换后得到的Recordeset对象</returns>

              public static Recordset ConvertDataTableToRecordset(DataTable table)

              {

                     Recordset rs=new RecordsetClass();

                       //DataRow dr;

                     foreach(DataColumn dc in table.Columns)

                     {

                            rs.Fields.Append(dc.ColumnName, GetDataType(dc.DataType), -1, FieldAttributeEnum.adFldIsNullable);

                     }

                       rs.Open(Missing.Value, Missing.Value, CursorTypeEnum.adOpenUnspecified,

                       rs.Open(Missing.Value, Missing.Value, CursorTypeEnum.adOpenUnspecified,

                            LockTypeEnum.adLockUnspecified, -1);

                       foreach(DataRow dr in table.Rows)

                       foreach(DataRow dr in table.Rows)

                     {

                            rs.AddNew(Missing.Value, Missing.Value);object o;

                            for(int i=0; i<table.Columns.Count; i++)

                            {

                                   rs.Fields[i].Value=dr[i];

                                   o=rs.Fields[i].Value;

                            }

                     }

                       return rs;

                       return rs;

              }

                /// <summary>

                /// <summary>

              /// 将ADO.NET的数据类型转换为ADO的数据类型

              /// </summary>

              /// <param name="dataType">ADO.NET的数据类型</param>

              /// <returns>ADO的数据类型</returns>

              public static DataTypeEnum GetDataType(Type dataType)

              {

                     switch(dataType.ToString())

                     {

                            case "System.Boolean": return DataTypeEnum.adBoolean;

                            case "System.Byte":              return DataTypeEnum.adUnsignedTinyInt;

                            case "System.Char":             return DataTypeEnum.adChar;

                            case "System.DateTime":return DataTypeEnum.adDate;

                            case "System.Decimal": return DataTypeEnum.adDecimal;

                            case "System.Double":   return DataTypeEnum.adDouble;

                            case "System.Int16":             return DataTypeEnum.adSmallInt;

                            case "System.Int32":             return DataTypeEnum.adInteger;

                            case "System.Int64":             return DataTypeEnum.adBigInt;

                            case "System.SByte":            return DataTypeEnum.adTinyInt;

                            case "System.Single":     return DataTypeEnum.adSingle;

                            case "System.String":     return DataTypeEnum.adVarChar;

                            //case "TimeSpan":return DataTypeEnum.

                            case "System.UInt16":   return DataTypeEnum.adUnsignedSmallInt;

                            case "System.UInt32":   return DataTypeEnum.adUnsignedInt;

                            case "System.UInt64":   return DataTypeEnum.adUnsignedBigInt;

                            default:throw(new KitsClasses.MyException("没有对应的数据类型"));

                     }

              }

       }

}

说明：

1.         需要添加ADODB库的引用，该库位于COM页，名称为“Microsoft ActiveX Data Objects 2.0 Library”；

2.         语法中没有默认参数，只能使用System.Reflection.Missing的Value属性，但该属性只能用于引用类型，而不能用于枚举、整型等值类型。 C#

参考

本文参考了ccboy网志(http://blog.youkuaiyun.com/ccboy/)上的文章《将DataSet转换成ADODB.Recordset》。在此向他表示感谢。本文与彼文的不同之处在于彼文是将XML数据转换成Recordset对象，而本文是转换DataTable对象。另外，彼文是用VB.NET写的，本文所用的是C#。

 

                /// <summary>

                       return rs;

                       foreach(DataRow dr in table.Rows)

                       rs.Open(Missing.Value, Missing.Value, CursorTypeEnum.adOpenUnspecified,

                       //DataRow dr;

namespace Tao.Tool