http://www.cnblogs.com/lmjob/archive/2008/03/18/1111978.html

    PreparedStatement updateStatement = conn.prepareStatement("UPDATE PLAYER SET ACCOUNT = ACCOUNT - ? WHERE ID = ?");
    updateStatement.setInt(1, sumPrice);
    updateStatement.setString(2, customer);
    updateStatement.execute();
    conn.commit();
}
catch(SQLException se)
{
    conn.rollback();
}
finally
{
    conn.close();
}

        代码很简单，而且根据我以前的经验来看，这样的代码是可以保证数据完整性的，因为对数据表两个连续的更新是一个事务，当发生异常的时候，事务会回滚。然而，测试的结果出乎意料，即使第二个SQL语句执行发生了异常，第一个SQL产生的更新结果也会体现到数据表中。查阅了很多资料，都没有发现这样的代码会有什么问题，而且Java Tutorial对于事务的介绍所给出的例子跟以上代码十分的类似，讲解中也提到两个preparedStatment只有在commit方法被调用的时候，才会作用于数据库。后来我在第一个execute方法之后设置了断点，竟然发现在执行完该方法之后，CUSTOM_ORDER表中已经多了一条记录了。但是此时，我并没有想到这会跟数据库本身有关，拼命在Google上找与JDBC相关的资料。
        最后，在跟一位朋友讨论这个问题的时候，他问我：“你用的什么数据库啊？”我说是MySql，他马上很肯定的告诉我，MySql不支持事务。“不支持事务？！”我立即去查阅了MySql相关的资料[1]，果然，MySql在4.0系列之前确实是没有支持事务的。我的朋友曾在3.x系列版本的MySql下面做了两年的开发，因此才会这样告诉我这样的结论。然而4.x系列是可以支持事务的啊，我用的是4.0.16自然也支持了，为什么还会出现这样的情况呢？
        原来，MySql的数据表分为两类，一类是传统的数据表，另一类则是支持事务的数据表。支持事务的数据表分为两种：InnoDB和BerkeleyDB。我们可以通过以下的命令确认安装的MySql Server是否支持这两种数据表：
        SHOW VARIABLES LIKE 'have_innodb';
        SHOW VARIABLES LIKE 'have_bdb';
即使MySql Server本身是支持这两种数据表，但是并不代表着创建新表的时候，新表就是属于这两种的。通常，在创建新表的时候，如果没有加以特别的说明，那么创建的新表则是传统的数据表，是不会支持事务的。因此，我的问题也就解决了，因为以上的示例代码操作的是两张没有支持事务的数据表，怎么可能去处理事务呢？
        通常我们可以通过使用如下的方式来创建支持事务的数据表：
        CREATE TABLE TABLE_NAME(FIELD1, FIELD2.... FIELDn) TYPE=INNODB;
如果原来建好的数据表，我们也可以通过ALTER TABLE命令直接去改变数据表的类型，而不需要备份数据，然后Drop表，再建立新表，再导入数据这样烦琐的步骤。如：
        ALTER TABLE TABLE_NAME TYPE=INNODB;

http://www.cnblogs.com/perhaps/archive/2004/09/15/43405.html

原系统采用默认配置：
character_set_server latin1
character_set_database latin1
character_set_system utf8
character_set_client latin1
character_set_connection latin1
character_set_results latin1
校对字符集为（latin1_swedish_ci是latin1的默认校对）
collation_connection latin1_swedish_ci
collation_database latin1_swedish_ci
collation_server latin1_swedish_ci

character_set_system 元数据字符集

方案一：采用SQLyog等客户端连接MySQL4.1后dump出SQL，再Restore到MySQL 5.0。在执行过程中，发现dump出的SQL中中文数据为乱码。
后发现直接在客户端查询MySQL 4.1中文数据也是乱码，检查发现SQLyog连接后默认会执行SET NAMES 'utf8';导致取出的数据不能正常显示。尝试SET NAMES 'latin1'，取出数据还是不能正常显示，但用客户端的导出数据功能时，发现已经是正常的中文，可客户端dump查询结果依旧无法显示中文。

方案二：ssh2上Linux服务器，用命令dump出转化后的utf8数据：
mysqldump  --default-character-set=latin1 --character-sets-dir=utf8 -umysql -h10.1.47.6 -p ConfigV2Full > new080101.sql
将new080101.sql传到本地打开，发现已经是中文，遂将sql导入MySQL 5.0服务器，发现依旧乱码。但利用旧的连接器连接MySQL 5.0发现中文正常，字符集依旧是latin1。

方案三：在方案二的基础上，将new080101.sql另存为有Bom的utf8格式（用UltraEdit处理大文件有优势），再次导入，中文正常。此时字符集为utf8。

过程可谓相当曲折。依旧对MySQL4.1用latin1字符集存中文感到疑惑。于是又去阅读了MySQL 4.1的字符集处理一节，现作一个总结。

总结：

MySQL的使用者大量来自拉丁国家，可能这种字符集导致的乱码问题官方不够重视，也很测试到，简单搜索就会发现MySQL中文乱码问题频频产生。

但这不是MySQL设计者的初衷，MySQL 4.1字符集的设置是非常灵活的，其对于字符集的指定可以细化到一台机器、其中的一个数据库、其中的一张表、其中的一个字段，但是，普通开发者在创建数据库和数据表时，并没有进行那么复杂的配置，而一般使用默认配置。

默认的配置源头来自哪里呢？来自编译。

