一個整合SQL語句的類

來源:互聯網
上載者:User
語句 我們在寫ASP資料庫程式的時候,通常都會用到SQL語句,而在增加資料和更新資料的時候,通常會使用一下方式:insert into message (incept,sender,title,content,sendtime,flag,issend) values ('"&incept(i)&"','"&membername&"','"&title&"','"&message&"',Now(),0,1)當欄位比較多的時候,而且更新的表比較多的時候,修改起來會比較麻煩,而且尋找錯誤也比較困難。使用這個SQL類後可以簡化修改,而且查錯也比較容易。通過類的AddField函數增加欄位名和欄位值,可輕鬆的將欄位名和欄位值插入SQL語句,然後返回該SQL語句。

下面讓我們看看這個類的代碼:

<%

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","'" & sFieldName & "',#2")

case 1

sSQL=replace(sSQL,"#1",sFieldName)

sSQL=replace(sSQL,"#2","'" & sFieldName & "',#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<>"" then

sSQL=sSQL & " where " & sWhere

end if

if sOrder<>"" then



相關文章

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。