[ASP] ADO RS(Record Set) 속성 종류

ASP와 MSSQL을 연동하다보면
DB에서 SELECT로 레코드 배열을 받아왔을때
rs객체에 대한 메소드들이 뭐가 있는지 궁금해져서 검색해봤는데..
비슷한 관련 질의응답이다...


//다음 레코드행으로 포인터를 옮김
rs.movenext

//레코드의 제일 처음행으로 이동
rs.movefirst

//레코드의 제일 마지막행으로 이동. 무슨 이유인지... 이 명령어만은 안먹힌다...
rs.movelast

//숫자 입력으로 원하는 행으로 이동. ex) 15번째 행으로 이동
rs.move 15

관련 질의응답 more..

MoveNext를 활용하는데, 그 사용법에 대해 자세히 몰라서 질문 올립니다.

제가 하고자 하는 건..

MoveNext를 여러번 활용하는 건데요.

예를 들어. 레코드셋을 obRs로 만든다 치면.

obRs.MoveNext

이렇게 쓰잖아요.

근데, 이 MoveNext를 여러번 쓸수가 없는 거 같네요.

제가 사용해 본 결과 한번에 세번 이상은 못쓰는가봐요.

그러니까

obRs.MoveNext obRs.MoveNext obRs.MoveNext

이렇게까지는 에러가 안나는데,

obRs.MoveNext obRs.MoveNext obRs.MoveNext obRs.MoveNext

이렇게 4번부터는 문장의 끝이 필요하다는 에러가 나네요.

3번 이상 사용하려면 어떻게 해야 할까요?

예를 들면 obRs.MoveNext(4) <-이런식으로 사용할 수 있는 거라면 좋을텐데

해보니, 이런 문법은 없는가보네요.

until문을 활용하려니, 제가 그 문법을 잘 몰라서요.

MoveNext의 자세한 활용법 부탁드립니다.

참고로 10번까지 사용해야 해요.

(질문)

(대답)

레코드셋 이동 명령은

movenext는 1단계
여러개의 레코드를 넘어가려면
move명령을 쓰셔야 합니다.
10번이면

obRs.Move(10)

을 쓰시면 가능하겠죠.

(다른대답)

결론을 말씀드리면 조건내와 레코드 카운터 내에서 사용이 가능합니다.

do utile obRs.eof '--조건0
 if not obRs.eof then '--조건1
  obRs.moveNext
 end if

 if not obRs.eof then '--조건2
  obRs.moveNext
 end if

 obRs.moveNext '--조건3
loop

do 문은 obRs.eof(조건0) 가 되기까지 수행합니다.
이때 moveNext는 더이상 수행되지 않습니다.

do 문안에서 조건0 일때까지는 조건1과 조건2가 수행되는데,
조건1에 만족할 경우 즉, 수행할 레코드가 있으면 moveNext가 수행되어 다음 레코드로 넘어갑니다.

조건2에 만족할 경우에도 수행할 레코드가 있으면 moveNext가 수행되어 다음 레코드로 넘어갑니다.

조건3에서 레코드가 없으면 do until에 의해서 do 문이 끝납니다.

잘 이해가 안가시면 쿼리에 top 3을 걸어서 레코드셋으로 테스트를 해 보시면 알 수 있습니다.

moveNext를 주로 수동 이동시킬 경우는 데이터를 한개가 아니고,
두개이상을 일정한 간격으로 보여줄때 주로 쓰입니다.

간단한 ASp코드 입니다

<%  If rs.eof Or rs.bof then%>
<h1><%=searchstring%>으로 검색된 결과가 없습니다</h1>
<%
Else
rs.movelast
recordcnt=rs.recordcount
rs.movefirst
totalpage=rs.pagecount
rs.absolutepage=page
%>

궁금한점이 색깔로 칠해 놓은 부분인데여,,

왜 movelast 와 movefisrt 를 써서 변수 정의를 하였는지 궁금 합니다 (질문)

 (대답)
rs.movelast는 래코드 포인터를 제일 마지막으로 이동 하는 레코드셋의 메소드 입니다
rs.movefirst는 래코드 포인터를 제일 처음으로 이동 하는 레코드셋의 메소드 입니다

아마 제 생각엔 작성 하신 분께서 맨뒤로 가서 레코드 카운트를 세고