编译时，通常是Linux默认字符集latin1；
安装时，在配置文件中有一个默认字符集，如果不指定，则这个值继承自编译时；
启动时，可用命令行参数指定默认字符集，如果不指定，则这个值继承自配置文件；
此时character_set_server被设为这个默认字符集；
创建数据库时，如果不指定，则这个数据库的字符集被设为character_set_server；
选定数据库时，character_set_database被设定为这个数据库字符集；
创建一张表时，表的默认字符集被设为character_set_database
创建一个字段时，如果不指定，则设为表的默认字符集；
这个字符集才数据库中实际存储数据采用的字符集。就是说，如果保持默认，则所有的数据库的所有表的所有字段的都用latin1存储！

当客户端与MySQL建立连接后，发送给MySQL的数据采用的是什么字符集？
MySQL 无从得知 (它最多只能猜测)，所以 MySQL 4.1 要求客户端必须指定这个字符集，也就是 character_set_client，MySQL 的怪异之处在于，得到的这个字符集并不立即转换为存储在数据库中的那个字符集，而是先转换为 character_set_connection 变量指定的一个字符集；转换为 character_set_connection 的这个字符集之后，还要转换为数据库默认的字符集，也就是说要经过两次转换；当这个数据被输出时，又要由数据库默认的字符集转换为 character_set_results 指定的字符集。

但服务器上的配置中character_set_client、character_set_connection、character_set_results都是latin1，所以说还是不明白它是如何保存中文的。我估计最大的可能是，它本身把中文当作latin1存入，客户端和连接器负责了把取出的latin1转为可正常显示的中文。

最后不得不说，MySQL将字符集细分的行为给非latin1语系开发者使用带来很大麻烦，MySQL将默认字符集设置为latin1也不够大气也不够智慧。开源是全球的，经济是全球的，世界是平的，以后的软件均使用utf8编码才是化繁就简的王道。

附录：很烦很复杂的MySQL字符集

character_set_server 服务器使用字符集
character_set_database 数据库使用字符集
character_set_system 系统内部元数据使用字符集，默认是utf8
character_set_client 客户端指定字符集
character_set_connection 连接时使用的字符集
character_set_results 返回结果的字符集
校对字符集的latin1_swedish_ci是latin1的默认值
collation_connection latin1_swedish_ci
collation_database latin1_swedish_ci
collation_server latin1_swedish_ci

http://www.cnblogs.com/likun/archive/2008/04/09/1144570.html

3. web.xml设置Filter
=================================================
<filter>
  <filter-name>
   Set Web Application Character Encoding
  </filter-name>
  <filter-class>cn.com.commnet.util.SetEncodeFilter</filter-class>
  <init-param>
   <param-name>defaultencoding</param-name>
   <param-value>UTF-8</param-value>
  </init-param>
</filter>
<filter-mapping>
  <filter-name>
   Set Web Application Character Encoding
  </filter-name>
  <url-pattern>/*</url-pattern>
</filter-mapping>

=============================================
SetEncodeFilter.java
public class SetEncodeFilter implements Filter {
    protected FilterConfig filterConfig = null;
    protected String defaultEncoding = null;
    /* (non-Javadoc)
     * @see javax.servlet.Filter#init(javax.servlet.FilterConfig)
     */
    public void init(FilterConfig arg0) throws ServletException {
        // TODO Auto-generated method stub
        this.filterConfig = arg0;
        this.defaultEncoding = filterConfig.getInitParameter("defaultencoding");
    }
    /* (non-Javadoc)
     * @see javax.servlet.Filter#doFilter(javax.servlet.ServletRequest, javax.servlet.ServletResponse, javax.servlet.FilterChain)
     */
    public void doFilter(
        ServletRequest request,
        ServletResponse response,
        FilterChain chain)
        throws IOException, ServletException {
        // TODO Auto-generated method stub
        request.setCharacterEncoding(selectEncoding(request));
        chain.doFilter(request, response);
    }
    public void destroy() {
        this.defaultEncoding = null;
        this.filterConfig = null;
    }
    protected String selectEncoding(ServletRequest request) {
        return this.defaultEncoding;
    }
}

另需注意的是数据库, 表, 字段的字符集是否也正确!
alert database DBNAME character set=utf8

http://www.cnblogs.com/josson/archive/2005/03/16/119619.html

http://www.cnblogs.com/tsbob/archive/2006/02/14/330727.html

default-character-set=utf8

CREATE TABLE `tablename1` (
  `aaa` varchar(222) default NULL
) ENGINE=InnoDB DEFAULT CHARSET=utf8;

/*数据表 `tablename1` 的数据*/

insert into `tablename1` values

('北大打发打发'),

('北大打发打发'),

('北大打发打发'),

('北大打发打发'),

('北大打发打发'),

('北大打发打发'),

('北大打发打发'),

('北大打发打发'),

('北大打发打发'),

('北大打发打发');

注意在 windows cmd 中 查看是乱码的，因为windows  cmd 使用的是 GBK 编码
我们也可以把编码都用成 gbk

http://www.cnblogs.com/gwazy/archive/2008/04/10/1146766.html

1.       安装.NET FrameWork1.1

2.       安装MySQL 4.1.x www.mysql.com

3.       安装Mysql connector for .Net1.0  www.mysql.com

二．问题描述：如题

三．问题分析：

Mysql从4.1以后开始支持多编码。用因为MySQL是瑞典人开发的，所以安装MySQL默然是latin1。而我们中文操作系统环境下用到的默认是GB2312.这样我们不管在查询数据库中文数据时，数据库转换字符时就会出现混乱。

四．问题解决：

通一数据库表和字段使用GB2312字符集。具体方法：

1)      在创建数据表时，先执行如下语句：

set character_set_results=gb2312;

set character_set_client=gb2312;

set character_set_connection=gb2312;

set character_set_server=gb2312;

2)      然后再执行建表语句：例如

CREATE TABLE `table1` (

`Code` varchar(10) NOT NULL default '',

`Name` double default '-1',

PRIMARY KEY (`Code`)

) ENGINE=MyISAM DEFAULT CHARSET=gb2312;

