下面实现的方法，可以把你从SQL的Add,Delete,Update,Select的重复劳动解脱出来

1。实体类
2。访问类

现在以下表为例
tblPerson
(perID,perName,perGender,perOld,perNation)

实体类
Person
---------
ID
Name
Gender
Old
Nation

访问基类
DataOper
------------
Shared Delete
Shared Add
Shared Update
Shared Select

访问类
PersonOper:DataOper
--------------------
Shared GetAll
Shared GetPersonByID
Shared GetPersonByName
Shared Get......

将数据库表的信息导入到DB.XML文件中
根据DB.XML文件生成实体类
例如上面的tblPerson表对应的DB.XML中的一个表如下
Name DBName Key Seed Type
--------------------------------------
ID perID 1 1 Integer
Name perName 0 0 String
Gender perGender 0 0 boolean
Old perOld 0 0 Integer
Nation perNation 0 0 String

将从数据库返回的DataSet转换成实体类，如果用一般方式写的话：
ds=cmd.Execute("select * from tblPerson where ID=1")
dim p as new Person
p.ID=Ctype(ds.Tables(0).Rows(0).Item("perID"),Integer)
p.Name=...
p.Gender=...
p.Old=...
p.Nation=...
一张表的转换还好办，那么如果又几十张表效率显得地下了

这里又另外一种通用的方法，利用.NET提供的反射功能！
.NET提供的反射功能可以在知道类方法或属性的名称的情况下，动态访问类的方法。
知道怎么做了吗？
前面我们有一个从数据库对应的DB.XML数据库架构文件
这个文件和实体类的字段一一对应
所以我们只要遍历这个架构文件，利用反射，就能轻松实现上述的赋值了
让我们再看看访问基类
DataOper
--------------
Delete(o as Object)
Add(o as Object)
Update(o as Object)

选择Add(o as Object)为例说明
public sub Add(o as Object)
Dim Type as String=O.GetType.ToString ' 得到传进来的对象的类型
... ' 对象类型的字符串和刚才那个XML架构文件中表的名称一一映射
Dim SchemaTableName as String=GetSchemaTableName(Type) ' 取得需要操作的表的名称 及从 Person->tblPerson
' 打开数据库架构文件
Dim dsSchema as new Dataset("DB.XML")

Dim SQL as String="Insert into " & SchemaTableName
Dim r as DataRow
For Each r in dsSchema.Tables(SchemaTableName)
' 在这里操作上面的SQL语句，值的部分利用反射从o中取得，建议写一个专门身成特定对象特定操作的SQL语句的类
' 处理一些特殊情况，如主键，自动增加值字段等
' 如果在数据库架构文件中存储更多的架构信息，如最大值等，还可以完成一些数据验证之类的操作
...
Next
SQLHelper.Excute(ConnectionString,...Text,SQL)
end sub

Delete/Update的通用方法类似

这样，如果你要添加一个Person的话可以这样
Dim p as New Person
p.Name="HahaSoft"
p.Gender=1
p.Old=20
...
PersonOper.Add(p) ' 从DataOper继承的方法,也可以这样写:DataOper.Add(p)

如果要添加一个Book 的话，可以这样
dim b as New Book
b.ISBN=
b.Name=
...
BookOper.Add(b)

怎么样，是不是很通用？
这样写成一个通用类，可以完成所有的实体类的Add/Update/Delete操作
要注意的是，DB.XML数据库架构文件很重要

通用实体类操作完成了，下面是通用的 Select 方法
以前在CSDN上看到过这样的文章:
PersonOper.Keys("Name")="HahaSoft"
PersonOper.keys("Gender")=1
dim p as new Person=PersonOper.Select()
这样就能返回相应的Person的实体类
也可以变相完成一些方法：如
getPersonByID(ID)
getPersonByName()
......

后来苦想一阵，终于实现了.(待续...)

注：(这里实现的单表的O-R映射，如果对有关联的表的话，只要声明一个如 alAddress as ArrayList 的成员就可以了，当然还涉及一些数据

晚期填充以提高效率的技巧，在这里就不详细介绍了)