知识大全 ASP整合一个SQL语句类

Posted 2022-07-17 语句

篇首语：事常与人违，事总在人为。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 ASP整合一个SQL语句类相关的知识，希望对你有一定的参考价值。

ASP整合一个SQL语句类  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　我们在写asp数据库程序的时候 通常都会用到SQL语句 而在增加数据和更新数据的时候 通常会使用一下方式 insert into message (incept sender title content sendtime flag issend) values ( "&incept(i)&" "&membername&" "&title&" "&message&" Now() ) 当字段比较多的时候 而且更新的表比较多的时候 修改起来会比较麻烦 而且查找错误也比较困难 使用这个SQL类后可以简化修改 而且查错也比较容易 通过类的AddField函数增加字段名和字段值 可轻松的将字段名和字段值插入SQL语句 然后返回该SQL语句

　　下面让我们看看这个类的代码

　　＜% class SQLString ************************************ 变量定义 ************************************ sTableName 表名 iSQLType SQL语句类型 增加 更新 删除 查询 sWhere 条件 sOrder 排序方式 sSQL 值

　　PRivate sTableName iSQLType sWhere sOrder sSQL

　　 ************************************ 类初始化/结束 ************************************

　　Private Sub Class_Initialize() sTableName="" iSQLType= sWhere="" sOrder="" sSQL="" 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 sSQL="insert into # (# ) values (# )" case sSQL="update # set # =# " case sSQL="delete from # " case sSQL="select # from # "  end select End Property

　　 ************************************ 函数 ************************************ 增加字段（字段名称 字段值）

　　Public Sub AddField(sFieldName sValue) select case iSQLType case sSQL=replace(sSQL "# " sFieldName & " # ") sSQL=replace(sSQL "# " " " & sFieldName & " # ") case sSQL=replace(sSQL "# " sFieldName) sSQL=replace(sSQL "# " " " & sFieldName & " # =# ") case sSQL=replace(sSQL "# " sFieldName & " # ") End Select End Sub

　　 返回SQL语句 Public Function ReturnSQL() sSQL=replace(sSQL "# " sTableName) select case iSQLType case sSQL=replace(sSQL " # " "") sSQL=replace(sSQL " # " "") case sSQL=replace(sSQL " # =# " "") case sSQL=replace(sSQL " # " "") end Select if sWhere＜＞"" then sSQL=sSQL & " where " & sWhere end if if sOrder＜＞"" then sSQL=sSQL & " order by " & sOrder end if ReturnSQL=sSQL End Function

　　 清空语句

　　Public Sub Clear() sTableName="" iSQLType= sWhere="" sOrder="" sSQL=""

　　End Sub

　　end class

　　%＞  

　　使用方法

　　例句 insert into message (incept sender title content sendtime flag issend) values ( "&incept(i)&" "&membername&" "&title&" "&message&" Now() )

相关参考