这里字符集也设置为gb2312

3)      建立asp.net工程，修改 web.config文件中的

           <globalization

              requestEncoding="gb2312"

            responseEncoding="gb2312"

/>

4)      修改数据库连接字符串，设置指定的字符集：

“server=yourIP;database=yourDB; User ID=yourID;Password=yourPwd; Charset=gb2312”

5)      完成。

五．小节

其实如果想得到更好的国际化支持，同一使用UTF-8既可。

http://www.cnblogs.com/HuangLiang/archive/2007/03/21/681570.html

Abs

Dim o As New Common.主表_Operate
Dim item As New Common.主表
Dim command As ICommand = o.SQL.Saclar(item._库存量.Abs).From(item)
Console.WriteLine("ABS语句：{0}", command.CommandText)
Dim value As Object = o.ExecuteScalar(command)
Console.WriteLine("绝对值：{0}", value)

红色部份就是对应的Sql语句。获取库存量的绝对值，并返回第一行第一列的值。

AsName,Sum

Dim o As New Common.主表_Operate
Dim item As New Common.主表
Dim command As ICommand = o.SQL.Saclar(o.SQL.AsName(item._库存金额.Sum, "库存总金额")).From(item)
Console.WriteLine("ASName语句：{0}", command.CommandText)
Dim value As Object = o.ExecuteScalar(command)

对库存金额求和，返回的列名，是库存总金额。

Avg

Dim o As New Common.主表_Operate
Dim item As New Common.主表
Dim command As ICommand = o.SQL.Saclar(item._库存量.Avg).From(item)
Console.WriteLine("Avg语句：{0}", command.CommandText)
Dim value As Object = o.ExecuteScalar(command)
Console.WriteLine("平均值：{0}", value)

对库存量求平均值

Bracket，Count

Dim o As New Common.主表_Operate
Dim item As New Common.主表
Dim command As ICommand = o.SQL.Saclar(item._库存量.Count).From(item). _
    WHERE(o.SQL.Bracket(item._物品型号.EqualTo("aa").And(item._物品名称.EqualTo("bb")). _
            Or(o.SQL.Bracket(item._生产厂家.EqualTo("cc").And(item._单位.EqualTo("11"))) _
               ) _
          ) _
       )
Console.WriteLine("Bracket：{0}", command.CommandText)
Dim value As Object = o.ExecuteScalar(command)
Console.WriteLine("Bracket：{0}", value)

这个主要针对条件优先级的调整。相当于sqlserver,access中的括号，上面原始的sql语句是。

select count(库存量) from item where (物品型号='aa' and 物品名称='bb')

or (生产厂家='cc' and 单位='11')

唯一不好的地方，是感觉括号太多了，不知道有没有什么办法。

Day

Dim o As New Common.进仓_Operate
Dim item As New Common.进仓
Dim command As ICommand = o.SQL.Saclar(item._日期.Day).From(item)
Console.WriteLine("Day：{0}", command.CommandText)
Dim value As Object = o.ExecuteScalar(command)
Console.WriteLine("Day：{0}", value)

Exists

Dim o As New Common.主表_Operate
Dim item As New Common.主表
Dim j As New Common.进仓
Dim command As ICommand = o.SQL.Saclar(item._物品型号.Count()).From(item). _
    WHERE(o.SQL.Exists(item._ID.NotEqualTo(j._主表ID), j))
Console.WriteLine("Exists：{0}", command.CommandText)
Dim value As Object = o.ExecuteScalar(command)
Console.WriteLine("Exists：{0}", value)

针对Exists语句的支持。原始的t-sql语句是:

select count(物品型号) from item 

where exists(select 1 from 进仓 where item.id<>进仓.主表id)

IsNUll

Dim o As New Common.主表_Operate
Dim item As New Common.主表
Dim pars As New ParameterCollection
pars.Add(o.DataProvider.DataHelper.GetNewPar("@A", System.DBNull.Value))
Dim command As ICommand = o.SQL.Saclar(o.SQL.IsNull( _
    New At.Data.CustomExpression("@A", pars), "zqonlie")). _
    From(item). _
    OrderBy(item._物品型号.OrderBy(SortDirection.DESC))
Console.WriteLine("IsNUll：{0}", command.CommandText)
Dim value As Object = o.ExecuteScalar(command)
Console.WriteLine("IsNUll：{0}", value)

这里根据sqlserver里的isnull(expression,value)函数而来,测试表达式是否为null，如果是则用

指定的值替代。目前已知access里的isnull函数与sqlserver的含义不一样，这里MsAccessSqlBuilder

类重写了，iif(isnull(expression), value,expression),结合iif与isnull完成。

CustomExpression：自定义表达式对象，根据针对数据源编写表达式如：针对sqlserver可以写

case 语句的支持。

OrderBy：是对查询排序的支持

原型t-sql:select isnull(@a,zqonline) from item order by 物品型号 desc

Left

Dim o As New Common.主表_Operate
Dim item As New Common.主表
Dim command As ICommand = o.SQL.Saclar(item._物品型号.Left(10)).From(item). _
OrderBy(item._物品型号.OrderBy(SortDirection.DESC))
Console.WriteLine("Left：{0}", command.CommandText)
Dim value As Object = o.ExecuteScalar(command)
Console.WriteLine("Left：{0}", value)

Len

Dim o As New Common.主表_Operate
Dim item As New Common.主表
Dim command As ICommand = o.SQL.Saclar(o.SQL.Len(item._物品型号.Max)).From(item)
Console.WriteLine("Len：{0}", command.CommandText)
Dim value As Object = o.ExecuteScalar(command)
Console.WriteLine("Len：{0}", value)

Lower