맨앞으로 가서 페이지 카운트를 셀려고 하신것 같은데요....

결론은 굳이 저런 식으로 쓸필요가 없습니다

recordcnt=rs.recordcount
totalpage=rs.pagecount

이렇게만 써두 결과는 같기 때문입니다.

[ASP] 형변환 함수 정리

함수	설명
abs	숫자의 절대값을 반환한다
Chr	asc의 반대되는 기능을 하며, 특정 문자 코드의 해당 문자를 반환한다.
Cbyte	서브타입 Byte로 변환한다.
Cdate	서브타입 Date/time로 변환한다.
Cint	서브타입 Integer로 변환한다.
Csng	서비타입 Single로 변환한다.
DateSerial	주어진 년, 월, 일에 대해 서브타딥 Date/Time을 지닌 변수로 변환한다. 가령 DateSerial(1922,11,1)은 #11/1/1922#로 반환된다.
TimeSerial	주어진 시, 분, 초에 대해 서브타입 Date/Time을 지닌 변수로 변환한다.
hex	16진수 문자열로 변환한다.
Fix	잘라내기를 통해 소수를 포함한 숫자의 저수부분만을 반환한다. 단 음수는 인자로 들어 온 수보다 크거나 같은 처 번째 음의 정수를 반환한다. 예)-3.4 -> -3
Sgn	숫자의 부호를 반환한다 양수면 1, 음수면 -1 반환
ASC	문자열의 첫 번째 문자의 ASCII Code를 반환한다.
Cbool	서브타입 Boolean으로 변환한다.
Ccur	서브타입 Currency로 변환한다.
CDbl	서브타입 Double로 변환한다.
CLng	서브타입 Long으로 변환한다.
CStr	서비트입 String으로 변환한다.
DateValue	서브타입 Date/Time을지닌 변수 값을 수치로 바꾸어준다.
TimeValue	서브타입 Date/Time을 지닌 변수 값을 수치로 바꾸어 준다.
Oct	8진수 문자열로 변환한다.
Int	Fix와 마찬가지로 잘라내기를 통해 소수를 포함한 숫자의 정수부분만을 반환한다. 단 음수는 인자로들어 온 수보다 작거나 같은 첫 번째음의 정수를 반환한다. 가령, -3.4는 -4가 반환된다.
날짜관련함수
year	날짜 중 년도를 반환한다.
day	날짜 중 일을 반환한다.
month	날짜 중 월을 반환한다.
weekday	요일중 몇번째 요일인지 숫자로 반환한다. (일~토요일)
문자관련함수
left	Left(String, numChar)형태로 사용되며 왼쪽부터 numChar 개수만큼 문자들을 추출해낸다.
Mid	Mid(String, beginIndex, numChar)형태로 사용되며 왼쪽부터 numChar 개수만큼 문자들을 추출해낸다.
Ucase	모든 문자를 대문자로 반환한다.
Instr	Instr(string, word)형태로 사용되며 문자열내에서 word에 입력한 단어를 찾아내어 그 단어가 시작되는 첫번째 문자의 인덱스를 돌려 줌
Trim	문자열의 앞뒤 공백을 제거
Rtrim	문자열의 오른쪽 공백 제거
Right	Right(String, numChar)형태로 사용되며 오늘쪽부터 numChar 개수만큼 문자들을 추출해낸다.
Len	주어진 인자(string)의 문자 개수를 반환한다.
Lcase	모든 문자를 소문자로 반환한다.
Replace	Replace(string, word1, word2)형태로 사용되며 string문자 중 word1 문자를 word2문자로 변환하여 반환한다.
Ltrim	문자열의 왼쪽 공백 제거
기타함수
FormatCurrency	FormatCurrency(intDate) 형태로 사용하며임의의 숫자를 통화정보로 변환
FormatPercent	Form(doubleDate)형태로 사용하며 %형태로 변환
isArray	변수가 배열이면 True, 아니면 False 리턴
isEmpty	변수가 초기화되어 있지 않으면 True, 아니면 False
isNumeric	숫자 데이터면 True
VarType	변수의 서브타입을 나타내는 숫자를 리턴
FormatDateTime	FormatDateTime(Date, type) 형태로 사용되며 날짜와 시간을 출력하는 형태를 지정할 수 있다. Type에 1,2,3등의 수를 넣어 서로 다른 출력 포맷을 정할 수있다.
split	split(Strind, delaminators) 형태로 사용하며 string 내의 단어들을 delaminators를 기준으로 배열로 변환
isDate	변수가날짜로 변환가능하면 True, 아니면 False 리턴
isNull	유효한 데이터를 포함하고 있으면 True
IsObject	유효한 ActiveX 혹은 OLE 자동화 개체를 포함하고 있으면 True

