|
|
|
|
Á¤¼ö / 2000-08-09 / ¿ÀÈÄ 4:07:00 / 203.230.248.195
Á¶È¸¼ö : 117
|
[Áú¹®] ´Ù½Ã Á» ºÁÁÖ¼¼¿ä.... |
> > loop µ¹¸®½Ç¶§..
> > dbrec.movenext ÇØÁּ˴ÂÁö¿ä.. ´ÙÀ½·¹ÄÚµå·Î...
>
> À§¿¡¼ ¸»¾¸ÇϽŠ·çÇÁ¹®¿¡¼ÀÇ DbRec.MoveNext´Â ÀÌ¹Ì ³Ö¾î ÀÖ¾ú±¸¿ä....±×¿Í °ü·ÃÇؼ Áú¹®À» ÇÏ·Á±¸ ÇÕ´Ï´Ù...ÀÌ·¡ Àú·¡ ÇÏ´Ùº¸´Ï...¾Æ·¡Ã³·³ for¹® ¾È¿¡ º¯¼öÁöÁ¤À» ÇÏ¿© ·¹Äڵ带 ½áÁÖ¾î¾ß µÇ´Â °Å °°¾Æ¼ Çغôµ¥ ¾Ï°ÍµÎ ¾È³ª¿À³×¿ä..±×·¯´Ï±î ±×Àü¿¡´Â numÀ» for¹® ¹Û¿¡¼ ÁöÁ¤ÇÏ¿´¾ú°Åµç¿ä...±×·¡µÎ ±×¶© ¸Ç óÀ½ ·¹ÄÚµå¶óµÎ ³ª¿Ô¾ú´Âµ¥...±×·±µ¥....
>
> listsql="SELECT num FROM "&tb&" Where "&sqlList&" and ref= "&nref&" ORDER BY num ASC"
>
> DbRec.Open listsql,DbCon
>
> For i=1 to DbRec.EOF
>
> num=DbRec(0)
> response.write(num)
>
> DbRec.MoveNext
>
> next
>
> DbRec.Close
>
> ±×¸®°í...Á¤ÀÛ ÇÊ¿äÇÑ °Ç À§Ã³·³ ÇϳªÀÇ º¯¼ö¿¡ °á°ú°ªÀ» ´ã¾Æ ...À̸¦ ¹Û¿¡¼ ¾µ¼ö ÀÖ´Â ¹æ¹ýÀÌ ¾ø´ÂÁö...À§ °æ¿ì°¡ µÈ´Ù±¸ ÇÏ´õ¶óµÎ for¹® ¾È¿¡¼ numº¯¼öÀÇ ÁöÁ¤ºÎÅÍ »ç¿ë±îÁö ´Ù ÇØ¾ß ÇÏ´Â °á°ú°¡ ºú¾îÁöÀݾƿä..
>
> Àú´Â num¿¡ ¾ò°íÀÚÇÏ´Â ¿©·¯°³ÀÇ ÀÎÀÚ¸¦ ´ã¾Ò´Ù°¡ ¹Ø¿¡¼ ³ªÁß¿¡ ´Ù¸¥ ÆÄÀÏÀÇ ¸µÅ©ºÎºÐ¿¡¼ ÀÎÀÚ·Î ³Ñ°ÜÁÖ·Á±¸ Çϴµ¥...¾îÂî ÇØ¾ß µÇ´ÂÁö....¾î°ÅÁö·Î¶óµµ for¹®¾È¿¡¼ numÀÇ »ç¿ë±îÁö ÇÏ¿©¾ß¸¸ ÇÏ´Â ¹æ¹ý¹Û¿¡ ¾ø´ÂÁö ¾Ë°í ½Í¾î¿ä..
>
>
> Áö±Ý º¸´Ï ¾î°ÅÁö·Î Èûµé°Í °°¾Æ¿ä...¹Ù·Î¹Ø¿¡¼ ·¹ÄÚµå¼ÂÀ» ¶Ç ¿¾î°¡Áö±¸ ·çÇÁ¸¦ µ¹¸®¸é¼ ´ÙÀ½ÆÄÀÏ·Î ¸µÅ©±îÁö ÇÏ°í Àְŵç¿ä...±×·¡¼ À§¿¡¼ Close·Î ´Ý¾ÆÁÖ°í Çß´ø°Çµ¥....¼¿·ºÆ®ÀÇ Á¶°ÇµÎ ´Ù¸£±¸Çؼ °°ÀÌ ¾µ¼öµÎ ¾ø±¸...±×·¡µÎ µÑ´Ù ·çÇÁ¸¦ µ¹·Á¼ ´ÙÀ½ÆÄÀÏÀÇ ÀÎÀÚ·Î µé¾î°¡¾ß Çϰŵç¿ä..
>
>
>
-----------------------------------------------------------
Á¦°¡ ¸¸µé¾ú´ø °Ë»ö¼ºñ½º ºÎºÐÀÇ Äڵ带 ÂüÁ¶ÇÏ¿© º¾´Ï´Ù..
½Ã°£ÀÌ Âѱâ´Â °ü°è·Î ´ÔÀÇ DB¿¡ ¸ÂÃç Äõ¸®¹®À» ÀÛ¼ºÇÏÁö ¸øÇÏ¿´½À´Ï´Ù...
±×¸®°í Áú¹®ÀÇ ¿äÁö¸¦ ÀÚ¼¼È÷ ÀÌÇظ¦ ÇÏÁö ¸øÇÏ°Ú±º¿ä..
Á¦°¡ ³»°øÀÌ ºÎÁ·Çؼ Àΰ¡...??
±×³É ÂüÁ¶¸¸Çϼ¼¿ä...
¹è¿À» ÀÌ¿ëÇÏ¿© ·¹ÄÚµå¼Â°ªÀ» °è¼Ó °¡Áö°í ÀÖÀ» ¼ö Àְڳ׿ä...
±×´ÙÁö ÁÁÀº ÄÚµå´Â ¾Æ´ÏÁö¸¸ µµ¿ò µÇ±æ ¹Ù¶ø´Ï´Ù.....
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
Set Rs=Server.CreateObject("ADODB.Recordset")
Rs.CursorType=1
sql3="select * from Process Where Terminal='"&Terminal&"' and Year='"&Year1&"' ORDER BY Month ASC"
Rs.Open sql3, DbCon
if Rs.eof then
Response.write "ÇØ´çµ¥ÀÌÅÍ°¡ ¾ø½À´Ï´Ù.."
else
Count = Rs.RecordCount 'Àüü ·¹ÄÚµå ¼ö °è»ê
Dim A_Month(12) 'A--> Array 12=>1~12¿ù
Dim A_Up(12)
Dim A_Down(12)
Dim A_Ts(12)
Dim A_Total(12)
For i=1 to Count
if Rs.EOF then
exit for
end if
A_Month(i)=Int(Rs("Month"))
A_Up(i)=Int(Rs("Up"))
A_Down(i)=Rs("Down")
A_Ts(i)=Rs("Ts")
A_Total(i)=A_Up(i)+A_Down(i)+A_Ts(i)
Rs.MoveNext
Next
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
|
|
|
|