Dim o As New Common.主表_Operate
Dim item As New Common.主表
Dim command As ICommand = o.SQL.Saclar(o.SQL.AsName(o.SQL.Lower(item._物品型号.Max), "转换为小写"))

.From(item)
Console.WriteLine("Lower：{0}", command.CommandText)
Dim value As Object = o.ExecuteScalar(command)
Console.WriteLine("Lower：{0}", value)

ltrim,max,min,Month,Right,Replace,Round,Rtrim,SubString,Sum,Upper,Year其中MsAccess不支持

Replace函数

以上这此函数调用方式都类似。这里就不一一举例了。

Not

Dim o As New Common.主表_Operate
Dim item As New Common.主表
Dim command As ICommand = o.SQL.Saclar(item._物品型号.Left(10)). _
From(item).WHERE(o.SQL.Not(item._物品型号.EqualTo(1))). _
OrderBy(item._物品型号.OrderBy(SortDirection.DESC))
Console.WriteLine("[Not]：{0}", command.CommandText)
Dim value As Object = o.ExecuteScalar(command)
Console.WriteLine("[Not]：{0}", value)

原型t-sql:select left(物品型号,10) from item where not 物品型号='1' order by 物品型号 desc

如果感兴趣，请继续关注。

C：创建

R：获取

U：更新

D：删除

首先看C：

    <NUnit.Framework.Test()> _
    Public Sub Insert()
        Dim item As New Common.主表
        item.物品名称 = "test"
        item.物品编号 = System.Guid.NewGuid.ToString
        item.库存量 = 1
        item.库存金额 = 11
        Dim o As New Common.主表_Operate
        If o.Accept(item) = 0 Then
            Assert.Fail("没有返回插入记录，影响的行数。")
        End If

        NUnit.Framework.Assert.AreNotEqual(item.ID, 0)
    End Sub

首先实例化实体，实体赋值，在实例化操作对象。系统也提供通用的操作对象EntityDbOperate。

在大多数业务情况上，添加，删除，修改都有自己相应的逻辑。

看R:

    <NUnit.Framework.Test()> _
    Public Sub [Select]()
ADD:
        Dim item As New Common.主表
        Dim o As New Common.主表_Operate

        Dim ec As Common.主表_Container = o.GetEntityContainer(Nothing)
        If ec.Count = 0 Then
            Me.Insert()
        End If
        Assert.AreNotEqual(ec.Count, 0)


        Console.WriteLine("共有 {0} 个对象。", ec.Count)

    End Sub

GetEntityContainer方法返回所有的实体对象。由于这里是测试方法，还调用添加对象的方法。

GetEntityContainer方法的参数是expression，也就是表达式，可以支持自定义命令。

这里传入Nothing，也就是获取所有的对象，当然这里先获取DataTable在转换成实体的。

返回的是自定义的集合对象，实现了IList,IBindList等集合方面的接口，可以直接绑到

DataGrid,UltraGrid等表格控件上。

看D：

    <NUnit.Framework.Test()> _
    Public Sub Delete()
Del:
        Dim item As Common.主表
        item = New Common.主表
        Dim o As New EntityDbOperate(Me.DbOperate.DataProvider)

        item = o.GetEntity(o.SQL.Select(1, False).From(item).WHERE(Nothing), item)
        If item Is Nothing Then
            Me.Insert()
            GoTo Del
        End If

        Dim o1 As New Common.主表_Operate
        Dim command As ICommand = o1.SQL.Delete(item).From(item).WHERE(item._ID.EqualTo(item.ID))
        Console.WriteLine(command.CommandText)

        Console.WriteLine("删除前共有 {0} 条记录！", o.GetCount(Nothing, item))

        If o1.Delete(item) = 0 Then
            Assert.Fail("删除实体发生错误，没有返回影响的行数。")
        End If

        Console.WriteLine("删除后共有 {0} 条记录！", o.GetCount(Nothing, item))

        NUnit.Framework.Assert.AreEqual(item.State, Core.EntityState.Deleted)

    End Sub

这里看起代码比较多，这里是先获取一个实体对象

o.sql(1,false).from(item).where(nothing)，这是我自己定义的sql语句写法，

翻译成t-sql语句就是：select top 1 * from item

如果当前还没有记录，就添加一个对象。

Dim command As ICommand = o1.SQL.Delete(item).From(item).WHERE(item._ID.EqualTo(item.ID))

 Console.WriteLine(command.CommandText) 

这句话的意思是构建一条删除语句，我这里主要是为了打印出语句才这样写的，产生的t-sql语句是：

delete from item where item.id=1

那么实体删除实体的代码呢是:o1.Delete(item)，只有一句代码，当然方法内部也是通过上面这条语句构建的

删除语句。

看U：

    <NUnit.Framework.Test()> _
    Public Sub Update()
REST:
        Dim o As New Common.主表_Operate

        Dim item As New Common.主表

        '获取任意一个实体
        item = o.GetEntity(Nothing)
        If item Is Nothing Then
            '当前表中没有记录，插入一个实体。
            Me.Insert()
            GoTo REST
        End If


        Dim key As String = System.Guid.NewGuid.ToString
        item.物品名称 = key
        If item.State <> EntityState.Modified Then
            Assert.Fail("实体的状态没有发生变化。")
        End If

        If item._物品名称.State <> FieldState.Modified Then
            Assert.Fail("实体字段 模块名称 状态没有置为Modified。")
        End If

        '提交数据更新
        Dim cmd As ICommand = o.GetUpdateCommand(item)
        '打印SQL语句
        Console.WriteLine(cmd.CommandText)
        '获取需要更新的字段列表
        Dim fs As Data.ColumnValueCollection = o.GetUpdateColumns(item)
        For Each c As IColumnValue In fs.ToArray
            Console.WriteLine(c.FieldExpression.Expression(Nothing).ToString)
        Next
        o.Update(item)

        '判断更新是否成功。
        '按当前实体的ID进行查找，这里也可以写成
        item = o.GetEntity(item._ID.EqualTo(item.ID))

        Assert.AreEqual(item.物品名称, key, "值没有更新成功")


    End Sub

     这里也是综合了几个方法的代码，首先看一下红色部份的代码

     item.State<>EntityState.Modified

     这句话的作用是判断实体是已发生了更改。

     item._物品名称.State<>FieldState.Modified

     这句话的作用是判断实体的字段是否发生了修改。

