一个整合SQL语句的类

       End Sub

       Private Sub Class_Terminate()

       End Sub

       ''''************************************

       ''''属性

       ''''************************************

       ‘设置表名的属性

       Public Property Let TableName(value)        

              sTableName=value

       End Property

    ‘设置条件

       Public Property Let Where(value)

              sWhere=value

       End Property

    ‘设置排序方式

       Public Property Let Order(value)

              sOrder=value

       End Property

    ‘设置查询语句的类型

       Public property Let SQLType(value)

              iSQLType=value

              select case iSQLType

              case 0

                     sSQL="insert into #0 (#1) values (#2)"

              case 1

                     sSQL="update #0 set #1=#2"

              case 2

                     sSQL="delete from #0 "

              case 3

                     sSQL="select #1 from #0 "          

上一页  [1] [2] [3] [4]  下一页

Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved.
闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18