게시판 본문 ASP, ASP.NET, IIS & Script - Read Only

DBHelper
작성자: 이석환
작성일시: 2008-12-19 00:25,  조회수: 2,386
위에거는 DBhelper 소스이고 아래거에서 에러가나는데 뭐가 문제 인지 모르겟습니다.
처음에는 활성연결 속성오류라고 해서 여기저기 찾아봐서 고쳤는데
이것은 도저희 못하겟드라구여;
답변좀 주심 감사하겟습니다.


Public Function ExecSPReturnRS(spName, params, connectionString)
If IsObject(connectionString) Then
If connectionString is Nothing Then
If DefaultConnection is Nothing Then
Set DefaultConnection = CreateObject("ADODB.Connection")
DefaultConnection.Open DefaultConnString
End If
Set connectionString = DefaultConnection
End If
End If

Set rs = CreateObject("ADODB.RecordSet")
Set cmd = CreateObject("ADODB.Command")

cmd.ActiveConnection = connectionString
cmd.CommandText = spName
cmd.CommandType = adCmdStoredProc
Set cmd = collectParams(cmd, params)
'cmd.Parameters.Refresh

rs.CursorLocation = adUseClient
rs.Open cmd, ,adOpenStatic, adLockReadOnly

For i = 0 To cmd.Parameters.Count - 1
If cmd.Parameters(i).Direction = adParamOutput OR cmd.Parameters(i).Direction = adParamInputOutput OR cmd.Parameters(i).Direction = adParamReturnValue Then
If IsObject(params) Then
If params is Nothing Then
Exit For
End If
Else
params(i)(4) = cmd.Parameters(i).Value
End If
End If
Next

Set cmd.ActiveConnection = Nothing
Set cmd = Nothing

If rs.State = adStateClosed Then
Set rs.Source = Nothing
End If

Set rs.ActiveConnection = Nothing

Set ExecSPReturnRS = rs
End Function



=====================================================



Page = injec(Request("page"))
con = injec(Request("con"))
ser = injec(Request("ser"))

PageSize = 10

if page="" then
page=1
end If

Set DBHelper = new clsDBHelper

Dim SpName : SpName = "board_list"

Dim paramInfo(6)
paramInfo(0) = DBHelper.MakeParam("@Page",adInteger,adParamInput,10,Page)
paramInfo(1) = DBHelper.MakeParam("@PageSize",adInteger,adParamInput,10,PageSize)
paramInfo(2) = DBHelper.MakeParam("@con",adVarWChar,adParamInput,50,con)
paramInfo(3) = DBHelper.MakeParam("@ser",adVarWChar,adParamInput,50,ser)

paramInfo(4) = DBHelper.MakeParam("@TotalRecordCnt",adInteger,adParamInput,,0)
paramInfo(5) = DBHelper.MakeParam("@TotalPage",adInteger,adParamInput,,0)
paramInfo(6) = DBHelper.MakeParam("@arrNum",adInteger,adParamOutput,,0)

Set Rs = DBHelper.ExecSPReturnRs(SpName,paramInfo,Nothing)

TotalRecordCnt = DBHelper.GetValue(paramInfo, "@TotalRecordCnt")
TotalPage= DBHelper.GetValue(paramInfo, "@TotalPage")
arrNum= DBHelper.GetValue(paramInfo, "@arrNum")

If NOT RS.EOF Then '' <<<<<<<<<<<<<<<<<<<<<<<<<<<<,여기에서 에러가 납니다
Dim ArrList : ArrList = Rs.GetRows()
End If

rs.Close
Set rs = Nothing

objDBHelper.Dispose
Set objDBHelper = Nothing


==

ADODB.Recordset 오류 '800a0e78'

개체가 닫혀있으면 작업이 허용되지 않습니다.

/list.asp, 줄 34

IP 주소: 222.112.2.221
전체 2,095 건의 게시물, 84 페이지로 구성된 ASP, ASP.NET, IIS & Script 게시판의 11 페이지입니다.
게시물
1,944

re: text형태의 데이타 타입

송원석

2009-02-25 3,964
1,943

table 태그와 HTCs 의 활용

김성태

2009-02-20 2,358
1,942

re: table 태그와 HTCs 의 활용 [1]

송원석

2009-02-23 2,589
1,941

자바스크립 배열에 관해서요.

김종식

2009-02-18 2,382
1,940

re: 자바스크립 배열에 관해서요.

송원석

2009-02-18 2,345
1,939

re: 자바스크립 배열에 관해서요.

김종식

2009-02-19 2,303
1,938

예약작업(스케줄)

이석환

2009-01-22 4,602
1,937

re: 예약작업(스케줄)

송원석

2009-01-23 2,471
1,936

자바스크립에서 activex 호출할때요..

김종식

2009-01-20 1,276
1,935

re: 자바스크립에서 activex 호출할때요..

송원석

2009-01-20 3,004
1,934

형식이 일치하지 않습니다에러

이석환

2008-12-28 2,433
1,933

re: 형식이 일치하지 않습니다에러

송원석

2008-12-29 3,027

DBHelper

이석환

2008-12-19 2,386
1,931

re: DBHelper [1]

송원석

2008-12-19 2,692
1,930

re: DBHelper [1]

송원석

2008-12-21 2,659
1,929

파일 규브 관련 abcupload 설치

궁금이

2008-11-20 2,854
1,928

re: 파일 규브 관련 abcupload 설치

송원석

2008-11-22 2,629
1,927

utf-8 한글깨짐에 관하여..

락토스

2008-11-04 5,695
1,926

re: utf-8 한글깨짐에 관하여..

송원석

2008-11-04 3,192
1,918

IIS(SMTP) 별칭등록과 POP3 도메인등록을 ASP 로..

dvpkam

2008-10-28 1,279
1,917

re: IIS(SMTP) 별칭등록과 POP3 도메인등록을 ASP 로..

송원석

2008-10-28 2,769
1,915

byte로 된 이미지를 저장하려고 합니다. 어떻게 해야 될지...

초급자

2008-10-22 3,139
1,914

re: byte로 된 이미지를 저장하려고 합니다. 어떻게 해야 될지...

송원석

2008-10-23 7,250
1,910

파일큐브 관련 질문요.

jaefe

2008-10-21 2,587
1,909

re: 파일큐브 관련 질문요.

송원석

2008-10-21 3,059