〈%
class sqlstring
************************************
变量定义
************************************
stablename ---- 表名
isqltype ----sql语句类型：0-增加，1-更新，2-删除,3-查询
swhere ---- 条件
sorder ---- 排序方式
ssql ----值

private stablename,isqltype,swhere,sorder,ssql

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

private sub class_initialize()
stablename=""
isqltype=0
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 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 "
end select
end property

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

public sub addfield(sfieldname,svalue)
select case isqltype
case 0
ssql=replace(ssql,"{&*#}1",sfieldname & ",{&*#}1")
ssql=replace(ssql,"{&*#}2","" & svalue & ",{&*#}2")
case 1
ssql=replace(ssql,"{&*#}1",sfieldname)
ssql=replace(ssql,"{&*#}2","" & svalue & ",{&*#}1={&*#}2")
case 3
ssql=replace(ssql,"{&*#}1",sfieldname & ",{&*#}1")
end select
end sub

修改的返回字符串值的函数
返回sql语句
public function returnsql()
ssql=replace(ssql,"{&*#}0",stablename)
select case isqltype
case 0
ssql=replace(ssql,",{&*#}1","")
ssql=replace(ssql,",{&*#}2","")
case 1
ssql=replace(ssql,",{&*#}1={&*#}2","")
case 3
ssql=replace(ssql,",{&*#}1","")
end select
if swhere<>"" and isqltype<>0 then
ssql=ssql & " where " & swhere
end if
if sorder<>"" and isqltype<>0 then
ssql=ssql & " order by " & sorder
end if
returnsql=ssql
end function


返回sql语句
public function returnsql1()
ssql=replace(ssql,"{&*#}0",stablename)
select case isqltype
case 0
ssql=replace(ssql,",{&*#}1","")
ssql=replace(ssql,",{&*#}2","")
case 1
ssql=replace(ssql,",{&*#}1={&*#}2","")
case 3
ssql=replace(ssql,",{&*#}1","")
end select
if swhere<>"" and isqltype<>0 then
ssql=ssql & " where " & swhere
end if
if sorder<>"" and isqltype<>0 then
ssql=ssql & " order by " & sorder
end if
returnsql=ssql
end function

清空语句

public sub clear()
stablename=""
isqltype=0
swhere=""
sorder=""
ssql=""
end sub
end class
%〉


文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!