'提交数据更新 

Dim cmd As ICommand = o.GetUpdateCommand(item) 

'打印SQL语句

 Console.WriteLine(cmd.CommandText) 

'获取需要更新的字段列表 

Dim fs As Data.ColumnValueCollection = o.GetUpdateColumns(item) 

For Each c As IColumnValue In fs.ToArray 

Console.WriteLine(c.FieldExpression.Expression(Nothing).ToString) 

Next 

以上这段代码也是，用于测试的，首先获取一个cmd对象，这个Cmd对象是根据传入的实体对象

构建成的一个UpdateCommand对象，也就是更新语句。

接着打印出更新语句。

然后获取传的实体那些字段参于了更新，实体在进行更新时，就会提交已修改的字段，

没有修改的字段，不会造成在Update语句中。这里是根据实体字段的状态State进行判断的。

其实真正更新实体的语句是

o1.Update(item)，以上部门都是在Update方法内部实现的。

好了，今天就先到这里了，如果大家有兴趣，请继续关注！

主博客：http://zqonline.cnblogs.com

使用.Net多年，没有什么进步，比较困惑。可能是非主流的原因，很多时候一个问题，能用代码来解决，确无法用文字来解释，为了增强这方面的功力，接下来把自己正在开发的一个数据层拿出来说话。可能这是在重复造轮子，对于小系统来说自己造的轮子，也许用起来更顺手。

此物的目的：也就是一个数据访问的功能。

希望能支持多种数据库：

1. Access2000，写一个小东西用它还是不错的。
2. SQLSERVER，不用说，肯定要支持它，我也只对它比较熟一些。
3. MySql，有时使用SQLSERVER增加了客户的成本，不过这个东西维护人员也不好找吧，当然你用盗版列外。当然我还没有用过，在写这个组件的同时，慢慢学习。

以下是在接下来的演示中需要用到的表结构图：

这里有三个表，实体与表是一对一的。也相应的有三个实体，实体我一般都是放在命名空间Common下的。下面我简单的列出主表的实体代码。

Imports At.Data
Imports At.Core
Imports System.ComponentModel
Namespace Common
    Public Class 主表
        Inherits EntityBase
#Region "类实例化"
        Public Sub New()
            MyBase.new()
        End Sub
#End Region
#Region "实体字段描述"
        Private f_ID As IEntityField

        <Browsable(False)> _
        Public Overridable ReadOnly Property _ID() As IEntityField
            Get
                If f_ID Is Nothing Then
                    f_ID = Me.DataHelper.GetEntityField

(Me, "ID", "ID", True, False, DbType.Int32, 4)
                End If
                Return f_ID
            End Get
        End Property

        Private f_物品编号 As IEntityField

        <Browsable(False)> _
        Public Overridable ReadOnly Property _物品编号() As IEntityField
            Get
                If f_物品编号 Is Nothing Then
                    f_物品编号 = Me.DataHelper.GetEntityField

                    (Me, "物品编号", "物品编号", False, False, DbType.String, 50)
                End If
                Return f_物品编号
            End Get
        End Property

        Private f_物品名称 As IEntityField

        <Browsable(False)> _
        Public Overridable ReadOnly Property _物品名称() As IEntityField
            Get
                If f_物品名称 Is Nothing Then
                    f_物品名称 = Me.DataHelper.GetEntityField

                    (Me, "物品名称", "物品名称", False, False, DbType.String, 50)
                End If
                Return f_物品名称
            End Get
        End Property

        Private f_物品型号 As IEntityField

        <Browsable(False)> _
        Public Overridable ReadOnly Property _物品型号() As IEntityField
            Get
                If f_物品型号 Is Nothing Then
                    f_物品型号 = Me.DataHelper.GetEntityField

                 (Me, "物品型号", "物品型号", False, False, DbType.String, 50)
                End If
                Return f_物品型号
            End Get
        End Property

        Private f_单位 As IEntityField

        <Browsable(False)> _
        Public Overridable ReadOnly Property _单位() As IEntityField
            Get
                If f_单位 Is Nothing Then
                    f_单位 = Me.DataHelper.GetEntityField

                    (Me, "单位", "单位", False, False, DbType.String, 50)
                End If
                Return f_单位
            End Get
        End Property

        Private f_生产厂家 As IEntityField

        <Browsable(False)> _
        Public Overridable ReadOnly Property _生产厂家() As IEntityField
            Get
                If f_生产厂家 Is Nothing Then
                    f_生产厂家 = Me.DataHelper.GetEntityField

        (Me, "生产厂家", "生产厂家", False, False, DbType.String, 50)
                End If
                Return f_生产厂家
            End Get
        End Property

        Private f_库存量 As IEntityField

        <Browsable(False)> _
        Public Overridable ReadOnly Property _库存量() As IEntityField
            Get
                If f_库存量 Is Nothing Then
                    f_库存量 = Me.DataHelper.GetEntityField

   (Me, "库存量", "库存量", False, False, DbType.Decimal, 9)
                End If
                Return f_库存量
            End Get
        End Property

        Private f_库存金额 As IEntityField

        <Browsable(False)> _
        Public Overridable ReadOnly Property _库存金额() As IEntityField
            Get
                If f_库存金额 Is Nothing Then
                    f_库存金额 = Me.DataHelper.GetEntityField

    (Me, "库存金额", "库存金额", False, False, DbType.Decimal, 9)
                End If
                Return f_库存金额
            End Get
        End Property


