1. 오라클 데이터베이스와 연동하기.


<%

Dim connectDB

connectDB = "Provider=OraOLEDB.Oracle; Persist Security Info=False; User ID=InputUserID; Password=InputPassword;  Data Source=InputDataSource;"


Set connectObj = CreateObject("ADODB.Connection")


connectObj.open connectDB


Set result = connectObj.Execute ("InputYourQuery")


Dim arr

If result.eof then

response.write "No data !<br>"

response.end

else

arr = result.GetRows

end if

%>


1. DB와의 연결을 준비함. 

- UserID, Password, Data Source명을 입력해 줍니다.

2. DB와의 연결 오브젝트를 만듦.

3. 연결

4. 결과를 받아올 오브젝트의 인스턴스를 만듦.

-실행시킬 쿼리를 입력합니다.

5. 결과가 있는지 확인해줍니다.




2. 가져온 데이터 출력해보기.


<%

for i = 0 to result.Fields.Count -1

response.write result.fields(i).name & " "

Next

response.write "<br/>"


numcols = ubound(arr,1)

numrows = ubound(arr,2)


for rowPos = 0 to numrows

for colPos = 0 to numcols

response.write arr(colPos, rowPos) & " "

next

response.write "<br/>"

next

%>


1. result에 담긴 column의 이름을 출력합니다.

2. arr에 담긴 column의 수와 row의 수를 얻어옵니다.

3. arr에 담긴 정보를 출력합니다.




3. 메모리해제


<%

Set connectObj = Nothing

Set result = Nothing

%>


1. 다 쓰고 난 Set의 메모리를 해제해줍니다.

반응형

'Programming' 카테고리의 다른 글

[HTML] 태그 영역 숨기기.  (0) 2017.01.24
[Language] 프로그래밍 언어 선택  (0) 2017.01.02
[ASP] 04. 파일 읽기  (0) 2016.12.20
[ASP] 03. 파일 쓰기  (0) 2016.12.20
[ASP] 02. 조건문  (0) 2016.12.20

+ Recent posts