[ASP] 랜덤함수를 이용한 랜덤값 생성

//한자리값 한자리값을 랜덤으로 생성후 붙여나가는 방식 => 1 A 2 B 3 -> 1A2B3  
//주문코드 xxx-xxx이런식으로 만들고 싶다면 아래 주석을 제거해서 넣으면 되겠다.

<%
  Dim str,code,strlen,r
  Dim rCnt
  str = "123456789ABCDEF"
  strlen = 6  '자릿수

  Randomize  '랜덤초기화
  For i = 1 To strlen
  r = Int((15-1+1) * Rnd + 1) '15는 str의 갯수
  'Response.Write Mid(str,r,1)   '랜덤으로 추출된 하나의 값 확인 최종적으로는 모두 덧붙여진 값이 확인됨
  code = code+Mid(str,r,1)

'  3자리수마다 - 를 붙이고 싶다면 이 주석을 제거
'  if rCnt = 3 then
'    code = code + "-"
'    rCnt = 0
'  else
'    rCnt = rCnt + 1
  Next
  response.write "<script>alert('"& code &"')</script>"    '생성된 코드를 스크립트 경고창으로 확인
%>

위의 경우는 시스템적으로 처리하는 분량이 좀 많다고 볼수 있다.
단순하게 랜덤함수를 생성하고 싶다면
<%
Dim code
  Randomize  '랜덤초기화
  code = 랜덤숫자범위 * Rnd  '랜덤숫자범위내에서 랜덤으로 숫자를 추출
  code = Hex(16777216 * Rnd)  '컴퓨터에서 사용되는 색상컬러값으로 추출하고 싶을때
 

%>

[자바스크립트+ASP] select 박스 선택하면 다음 select 박스 활성화

ASP 자바스크립트 select 박스 선택하면 다음 select 박스 활성화

 

예제 보기..

질문자인사 좋은 답변 감사합니다. 많은 도움이 되었습니다.

<select name="warea_big1" onChange="javascript:WorkAreaDetailWrite(1, this.value)">
        </select> →
     <script>
       WorkAreaBigWrite(1);
      </script>
  <select name="warea_detail1" onChange="javascript:DisableNext(1, false);CheckWorkArea(1)" disabled>
           <option value="0">1차 지역 세부선택</option>
                    </select><br>

   <select name="warea_big2" onChange="javascript:WorkAreaDetailWrite(2, this.value)" disabled>
                    </select> →
        <script>
           WorkAreaBigWrite(2);
         </script>
    <select name="warea_detail2" onChange="javascript:DisableNext(2, false);CheckWorkArea(2)" disabled>
           <option value="0">2차 지역 세부선택</option>
                    </select><br>

     <select name="warea_big3" onChange="javascript:WorkAreaDetailWrite(3, this.value)" disabled>
                    </select> →
         <script>
               WorkAreaBigWrite(3);
         </script>

.....

..

.

이런식으로 되어있는데 어떻게 <option>태그도 없이 디비에서 저런식으로 뿌려올수가있을지 신기할따름입니다.

다음  저 위에 있는소스에서 쓰인 각 자바스크립트 function 소스만 잘라서 올립니다. 이것도 다른두 페이지에서 나뉘어서 인클루드 돼어있네요..

우선 이건 디비에서 값을 가저오는거 같습니다.
// 국내지역 1차 지역선택
var work_area_big = new Array();
work_area_big[0] = new Array();
work_area_big[1] = new Array();
<%
sql = "select warea_code, warea_big from ListWorkArea where warea_code < " & local_count & "00"
RS1.Open(sql), DB
oldcode = 0

Do Until RS1.EOF
 wcode = Trim(RS1("warea_code").Value)
  wbigcode = Cint(Left(wcode, 2))
  wbig = Trim(RS1("warea_big").Value)
 if wbigcode <> oldcode then