#End Region
#Region "实体属性"
        Private md_ID As Integer

        <Browsable(True)> _
        Public Overridable Property ID() As Integer
            Get
                Return md_ID
            End Get
            Set(ByVal Value As Integer)
                If value <> md_ID Then
                    md_ID = Value
                    Me.OnPropertyChanged("ID")
                End If
            End Set
        End Property

        Private md_物品编号 As String = String.Empty

        <Browsable(True)> _
        Public Overridable Property 物品编号() As String
            Get
                Return md_物品编号
            End Get
            Set(ByVal Value As String)
                If value <> md_物品编号 Then
                    md_物品编号 = Value
                    Me.OnPropertyChanged("物品编号")
                End If
            End Set
        End Property

        Private md_物品名称 As String = String.Empty

        <Browsable(True)> _
        Public Overridable Property 物品名称() As String
            Get
                Return md_物品名称
            End Get
            Set(ByVal Value As String)
                If value <> md_物品名称 Then
                    md_物品名称 = Value
                    Me.OnPropertyChanged("物品名称")
                End If
            End Set
        End Property

        Private md_物品型号 As String = String.Empty

        <Browsable(True)> _
        Public Overridable Property 物品型号() As String
            Get
                Return md_物品型号
            End Get
            Set(ByVal Value As String)
                If value <> md_物品型号 Then
                    md_物品型号 = Value
                    Me.OnPropertyChanged("物品型号")
                End If
            End Set
        End Property

        Private md_单位 As String = String.Empty

        <Browsable(True)> _
        Public Overridable Property 单位() As String
            Get
                Return md_单位
            End Get
            Set(ByVal Value As String)
                If value <> md_单位 Then
                    md_单位 = Value
                    Me.OnPropertyChanged("单位")
                End If
            End Set
        End Property

        Private md_生产厂家 As String = String.Empty

        <Browsable(True)> _
        Public Overridable Property 生产厂家() As String
            Get
                Return md_生产厂家
            End Get
            Set(ByVal Value As String)
                If value <> md_生产厂家 Then
                    md_生产厂家 = Value
                    Me.OnPropertyChanged("生产厂家")
                End If
            End Set
        End Property

        Private md_库存量 As Decimal

        <Browsable(True)> _
        Public Overridable Property 库存量() As Decimal
            Get
                Return format(md_库存量, "0.######")
            End Get
            Set(ByVal Value As Decimal)
                If value <> md_库存量 Then
                    md_库存量 = Value
                    Me.OnPropertyChanged("库存量")
                End If
            End Set
        End Property

        Private md_库存金额 As Decimal

        <Browsable(True)> _
        Public Overridable Property 库存金额() As Decimal
            Get
                Return format(md_库存金额, "0.######")
            End Get
            Set(ByVal Value As Decimal)
                If value <> md_库存金额 Then
                    md_库存金额 = Value
                    Me.OnPropertyChanged("库存金额")
                End If
            End Set
        End Property


#End Region
#Region "设置实体的属性"

        Public Overrides Sub SetValue(ByVal attributename As String, ByVal value As Object)
            Select Case attributename

                Case "ID"
                    ID = value
                Case "物品编号"
                    物品编号 = value
                Case "物品名称"
                    物品名称 = value
                Case "物品型号"
                    物品型号 = value
                Case "单位"
                    单位 = value
                Case "生产厂家"
                    生产厂家 = value
                Case "库存量"
                    库存量 = value
                Case "库存金额"
                    库存金额 = value
                Case Else
                    MyBase.SetValue(attributename, value)
            End Select
        End Sub
#End Region
#Region "获取实体的属性"

        Public Overrides Function GetValue(ByVal attributename As String) As Object
            Select Case attributename

                Case "ID"
                    Return ID
                Case "物品编号"
                    Return 物品编号
                Case "物品名称"
                    Return 物品名称
                Case "物品型号"
                    Return 物品型号
                Case "单位"
                    Return 单位
                Case "生产厂家"
                    Return 生产厂家
                Case "库存量"
                    Return 库存量
                Case "库存金额"
                    Return 库存金额
                Case Else
                    Return MyBase.GetValue(attributename)
            End Select
        End Function
#End Region
#Region "实体其它属性"

        <Browsable(False)> _
        Public ReadOnly Property Guid() As String
            Get
                Return "aee5307acf2a24a0a8e1f5c650d5e24d6"
            End Get
        End Property

        <Browsable(False)> _
        Public Overrides ReadOnly Property TableName() As String
            Get
                Return "主表"
            End Get
        End Property

        <Browsable(False)> _
        Public Overrides ReadOnly Property AutoIncrement() As IEntityField
            Get
                Return _ID
            End Get
        End Property
#End Region
    End Class
End Namespace

         表里的每个字段映射到实体对象的实体字段（IEntityField对象），这里没有采用XML配置文件或属性的方式。使用XML文件太繁杂，特别是系统经常进行调整和修改时会很头痛。属性的方式比较字段，但是不能按一个常规对象来进行访问。曾在前两年使用过这种方式。

属性解说：

TableName：对应的是数据库的表名，有时我们可能需要在同一服务器上进行跨库访问，可以不用修改数据库连接字符串，直接设置实体对象的DbName名称就可以，以后会有这方面的例子。

