말은 거창하지만... 뜯어보면 별것 아닙니다 -.-;
설명이 뭐 필요하겠습니까 예제부터 보시죠

예제)
Dim objRS : Set objRS = New GDO
Dim objHash : Set objHash = New Hashtable
objHash.Define "title", "monoless 킹왕짱 미남!!"

Call objRS.ExecuteQuery("update taeyo_board set title=?", objHash)

Set objHash = Nothing
Set objRS = Nothing

예제 2)
Dim objRS : Set objRS = New GDO
Dim objHash : Set objHash = New Hashtable
objHash.Define "title", "monoless 킹왕짱 미남!!"

Dim objData : objData = objRS.OpenQuery("select * from taeyo_board where title=?", objHash)

If IsEmpty(objData) = False Then
       Dim curData
       For Each curData In objData
              Response.Write "Title : " & curData.Item("title") & "<br />"
              Response.Write "Name : " & curData.Item("name") & "<br />"
       Next
End If

Set objHash = Nothing
Set objRS = Nothing

생성자)
* [void] GDO() - GDO Class를 생성합니다.

Method)
* [void] ExecuteProc(proc, params) - 프로시져를 실행합니다.
 - [String] proc - 실행할 프로시져명
 - [Object Hashtable] params - 입력할 파라메터

* [void] ExecuteQuery(query, params) - 쿼리를 실행합니다.
 - [String] query - 실행할 쿼리
 - [Object Hashtable] params - 입력할 파라메터

* [Array] OpenProc(proc, params) - 프로시져를 실행합니다. 결과값은 Object Hashtable을 가진 배열로 반
환합니다.
 - [String] proc - 실행할 프로시져명
 - [Object Hashtable] params - 입력할 파라메터

* [Array] OpenQuery(query, params) - 쿼리를 실행합니다. 결과값은 Object Hashtable을 가진 배열로 반환
합니다.
 - [String] query - 실행할 쿼리
 - [Object Hashtable] params - 입력할 파라메터

Property)
* [String] ConnectString - 접속할 DB 연결구문입니다.
2009/04/27 19:29 2009/04/27 19:29

Trackback Address :: 이 글에는 트랙백을 보낼 수 없습니다