%>
work_area_big[0].push("<%=wbigcode%>");
work_area_big[1].push("<%=wbig%>");
<%
 end if
 oldcode = wbigcode
  RS1.MoveNext
Loop
RS1.Close
%>

function WorkAreaBigWrite(sel)
{
 var lselect = eval("document.phistoryform.warea_big" + sel);
  var i = 0;
  var j = 0;
  lselect.options[j++] = new Option(sel + "차 지역선택", "0");
  for (i = 0; i < work_area_big[0].length; i++)
  {
    lselect.options[j++] = new Option(work_area_big[1][i], work_area_big[0][i]);

  }
}

// 국내지역 2차 지역선택
var work_area_detail = new Array();
<%
for wi = 0 to (local_count - 1)
%>
 work_area_detail[<%=wi%>] = new Array();
<%
next

sql = "select warea_code, warea_detail from ListWorkArea where warea_code < " & local_count & "00"
RS1.Open(sql), DB

Do Until RS1.EOF
 wcode = Trim(RS1("warea_code").Value)
  wbigcode = Cint(Left(wcode, 2))
  wdetail = Trim(RS1("warea_detail").Value)
%>
work_area_detail[<%=wbigcode%>].push("<%=wcode%>", "<%=wdetail%>");
<%
  RS1.MoveNext
Loop
RS1.Close
%>

--여기부터 function---

function WorkAreaDetailWrite(sel, grp)
{

 // sel은 select를 구분

 // grp는 option value값

 // sel값으로 object 생성

 var lselect = eval("document.phistoryform.warea_detail" + sel);

  //아래의 함수는 기존에 동적으로 생성했던 2차지역 option 모두 삭제

  jsSelectClear(lselect);
  var i = 0;
  var j = 0;
  lselect.options[j++] = new Option(sel + "차 지역 세부선택", "0");
  for (i = 0; i < work_area_detail[grp].length - 1; i+=2)
  {
    lselect.options[j++] = new Option(work_area_detail[grp][i + 1], work_area_detail[grp][i]);

    //이부분이 이 함수의 핵심이죠

    // 위의 select 문으로  조건에 만족하는 2차지역 값(지역코드, 지역텍스트)을 배열로 담고

    // 배열수 만큼 반복문을 돌리는 것입니다.

    // 서울을 선택했을 경우

    //work_area_big[1][i] 여기에는 강남구 ,강북구, 강서구...

   //work_area_big[0][i]) 여기에는 101, 102 ,103,.... 이렇게 값이 들어가있겠죠.

   // 여기서 동적으로  new Option 으로 새로운 옵션을  생성하는 것입니다.

   // 즉 for(i=0; i<배열수; i++) {

         //new Option(101, 강남구) == <option value=1>강남구</option>

         //new Option(102, 강북구) == <option value=2>강북구</option>
         //new Option(103, 강서구) == <option value=3>강서구</option>

    //}
  }

   //2차 select 활성화
  lselect.disabled = false;
}

function DisableNext(sel, bool)
{

 //n번째 카테고리 선택시 n번째 2차 select 활성화

 if (sel < 3) {
    var nextsel = sel + 1;
    var lselect = eval("document.phistoryform.warea_big" + nextsel);
    lselect.disabled = bool;

   }
}

// 근무지역 선택 체크
function CheckWorkArea(sel)
{ //이부분은 설명 안해도 될듯..^^ 걍 중복선택 체크 후 option삭제함수 호출 ==> 초기화

 var CurrLocal = eval("document.phistoryform.warea_detail" + sel).value;
 var CurrStart = CurrLocal.substring(0, 2);
  var CurrEnd = CurrLocal.substring(2, 4);
  var NumLocal;
  var NumStart;
  var NumEnd;
 for (var num = 1; num < 4; num++) {
  if ((sel != num) && (eval("document.phistoryform.warea_detail" + num).selectedIndex != 0)) {
      NumLocal = eval("document.phistoryform.warea_detail" + num).value;
      NumStart = NumLocal.substring(0, 2);
      NumEnd = NumLocal.substring(2, 4);
   if (NumLocal == CurrLocal) {
    alert("국내지역은 중복선택 하실 수 없습니다.");
        LocalAreaClear(sel);
        DisableNext(sel, true);
   }
      else if ((NumStart == CurrStart) && ((NumEnd == "00") || (CurrEnd == "00"))) {
    alert("해당지역 전체와 상세지역을 같이 선택하실 수 없습니다.");
         LocalAreaClear(sel);
        DisableNext(sel, true);
   }    
  }
 }
}

