게시판 리스트 소스를 보면 검색이나 정렬등을 사용하여 쿼리문이 복잡하지 않습니까?

조건이 많아 AND OR 등 If문을 이용하여 쿼리문을 완성하게 되는 데.

첫 조건은 WHERE 시작해야하는 데... 코딩하다 보면 걸리적 거릴때가 있죠. 

그럴때 써줄려고 만들었습니다.

간단한 소스지만 쓸만합니다.

* 큰 프로젝트나 솔루션은 함수화 하여 통일성을 갖추는 게 중요하다 생각해요.

Public Function WhereQueryPaser(Value)

           Dim Reg

           Set Reg = New RegExp

           Reg.IgnoreCase = False

           Reg.Global = True

Value = Trim(Value)

           Reg.Pattern = "^(AND|OR)"

           WhereQueryPaser = Reg.Replace(Value,"WHERE")

Set Reg = Nothing

End Function

' 쿼리 조건

Where = "AND aaa=1 "

Where = Where & "OR bbb=1 "

' 쿼리 조합

Sql = "SELECT * FROM TABLE " & WhereQueryPaser(Where)