轻松搞定数据访问层

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

1。实体类2。访问类

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

实体类Person---------IDNameGenderOldNation

访问基类DataOper------------Shared DeleteShared AddShared UpdateShared Select

访问类PersonOper:DataOper--------------------Shared GetAllShared GetPersonByIDShared GetPersonByNameShared Get......

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

将从数据库返回的DataSet转换成实体类，如果用一般方式写的话：ds=cmd.Execute("select * from tblPerson where ID=1")dim p as new Personp.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 Personp.Name="HahaSoft"p.Gender=1p.Old=20...PersonOper.Add(p) ' 从DataOper继承的方法,也可以这样写:DataOper.Add(p)

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

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

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

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

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

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