sign in
join
게시판 본문 ASP, ASP.NET, IIS & Script - Read Only 
| 전역 개체 해제가 안되요;; conn |
|---|
|
작성자: 장윤태
작성일시: 2007-08-21 13:11,
조회수: 1,234
|
|
또 올만에~~ 인사드리내여 ( _ _)
◆함수
Public connStr , conn
Private Sub Class_Initialize()
'이니시얼라이즈에서 선언한 케넥션 개체를 해제 할수 없다????? 어떻게 바꾸지??? set conn = nothing 가 안된다;;
connStr = "Driver={SQL Server};Server=ddd;DATABASE=aaa;UID=bbb;PWD=ccc;"
Call openConn()
End Sub
Public Sub openConn()
If Not isObject(Conn) Then
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open connStr
End if
End Sub
Public Sub closeConn()
If isObject(Conn) Then
Conn.Close
Set Conn = Nothing
End if
End Sub
'새로운 커넥션 개체
Public Property Let letConn(Mode)
Dim strConnTemp
Select Case Cint(Mode)
Case 1 : strConnTemp = "Provider=SQLOLEDB.1;Data Source=ddd;Persist Security Info=True;Initial Catalog=aaa;User id=bbb;password=ccc;"
Case else : strConnTemp = "Driver={SQL Server};Server=ddd;DATABASE=aaa;UID=bbb;PWD=ccc;"
End select
connStr = strConnTemp
'response.write isObject(Conn) &"<br>"
Call closeConn()
'response.write isObject(Conn) &"<br>"
Call openConn()
'response.write isObject(Conn) &"<br>"
End Property
◆문제점letConn(Mode) 으로 연결 문자를 바꾸는건되는데 이니시얼라이즈에서 선언한 케넥션 개체를 해제 할수 없습니다;; 그런데 웃기는점은 아래 코드안에서 생성한 conn은 nothing 된다는 것입니다;; 그런데 적역으로 생성한 conn은 nothing 처리가 안됩니다;;
Function RunSQLReturnGR(strSQL)
'On Error Resume Next
Dim Rs , Cmd
Set Rs = Server.CreateObject("ADODB.Recordset")
Set Cmd = Server.CreateObject("ADODB.Command")
Cmd.ActiveConnection = Conn
Cmd.CommandText = strSQL
Cmd.CommandType = adCmdText
Cmd.Prepared = True
Rs.CursorType = adOpenForwardOnly
Rs.LockType = adLockReadOnly
Rs.Open Cmd
Set Cmd = Nothing
RunSQLReturnGR = ArrRs(Rs)
If Err.Number <> 0 Then
Call errorLog_write("RunSQLReturnGR",strSQL)
End if
End function
◆원하는 결과물letConn= "1" aaa = RunSQLReturnGR("select * from member") letConn= "2" bbb = RunSQLReturnGR("select * from member") 이러한 식으로 값을 얻으려고 하는데 전역으로 선언된 conn이 nothing 가 안되내요;; |
|
IP 주소: 211.234.44.234
|
|
송원석 |
죄송합니다. 문제의 난이도가 높아서 테스트를 해봐야만 답변을 드릴 수 있을 것 같은데, 지금 제 상황이 여의치가 않네요. ^_^;;; 사실 ASP 를 해본지도 몇 년이 지나서 올바른 답변을 드린다는 보장도 없습니다. 여유가 생기는대로 한 번 테스트를 해보고 답변드리겠습니다. 감사합니다. ^_^
|
2007-08-21 18:24 |
|
장윤태 |
아니 무슨 말씀을 한번 봐주시는것만 해도 감사하조 ( _ _)
|
2007-08-22 09:33 |
|
게시물 | |||
|---|---|---|---|---|
| 1,718 | 2007-10-11 | 5,885 | ||
| 1,717 | 2007-10-11 | 3,566 | ||
| 1,716 |
|
2007-10-11 | 3,282 | |
| 1,715 |
정보문 |
2007-10-10 | 1,074 | |
| 1,714 | 2007-10-10 | 3,554 | ||
| 1,713 |
정보문 |
2007-10-01 | 1,152 | |
| 1,712 |
|
2007-10-01 | 3,495 | |
| 1,711 |
이런 일이.. [2] |
정보문 |
2007-10-01 | 1,109 |
| 1,710 |
정보문 |
2007-09-20 | 1,241 | |
| 1,709 | 2007-09-20 | 3,418 | ||
| 1,708 | 2007-09-07 | 3,600 | ||
| 1,707 | 2007-09-07 | 3,457 | ||
| 1,706 | 2007-09-07 | 3,471 | ||
| 1,705 | 2007-09-07 | 3,484 | ||
| 1,704 |
이미지 파일 경로 [1] |
정보문 |
2007-08-31 | 1,278 |
| 1,703 |
|
2007-08-31 | 3,764 | |
| 1,702 |
정보문 |
2007-08-30 | 1,215 | |
| 1,701 |
|
2007-08-30 | 3,860 | |
| 1,700 | 2007-08-23 | 10,525 | ||
| 1,699 | 2007-08-23 | 5,069 | ||
 |
장윤태 |
2007-08-21 | 1,234 | |
| 1,697 |
장윤태 |
2007-09-06 | 1,131 | |
| 1,696 | 2007-08-15 | 3,870 | ||
| 1,695 | 2007-08-17 | 3,764 | ||
| 1,694 | 2007-08-17 | 3,618 |
어떻게 하셨다는거죠?
확인
취소