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 |