AutoIncrement：是对应的自动增长字段，虽然我们可以通过IEntityField对象可以判断出那个字段是AutoIncrement的，这样需要一个循环，所以这里就单独的公开了一个属性。如果需要对实体进行CRUD操作，则必须要设置一个字段为自动增长字段。当然你可以不设，那么CRUD操作，就需要你自己写代码了。

Guid:这个属性没有实际意义，正在考虑，是否去掉。

SetValue,GetValue:这个方法是重写基类的，基类的SetValue和GetValue是使用反射的形式把DataRow对象转换为一个实体对象，反射的效率比较差，所以这里就采用了折衷的方法，使用硬编码。

OnPropertyChanged:这个方法用于当字段的值发生变化时，引发一个事件。

DataHelper.GetEntityField:用于根据当前数据库获取一个字段描述对象，我称为字段对象。

对这个实体对象就简单介绍完了，如果您有兴趣讲继续关注。一个简单的数据访问层！

Access也有IsNull函数，但意义和参数却和T-SQL中的不同。

在T-SQL（也就是SQL Server所支持的SQL语言）中，IsNull的作用是把空值替代成指定的值。然而在Access中，IsNull的作用仅仅是判断是否为空值，而且参数的个数也和T-SQL中的不一样，只有一个输入参数。
庆幸的是Access支持iif，所以可以这样去替代：
Select iif(IsNull( express ), value1, value2 ) From TableName

iif(IsNull( express ), value1, value2 )
相当于：
If express Is Null Then
    Return value1
Else
    Return value2
End if

举个例子，在SQL Server中：
select IsNull(int_Filed1, 0) from Table1

换作Access，则应该被改写为：
select iif( IsNull(int_Filed1), 0, int_Filed1 ) from Table1

建立索引:
下面的语句在Tab1的Date列上建立可重复索引
Create Index iDate ON Tab1 ([Date]);
完成后ACCESS中字段Date索引属性显示为 - 有(有重复).
下面的语句在Tab1的Name列上建立不可重复索引
Create Unique Index iName ON Tab1 (Name);
完成后ACCESS中字段Name索引属性显示为 - 有(无重复).
下面的语句删除刚才建立的两个索引
Drop Index iDate ON Tab1;
Drop Index iName ON Tab1;

ACCESS与SQLSERVER中的UPDATE语句对比:
SQLSERVER中更新多表的UPDATE语句:
UPDATE Tab1
SET a.Name = b.Name
FROM Tab1 a,Tab2 b
WHERE a.ID = b.ID;
同样功能的SQL语句在ACCESS中应该是
UPDATE Tab1 a,Tab2 b
SET a.Name = b.Name
WHERE a.ID = b.ID;
即:ACCESS中的UPDATE语句没有FROM子句,所有引用的表都列在UPDATE关键字后.
上例中如果Tab2可以不是一个表,而是一个查询,例:
UPDATE Tab1 a,(Select ID,Name From Tab2) b
SET a.Name = b.Name
WHERE a.ID = b.ID;

访问多个不同的ACCESS数据库-在SQL中使用In子句:
Select a.*,b.* From Tab1 a,Tab2 b In 'db2.mdb' Where a.ID=b.ID;
上面的SQL语句查询出当前数据库中Tab1和db2.mdb(当前文件夹中)中Tab2以ID为关联的所有记录.
缺点-外部数据库不能带密码.

在ACCESS中访问其它ODBC数据源
下例在ACCESS中查询SQLSERVER中的数据
SELECT * FROM Tab1 IN [ODBC]
[ODBC;Driver=SQL Server;UID=sa;PWD=;Server=127.0.0.1;DataBase=Demo;]
外部数据源连接属性的完整参数是:
[ODBC;DRIVER=driver;SERVER=server;DATABASE=database;UID=user;PWD=password;]
其中的DRIVER=driver可以在注册表中的
HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBCINST.INI\
中找到

ACCESS支持子查询

ACCESS支持外连接,但不包括完整外部联接,如支持
LEFT JOIN 或 RIGHT JOIN
但不支持
FULL OUTER JOIN 或 FULL JOIN

ACCESS中的日期查询
注意:ACCESS中的日期时间分隔符是#而不是引号
Select * From Tab1 Where [Date]>#2002-1-1#;
在DELPHI中我这样用
SQL.Add(Format(
'Select * From Tab1 Where [Date]>#%s#;',
[DateToStr(Date)]));

ACCESS中的字符串可以用双引号分隔,但SQLSERVER不认,所以为了迁移方便和兼容,
建议用单引号作为字符串分隔符.
常在一些bbs上面看见有人在问Access转换为 MS SQL 有什么要注意的地方，或是编写存储过程，现在小弟在此写一些要注意的或者常用的语法给大家参考（部分为asp常用的函数）
－－－－－－－－－－－－－－－－－－－
Access ： Now()
MS SQL ： GetDate()
－－－－－－－－－－－－－－－－－－－
Access ： mid
MS SQL ： SubString( expression , start , length )
expression－要搜索的目标，但不能使用聚合函数
start－指定字符串的开始位置
length－指定获取字符串的长度
－－－－－－－－－－－－－－－－－－－
Asp ： Instr
MS SQL：CharIndex( expression1 , expression2 )
参数的位置和 Asp 的 Instr刚好相反
－－－－－－－－－－－－－－－－－－－
Asp ： Dim
MS SQL ： Declare @variable DataType
举例：Declare @VarName VarChar(50) 声明变量@VarName为VarChar类型，长度为50
－－－－－－－－－－－－－－－－－－－
赋值：
Declare @VarName VarChar(10)
Set @VarName = 'This is Content'
－－－－－－－－－－－－－－－－－－－
数据类型转换函数，如 Asp 的 Cstr，Clng
MS SQL ： Cast( expression As DataType)
expression 为目标对象
DataType 为要转换成的数据类型
举例：
Declare @VarName VarChar(20) -- 声明一个 @VarName 变量为VarChar类型，长度20
Set @VarName = '2' -- 给 @VarName 赋值
Cast( @VarName As Int) -- 转换成 Int 类型数据
－－－－－－－－－－－－－－－－－－－
字符串连接符号： +
－－－－－－－－－－－－－－－－－－－
循环：
While Boolean_expression
Begin
-- 要执行的语句
End
Boolean_expression 为布尔表达式，只要指定的条件为真，就循环执行语句
－－－－－－－－－－－－－－－－－－－
if 的用法
if (Boolean_expression)
Begin
-- 执行 True 分支....
End
if....else.... 的用法
if (Boolean_expression)
Begin
-- 执行 True 分支....
End
Else
Begin
-- 执行 False 分支
End

