DKSQL 활용하기

출처: http://www.daekiya.pe.kr/

1. SELECT 하여 Recordset 가져오기

사용법: GetResultRs(QueryID, ParameterDTO)
반환: Recordset
설명: select 문을 호출하여 Recordset 에 데이터를 담는다.

다음과 같이 실행하여 레코드셋을 가져 올 수 있다. 아래의 예제 에서는 이미 쿼리저장소와 데이터베이스 UDL 파일이 지정되었다고 가정하였다.

Dim parameterDto
Set parameterDto = New AdminMenuDto

Dim Rs
Set Rs = DKSQL.GetResultRs("selectAdminMenu", parameterDto)

Do Until Rs.EOF
    Response.Write Rs("menuId")
    Response.Write "<br/>"
    Rs.MoveNext
Loop


'<select id="selectAdminMenu">
'    select menuId, menuName, sortNo
'    from adminMenu
'    where 1 = 1 <isNotEmpty parameter="menuId">and menuId = '#menuId#'</isNotEmpty>
'</select>

2. 결과 값이 없는 쿼리 실행 하기(UPDATE, INSERT, DELETE)

사용법: ExecuteQuery(QueryID, ParameterDTO)
반환: Boolean
설명: QueryID 에 지정한 SQL 을 실행한다.

다음과 같이 사용한다. 아래의 예에서는 update 를 사용하였지만, delete 나 insert 를 사용하고자 할 때에는 QuertId 만 바꿔주면 된다.

Dim parameterDto
Set parameterDto = New AdminMenuDto
    parameterDto.menuId = "A001"
    parameterDto.menuName = "User Menu 1"
    parameterDto.sortNo = "0"

Dim isSuccess
isSuccess = DKSQL.ExecuteQuery("updateAdminMenu", parameterDto)

' <update id="updateAdminMenu">
'     update adminMenu set menuName = '#menuName#'
'               <isEqual parameter="sortNo" compareValue="0">,sortNo = 0</isEqual>
'               <isNotEqual parameter="sortNo" compareValue="0">,sortNo = 1</isNotEqual>
'     where <isNotEmpty parameter="menuId">menuId = '#menuId#'</isNotEmpty>
'</update>

3. DKGrid와 연동하기 샘플 - 준비중