//option을 삭제하는 함수

function jsSelectClear(argObj) {

   for (i = argObj.length - 1; i >= 0; i--) {

    argObj.options[i] = null;

   }

   //argObj.options[2] = null;  //이렇게하면 3번째 옵션만 삭제됩니다.

}

function LocalAreaClear(num) {
 var big = eval("document.phistoryform.warea_big" + num);
 var detail = eval("document.phistoryform.warea_detail" + num);
 big.selectedIndex = 0; //초기화

 //option 삭제 함수 호출
 jsSelectClear(detail);

//2차 지역 첫번째 아들놈은 남겨놓아야 하니까.^^
 detail.options[0] = new Option(num + "차 지역 세부선택", '0');
  detail.disabled = true; //그리고...비활성화

}

궁금한 점 있으시면 쪽지주세요...

ASP에서 MSSQL 연동해서 쿼리 출력하는 예제

안녕하세요? 웹프로그램에 가장 흥미와 제미 있을시기가 지금 님의 시기인듯 한데요

상세한 정보를 원하신다면 제가 끝에 남긴곳에 강좌를 보시구요

저는 실전적으로 바로 적용할수 있고 초보개발자가 빨리 이해할수있는 수준으로 글을 작성하겠습니다.

따라서 학술적이나 이론적으로는 상이함이 있을수 있습니다만...

님이 원하시는 답변의 핵심에 최대한 접근해보도록 노력하겠습니다.

소스작성 순서는

디비접속객체로 디비접속 =>디비 내용 전달 객체생성=>변수활용 쿼리작성=>디비내용전달객체에 쿼리실행에 의한 테이블내용 담기=>리스팅 뿌리기

이상이 순서입니다.

주석을 확인하시면 미약하지만...^^; 설명이 있습니다.
소스
<%
constr="Provider=SQLOLEDB;Data Source=localhost;Initial Catalog=디비명;User ID=유져아이디;Password=비밀번호;Network Library=dbmssocn"
Set db = Server.CreateObject("ADODB.Connection") 'db라는 컨넥션 object 를 생성합니다.
db.Open constr

'위내용은 constr 변수 내용으로 db라는 object로 데이터베이스에 접속한다는 뜻입니다.

Set rs = Server.CreateObject("ADODB.Recordset")

'rs라는 레코드셋 object 생성합니다. rs안에 테이블내용이 들어갑니다.
Set rs.ActiveConnection = db 'rs는 접속할것이다 db라는 객체를 활용해서

'위내용은 테이블 내용을 전달할 rs object 선언과 rs는 db object 를 활용해서 디비에 접속한다는 뜻입니다.

strSql ="select * from  table " 'strSql 이라는 변수에 실행 쿼리를 작성
rs.Open strSql 'strSql 변수의 내용(쿼리)으로 rs에 테이블 내용을 담으라는 뜻입니다.

'위내용은 strSql 의 변수 활용으로 쿼리 작성해서 rs가 그것을 활용해서 테이블 내용을 가져오는 과정입니다.

while not(rs.EOF) '루프를 돌립니다. 테이블의 끝레코드가 아니면 계속 루프가 돌아가라는 조건으로

response.write rs("필드명") &"<br>" '뿌려야할 필드를 출력

rs.MoveNext '다음레코드로 이동

wend '루프의 끝

'위내용은 rs 가 갖고 있는 필드내용을 출력하는 예제입니다. 그리고 그다음 레코드가 이동이 되는 과정도 있구요
%>

이상이 디비에 있는 내용을 출력하는 소스 예제이구요...

물론 객체를 생성했으면 close 하고 nothing 해야한다 변수선언 똑바로 안하냐?
그런 내용의 테클적인 글도 올라올수 있겠으나...

님이 원하는 질문의 핵심에 최대한 접근이 이글 작성의 목표입니다.

상세한 학습을 원하신다면 teayo 사이트의 asp 강좌를 보시면 정말 잘나와있습니다.

제글이 도움이 되셨으면 합니다. 좋은하루요 ^^