原文:http://www.cnblogs.com/zhuor/archive/2006/07/28/462232.html

常在一些bbs上面看见有人在问Access转换为 MS SQL 有什么要注意的地方，或是编写存储过程，现在小弟在此写一些要注意的或者常用的语法给大家参考（部分为asp常用的函数）

－－－－－－－－－－－－－－－－－－－

Access ： Now()

MS SQL ： GetDate()

－－－－－－－－－－－－－－－－－－－

Access ： mid

MS SQL ： SubString( expression , start , length )
expression－要搜索的目标，但不能使用聚合函数
start－指定字符串的开始位置
length－指定获取字符串的长度

－－－－－－－－－－－－－－－－－－－

Asp ： Instr

MS SQL：CharIndex( expression1 , expression2 )
参数的位置和 Asp 的 Instr刚好相反

－－－－－－－－－－－－－－－－－－－

Asp ： Dim

MS SQL ： Declare @variable DataType
举例：Declare @VarName VarChar(50)    声明变量@VarName为VarChar类型，长度为50

－－－－－－－－－－－－－－－－－－－

赋值：
Declare @VarName VarChar(10)
Set @VarName = 'This is Content'

－－－－－－－－－－－－－－－－－－－

数据类型转换函数，如 Asp 的 Cstr，Clng

MS SQL ： Cast( expression As DataType)
expression 为目标对象
DataType 为要转换成的数据类型

举例：

Declare @VarName VarChar(20)   -- 声明一个 @VarName 变量为VarChar类型，长度20
Set @VarName = '2'             -- 给 @VarName 赋值
Cast( @VarName As Int)         -- 转换成 Int 类型数据

－－－－－－－－－－－－－－－－－－－

字符串连接符号： +

－－－－－－－－－－－－－－－－－－－

循环：

While Boolean_expression
    Begin
        -- 要执行的语句
    End

Boolean_expression 为布尔表达式，只要指定的条件为真，就循环执行语句

－－－－－－－－－－－－－－－－－－－

if 的用法
if (Boolean_expression)
    Begin
        -- 执行 True 分支....
    End

if....else.... 的用法
if (Boolean_expression)
    Begin
        -- 执行 True 分支....
    End
Else
    Begin
        -- 执行 False 分支
    End

－－－－－－－－－－－－－－－－－－－

ACCESS改为SQL需要注意哪几个地方

看到别人有时问这个方面的问题。。于是在各网站总结前前辈高人的几点想法，拿来共享：

数据库导入以后，自动增加字段需要重写，所有的数字类型需要增加长度，最好用decimal。

所有的默认值都丢失了。主要是数字类型和日期类型。

所有now()，time()，date()要改成getdate()。

所有datediff('d', time1, time2)要改成datediff(day, time1, time2)

有可能一些true/false类型不能使用，要变为1/0。

备注类型要通过cast(column as varchar)来使用。

CursorType要改成1,也就是打开数据库时要给出第一个数字参数为1，否则记录可能显示不完整。

isnull(rowname)要改成rowname = null

ACCESS的数据库中的自动编号类型在转化时，sql server并没有将它设为自动编号型，我们需在SQL创建语句中加上identity，表示自动编号！

转化时，跟日期有关的字段，SQL SERVER默认为smalldatetime型，我们最好将它变为datetime型，因为datetime型的范围比smalldatetime型大。有时用smalldatetime型时，转化失败，而用datetime型时，转化成功。

对此两种数据库进行操作的sql语句不全相同，例如：在对ACCESS数据库进行删除纪录时用："delete * from user where id=10",而对SQL SERVER数据库进行删除是用："delete user where id=10".

日期函数不相同，在对ACCESS数据库处理中，可用date()、time()等函数，但对SQL SERVER数据库处理中，只能用datediff,dateadd等函数，而不能用date()、time()等函数。

在对ACCESS数据库处理中,sql语句中直接可以用一些VB的函数，像cstr()函数，而对SQL SERVER数据库处理中，却不能用。

原文:http://www.cnblogs.com/Spring/archive/2005/05/10/152593.html

程序在进行判断时,把网卡和CPU组成的KEY,进行自己设定的次数据进行MD5与注册码进行判断,相等注册成功,不相等注册失败.够简单吧.

1.首先需要获取网卡的MAC和CPU的ID,需要引用System.Management库

1)获取MAC

   Public Function GetMac() As String
        Dim query As System.Management.ManagementObjectSearcher = New System.Management.ManagementObjectSearcher("SELECT * FROM Win32_NetworkAdapterConfiguration")
        Dim queryCollection As System.Management.ManagementObjectCollection = query.Get()
        For Each obj As System.Management.ManagementObject In queryCollection
            If obj.Item("IPEnabled").ToString = "True" Then
                Return obj("MacAddress").ToString.Replace(":", "")
            End If
        Next
    End Function

2)获取CPUID

    Public Function GetCpuID() As String
        Dim mc As System.Management.ManagementClass = New System.Management.ManagementClass("