将DataTable对象转换为Recordset对象
在.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
{
/// <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,
LockTypeEnum.adLockUnspecified, -1);
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;
}
/// <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. C#语法中没有默认参数，只能使用System.Reflection.Missing的Value属性，但该属性只能用于引用类型，而不能用于枚举、整型等值类型。
参考
本文参考了ccboy网志(http://blog.csdn.net/ccboy/)上的文章《将DataSet转换成ADODB.Recordset》。在此向他表示感谢。本文与彼文的不同之处在于彼文是将XML数据转换成Recordset对象，而本文是转换DataTable对象。另外，彼文是用VB.NET写的，本文所用的是C#。